Athero-Express Biobank Study – IL6 and MCP1 plaque levels.
An ‘Athero-Express Biobank Study’ project
Sander W. van der Laan, PhD | @swvanderlaan; Marios Georgakis; Rainer Malik; Martin Dichgans
2020-03-05
Preparation
Clean the environment.
Set locations, and the working directory.
A package-installation function.
Load those packages.
We will create a datestamp and define the Utrecht Science Park Colour Scheme.
# Function to grep data from glm()/lm()
GLM.CON <- function(fit, DATASET, x_name, y, verbose=c(TRUE,FALSE)){
cat("Analyzing in dataset '", DATASET ,"' the association of '", x_name ,"' with '", y ,"' .\n")
if (nrow(summary(fit)$coefficients) == 1) {
output = c(DATASET, x_name, y, rep(NA,8))
cat("Model not fitted; probably singular.\n")
}else {
cat("Collecting data.\n\n")
effectsize = summary(fit)$coefficients[2,1]
SE = summary(fit)$coefficients[2,2]
OReffect = exp(summary(fit)$coefficients[2,1])
CI_low = exp(effectsize - 1.96 * SE)
CI_up = exp(effectsize + 1.96 * SE)
tvalue = summary(fit)$coefficients[2,3]
pvalue = summary(fit)$coefficients[2,4]
R = summary(fit)$r.squared
R.adj = summary(fit)$adj.r.squared
sample_size = nrow(model.frame(fit))
AE_N = AEDB.CEA.samplesize
Perc_Miss = 100 - ((sample_size * 100)/AE_N)
output = c(DATASET, x_name, y, effectsize, SE, OReffect, CI_low, CI_up, tvalue, pvalue, R, R.adj, AE_N, sample_size, Perc_Miss)
if (verbose == TRUE) {
cat("We have collected the following and summarize it in an object:\n")
cat("Dataset...................:", DATASET, "\n")
cat("Score/Exposure/biomarker..:", x_name, "\n")
cat("Trait/outcome.............:", y, "\n")
cat("Effect size...............:", round(effectsize, 6), "\n")
cat("Standard error............:", round(SE, 6), "\n")
cat("Odds ratio (effect size)..:", round(OReffect, 3), "\n")
cat("Lower 95% CI..............:", round(CI_low, 3), "\n")
cat("Upper 95% CI..............:", round(CI_up, 3), "\n")
cat("T-value...................:", round(tvalue, 6), "\n")
cat("P-value...................:", signif(pvalue, 8), "\n")
cat("R^2.......................:", round(R, 6), "\n")
cat("Adjusted r^2..............:", round(R.adj, 6), "\n")
cat("Sample size of AE DB......:", AE_N, "\n")
cat("Sample size of model......:", sample_size, "\n")
cat("Missing data %............:", round(Perc_Miss, 6), "\n")
} else {
cat("Collecting data in summary object.\n")
}
}
return(output)
print(output)
}
GLM.BIN <- function(fit, DATASET, x_name, y, verbose=c(TRUE,FALSE)){
cat("Analyzing in dataset '", DATASET ,"' the association of '", x_name ,"' with '", y ,"' ...\n")
if (nrow(summary(fit)$coefficients) == 1) {
output = c(DATASET, x_name, y, rep(NA,9))
cat("Model not fitted; probably singular.\n")
}else {
cat("Collecting data...\n")
effectsize = summary(fit)$coefficients[2,1]
SE = summary(fit)$coefficients[2,2]
OReffect = exp(summary(fit)$coefficients[2,1])
CI_low = exp(effectsize - 1.96 * SE)
CI_up = exp(effectsize + 1.96 * SE)
zvalue = summary(fit)$coefficients[2,3]
pvalue = summary(fit)$coefficients[2,4]
dev <- fit$deviance
nullDev <- fit$null.deviance
modelN <- length(fit$fitted.values)
R.l <- 1 - dev / nullDev
R.cs <- 1 - exp(-(nullDev - dev) / modelN)
R.n <- R.cs / (1 - (exp(-nullDev/modelN)))
sample_size = nrow(model.frame(fit))
AE_N = AEDB.CEA.samplesize
Perc_Miss = 100 - ((sample_size * 100)/AE_N)
output = c(DATASET, x_name, y, effectsize, SE, OReffect, CI_low, CI_up, zvalue, pvalue, R.l, R.cs, R.n, AE_N, sample_size, Perc_Miss)
if (verbose == TRUE) {
cat("We have collected the following and summarize it in an object:\n")
cat("Dataset...................:", DATASET, "\n")
cat("Score/Exposure/biomarker..:", x_name, "\n")
cat("Trait/outcome.............:", y, "\n")
cat("Effect size...............:", round(effectsize, 6), "\n")
cat("Standard error............:", round(SE, 6), "\n")
cat("Odds ratio (effect size)..:", round(OReffect, 3), "\n")
cat("Lower 95% CI..............:", round(CI_low, 3), "\n")
cat("Upper 95% CI..............:", round(CI_up, 3), "\n")
cat("Z-value...................:", round(zvalue, 6), "\n")
cat("P-value...................:", signif(pvalue, 8), "\n")
cat("Hosmer and Lemeshow r^2...:", round(R.l, 6), "\n")
cat("Cox and Snell r^2.........:", round(R.cs, 6), "\n")
cat("Nagelkerke's pseudo r^2...:", round(R.n, 6), "\n")
cat("Sample size of AE DB......:", AE_N, "\n")
cat("Sample size of model......:", sample_size, "\n")
cat("Missing data %............:", round(Perc_Miss, 6), "\n")
} else {
cat("Collecting data in summary object.\n")
}
}
return(output)
print(output)
}Background
Using a Mendelian Randomization approach, we recently examined associations between the circulating levels of 41 cytokines and growth factors and the risk of stroke in the MEGASTROKE GWAS dataset (67,000 stroke cases and 450,000 controls) and found Monocyte chemoattractant protein-1 (MCP-1) as the cytokine showing the strongest association with stroke, particularly large artery and cardioembolic stroke (Georgakis et al., 2019a). Genetically elevated MCP-1 levels were also associated with a higher risk of coronary artery disease and myocardial infarction (Georgakis et al., 2019a). Further, in a meta-analysis of 6 observational population-based of longitudinal cohort studies we recently showed that baseline levels of MCP-1 were associated with a higher risk of ischemic stroke over follow-up (Georgakis et al., 2019b). While these data suggest a central role of MCP-1 in the pathogenesis of atherosclerosis, it remains unknown if MCP-1 levels in the blood really reflect MCP-1 activity. MCP-1 is expressed in the atherosclerotic plaque and attracts monocytes in the subendothelial space (Nelken et al., 1991; Papadopoulou et al., 2008; Takeya et al., 1993; Wilcox et al., 1994). Thus, MCP-1 levels in the plaque might more strongly reflect MCP-1 signaling. However, it remains unknown if MCP-1 plaque levels associate with plaque vulnerability or risk of cardiovascular events.
Objectives
Against this background we now aim to make use of the data from Athero-Express Biobank Study to explore the associations of MCP-1 protein levels in the atherosclerotic plaques from patients undergoing carotid endarterectomy with phenotypes of plaque vulnerability and secondary vascular events over a follow-up of three years.
Methods
Blood
- IL6: Interleukin 6. Entrez Gene: 3569. Bender MedSystems; cat.nr.: BMS810FF. Recalculated FACS. [pg/mL]
- MCP1: Monocyte chemotactic protein 1, MCP-1 (Chemokine (C-C motif) ligand 2, CCL2). Entrez Gene: 6347. Measured at the WKZ. Recalculated Luminex. [pg/mL]
Plaque
- IL6: Interleuking 6 (IL6; Entrez Gene: 3569) concentration in plaque [pg/ug], measured by Luminex at the WKZ.
- MCP1: Monocyte chemotactic protein 1 (a.k.a. CCL2; Entrez Gene: 6347) concentration in plaque [pg/ug], measured by Luminex at the WKZ.
- IL6R: Interleuking 6 receptor (IL6R; Entrez Gene: 3570) concentration in plaque [pg/ug], measured by Luminex at the WKZ.
Loading data
Clinical data
Loading Athero-Express clinical data.
require(haven)
AEDB <- haven::read_sav(paste0(AEDB_loc, "/2019-3NEW_AtheroExpressDatabase_ScientificAE_02072019_IC_added.sav"))
head(AEDB)
require(openxlsx)Loading required package: openxlsxAEDB_ProtConc <- openxlsx::read.xlsx(paste0(AEDB_loc, "/_Vriezer/20190919_Freezers_preTCBio.xlsx"),
sheet = "ProteinConc.",
skipEmptyCols = TRUE)
AEDB_Blood <- openxlsx::read.xlsx(paste0(AEDB_loc, "/_Vriezer/20190919_Freezers_preTCBio.xlsx"),
sheet = "Blood",
skipEmptyCols = TRUE)
AEDB_Plaque <- openxlsx::read.xlsx(paste0(AEDB_loc, "/_Vriezer/20190919_Freezers_preTCBio.xlsx"),
sheet = "Plaque",
skipEmptyCols = TRUE)
head(AEDB_ProtConc)head(AEDB_Blood)head(AEDB_Plaque)NA
NAFixing and creating variables
We need to be very strict in defining symptoms. Therefore we will fix a new variable that groups symptoms at inclusion.
Coding of symptoms is as follows:
- missing -999
- Asymptomatic 0
- TIA 1
- minor stroke 2
- Major stroke 3
- Amaurosis fugax 4
- Four vessel disease 5
- Vertebrobasilary TIA 7
- Retinal infarction 8
- Symptomatic, but aspecific symtoms 9
- Contralateral symptomatic occlusion 10
- retinal infarction 11
- armclaudication due to occlusion subclavian artery, CEA needed for bypass 12
- retinal infarction + TIAs 13
- Ocular ischemic syndrome 14
- ischemisch glaucoom 15
- subclavian steal syndrome 16
- TGA 17
We will group as follows in Symptoms.5G:
- Asymptomatic > 0
- TIA > 1, 7, 13
- Stroke > 2, 3
- Ocular > 4, 14, 15
- Retinal infarction > 8, 11
- Other > 5, 9, 10, 12, 16, 17
We will also group as follows in AsymptSympt:
- Asymptomatic > 0
- TIA > 1, 7, 13 + Stroke > 2, 3
- Ocular > 4, 14, 15 + Retinal infarction > 8, 11 + Other > 5, 9, 10, 12, 16, 17
# Fix symptoms
attach(AEDB)
# Symptoms.5G
AEDB[,"Symptoms.5G"] <- NA
AEDB$Symptoms.5G[sympt == 0] <- "Asymptomatic"
AEDB$Symptoms.5G[sympt == 1 | sympt == 7 | sympt == 13] <- "TIA"
AEDB$Symptoms.5G[sympt == 2 | sympt == 3] <- "Stroke"
AEDB$Symptoms.5G[sympt == 4 | sympt == 14 | sympt == 15 ] <- "Ocular"
AEDB$Symptoms.5G[sympt == 8 | sympt == 11] <- "Retinal infarction"
AEDB$Symptoms.5G[sympt == 5 | sympt == 9 | sympt == 10 | sympt == 12 | sympt == 16 | sympt == 17] <- "Other"
# AsymptSympt
AEDB[,"AsymptSympt"] <- NA
AEDB$AsymptSympt[sympt == 0] <- "Asymptomatic"
AEDB$AsymptSympt[sympt == 1 | sympt == 7 | sympt == 13 | sympt == 2 | sympt == 3] <- "Symptomatic"
AEDB$AsymptSympt[sympt == 4 | sympt == 14 | sympt == 15 | sympt == 8 | sympt == 11 | sympt == 5 | sympt == 9 | sympt == 10 | sympt == 12 | sympt == 16 | sympt == 17] <- "Ocular and others"
detach(AEDB)
AEDB.temp <- subset(AEDB, select = c("STUDY_NUMBER", "UPID", "Age", "Gender", "Hospital", "Artery_summary", "sympt", "Symptoms.5G", "AsymptSympt"))
require(labelled)Loading required package: labelledAEDB.temp$Gender <- to_factor(AEDB.temp$Gender)
AEDB.temp$Hospital <- to_factor(AEDB.temp$Hospital)
AEDB.temp$Artery_summary <- to_factor(AEDB.temp$Artery_summary)
DT::datatable(AEDB.temp[1:10,], caption = "Excerpt of the whole AEDB.", rownames = FALSE)
table(AEDB.temp$Symptoms.5G, AEDB.temp$AsymptSympt)
Asymptomatic Ocular and others Symptomatic
Asymptomatic 311 0 0
Ocular 0 408 0
Other 0 118 0
Retinal infarction 0 42 0
Stroke 0 0 720
TIA 0 0 1030rm(AEDB.temp)We will also fix the plaquephenotypes variable.
Coding of symptoms is as follows:
- missing -999
- not relevant -888
- fibrous 1
- fibroatheromatous 2
- atheromatous 3
# Fix plaquephenotypes
attach(AEDB)
AEDB[,"OverallPlaquePhenotype"] <- NA
AEDB$OverallPlaquePhenotype[plaquephenotype == -999] <- NA
AEDB$OverallPlaquePhenotype[plaquephenotype == -999] <- NA
AEDB$OverallPlaquePhenotype[plaquephenotype == 1] <- "fibrous"
AEDB$OverallPlaquePhenotype[plaquephenotype == 2] <- "fibroatheromatous"
AEDB$OverallPlaquePhenotype[plaquephenotype == 3] <- "atheromatous"
detach(AEDB)
AEDB.temp <- subset(AEDB, select = c("STUDY_NUMBER", "UPID", "Age", "Gender", "Hospital", "Artery_summary", "plaquephenotype", "OverallPlaquePhenotype"))
require(labelled)
AEDB.temp$Gender <- to_factor(AEDB.temp$Gender)
AEDB.temp$Hospital <- to_factor(AEDB.temp$Hospital)
AEDB.temp$Artery_summary <- to_factor(AEDB.temp$Artery_summary)
DT::datatable(AEDB.temp[1:10,], caption = "Excerpt of the whole AEDB.", rownames = FALSE)
rm(AEDB.temp)
We will also fix the diabetes status variable.
# Fix diabetes
attach(AEDB)
AEDB[,"DiabetesStatus"] <- NA
AEDB$DiabetesStatus[DM.composite == -999] <- NA
AEDB$DiabetesStatus[DM.composite == 0] <- "Control (no Diabetes Dx/Med)"
AEDB$DiabetesStatus[DM.composite == 1] <- "Diabetes"
detach(AEDB)
AEDB.temp <- subset(AEDB, select = c("STUDY_NUMBER", "UPID", "Age", "Gender", "Hospital", "Artery_summary", "DM.composite", "DiabetesStatus"))
require(labelled)
AEDB.temp$Gender <- to_factor(AEDB.temp$Gender)
AEDB.temp$Hospital <- to_factor(AEDB.temp$Hospital)
AEDB.temp$Artery_summary <- to_factor(AEDB.temp$Artery_summary)
AEDB.temp$DiabetesStatus <- to_factor(AEDB.temp$DiabetesStatus)
DT::datatable(AEDB.temp[1:10,], caption = "Excerpt of the whole AEDB.", rownames = FALSE)
rm(AEDB.temp)
Athero-Express Biobank Study
Baseline characteristics
Showing the baseline table of the whole Athero-Express Biobank.
# Create baseline tables
# http://rstudio-pubs-static.s3.amazonaws.com/13321_da314633db924dc78986a850813a50d5.html
AEDB.CEA.tableOne = print(CreateTableOne(vars = basetable_vars,
# factorVars = basetable_bin,
# strata = "Symptoms.4g",
data = AEDB.CEA, includeNA = TRUE),
nonnormal = c(), missing = TRUE,
quote = FALSE, noSpaces = FALSE, showAllLevels = TRUE, explain = TRUE,
format = "pf",
contDigits = 3)[,1:2]
level Overall
n 2388
Hospital % (freq) St. Antonius, Nieuwegein 39.8 ( 951)
UMC Utrecht 60.2 (1437)
Age (mean (SD)) 69.119 (9.206)
Gender % (freq) female 30.4 ( 727)
male 69.6 (1661)
TC_final (mean (SD)) 4.790 (1.464)
LDL_final (mean (SD)) 2.813 (1.082)
HDL_final (mean (SD)) 1.201 (0.443)
TG_final (mean (SD)) 1.704 (1.038)
hsCRP_plasma (mean (SD)) 20.175 (231.417)
systolic (mean (SD)) 152.714 (25.196)
diastoli (mean (SD)) 81.485 (25.318)
GFR_MDRD (mean (SD)) 73.022 (21.193)
BMI (mean (SD)) 26.503 (3.957)
KDOQI % (freq) No data available/missing 0.0 ( 0)
Normal kidney function 18.8 ( 450)
CKD 2 (Mild) 51.2 (1223)
CKD 3 (Moderate) 22.9 ( 546)
CKD 4 (Severe) 1.3 ( 31)
CKD 5 (Failure) 0.4 ( 10)
<NA> 5.4 ( 128)
BMI_WHO % (freq) No data available/missing 0.0 ( 0)
Underweight 1.0 ( 23)
Normal 34.2 ( 816)
Overweight 43.3 (1033)
Obese 14.4 ( 343)
<NA> 7.2 ( 173)
SmokerCurrent % (freq) no data available/missing 0.0 ( 0)
no 65.1 (1555)
yes 33.5 ( 801)
<NA> 1.3 ( 32)
eCigarettes (mean (SD)) 173121.383 (152646.899)
ePackYearsSmoking (mean (SD)) 23.715 (20.911)
DiabetesStatus % (freq) Control (no Diabetes Dx/Med) 76.0 (1815)
Diabetes 23.8 ( 568)
<NA> 0.2 ( 5)
Hypertension.composite % (freq) No data available/missing 0.0 ( 0)
no 14.7 ( 351)
yes 85.1 (2031)
<NA> 0.3 ( 6)
Hypertension.drugs % (freq) No data available/missing 0.0 ( 0)
no 23.6 ( 564)
yes 76.0 (1814)
<NA> 0.4 ( 10)
Med.anticoagulants % (freq) No data available/missing 0.0 ( 0)
no 88.1 (2104)
yes 11.3 ( 271)
<NA> 0.5 ( 13)
Med.all.antiplatelet % (freq) No data available/missing 0.0 ( 0)
no 12.4 ( 295)
yes 87.1 (2080)
<NA> 0.5 ( 13)
Med.Statin.LLD % (freq) No data available/missing 0.0 ( 0)
no 20.6 ( 492)
yes 78.9 (1885)
<NA> 0.5 ( 11)
Stroke_Dx % (freq) Missing 0.0 ( 0)
No stroke diagnosed 71.0 (1696)
Stroke diagnosed 20.9 ( 500)
<NA> 8.0 ( 192)
sympt % (freq) missing 0.0 ( 0)
Asymptomatic 11.1 ( 266)
TIA 39.5 ( 944)
minor stroke 16.8 ( 402)
Major stroke 9.6 ( 229)
Amaurosis fugax 15.5 ( 369)
Four vessel disease 1.6 ( 38)
Vertebrobasilary TIA 0.2 ( 5)
Retinal infarction 1.4 ( 33)
Symptomatic, but aspecific symtoms 2.2 ( 52)
Contralateral symptomatic occlusion 0.5 ( 11)
retinal infarction 0.3 ( 6)
armclaudication due to occlusion subclavian artery, CEA needed for bypass 0.0 ( 1)
retinal infarction + TIAs 0.1 ( 2)
Ocular ischemic syndrome 0.8 ( 18)
ischemisch glaucoom 0.0 ( 0)
subclavian steal syndrome 0.0 ( 1)
TGA 0.0 ( 0)
<NA> 0.5 ( 11)
Symptoms.5G % (freq) Asymptomatic 11.1 ( 266)
Ocular 16.2 ( 387)
Other 4.3 ( 103)
Retinal infarction 1.6 ( 39)
Stroke 26.4 ( 631)
TIA 39.8 ( 951)
<NA> 0.5 ( 11)
AsymptSympt % (freq) Asymptomatic 11.1 ( 266)
Ocular and others 22.2 ( 529)
Symptomatic 66.2 (1582)
<NA> 0.5 ( 11)
restenos % (freq) missing 0.0 ( 0)
de novo 93.6 (2235)
restenosis 4.9 ( 117)
stenose bij angioseal na PTCA 0.0 ( 0)
<NA> 1.5 ( 36)
stenose % (freq) missing 0.0 ( 0)
0-49% 0.5 ( 13)
50-70% 7.6 ( 181)
70-90% 46.9 (1121)
90-99% 38.4 ( 918)
100% (Occlusion) 1.5 ( 35)
NA 0.0 ( 0)
50-99% 0.6 ( 14)
70-99% 2.3 ( 55)
99 0.1 ( 2)
<NA> 2.1 ( 49)
EP_composite % (freq) No data available. 0.0 ( 0)
No composite endpoints 70.5 (1684)
Composite endpoints 24.2 ( 578)
<NA> 5.3 ( 126)
EP_composite_time (mean (SD)) 2.494 (1.102)
macmean0 (mean (SD)) 0.769 (1.186)
smcmean0 (mean (SD)) 1.982 (2.378)
Macrophages.bin % (freq) no/minor 35.6 ( 850)
moderate/heavy 41.7 ( 995)
<NA> 22.7 ( 543)
SMC.bin % (freq) no/minor 25.3 ( 605)
moderate/heavy 52.2 (1247)
<NA> 22.4 ( 536)
neutrophils (mean (SD)) 146.685 (419.386)
Mast_cells_plaque (mean (SD)) 164.488 (163.771)
IPH.bin % (freq) no 31.3 ( 747)
yes 46.5 (1111)
<NA> 22.2 ( 530)
vessel_density_averaged (mean (SD)) 8.322 (6.386)
Calc.bin % (freq) no/minor 42.1 (1005)
moderate/heavy 35.7 ( 852)
<NA> 22.2 ( 531)
Collagen.bin % (freq) no/minor 16.0 ( 381)
moderate/heavy 61.6 (1472)
<NA> 22.4 ( 535)
Fat.bin_10 % (freq) <10% 22.7 ( 541)
>10% 55.3 (1321)
<NA> 22.0 ( 526)
Fat.bin_40 % (freq) <40% 57.2 (1365)
>40% 20.8 ( 497)
<NA> 22.0 ( 526)
OverallPlaquePhenotype % (freq) atheromatous 20.1 ( 481)
fibroatheromatous 28.4 ( 677)
fibrous 29.1 ( 696)
<NA> 22.4 ( 534)
IL6_pg_ug_2015 (mean (SD)) 0.138 (0.556)
MCP1_pg_ug_2015 (mean (SD)) 0.612 (0.904)
Missing
n
Hospital % (freq) 0.0
Age (mean (SD)) 0.0
Gender % (freq) 0.0
TC_final (mean (SD)) 38.7
LDL_final (mean (SD)) 46.4
HDL_final (mean (SD)) 42.4
TG_final (mean (SD)) 43.5
hsCRP_plasma (mean (SD)) 52.1
systolic (mean (SD)) 11.6
diastoli (mean (SD)) 11.6
GFR_MDRD (mean (SD)) 5.3
BMI (mean (SD)) 7.2
KDOQI % (freq) 5.4
BMI_WHO % (freq) 7.2
SmokerCurrent % (freq) 1.3
eCigarettes (mean (SD)) 12.3
ePackYearsSmoking (mean (SD)) 12.3
DiabetesStatus % (freq) 0.2
Hypertension.composite % (freq) 0.3
Hypertension.drugs % (freq) 0.4
Med.anticoagulants % (freq) 0.5
Med.all.antiplatelet % (freq) 0.5
Med.Statin.LLD % (freq) 0.5
Stroke_Dx % (freq) 8.0
sympt % (freq) 0.5
Symptoms.5G % (freq) 0.5
AsymptSympt % (freq) 0.5
restenos % (freq) 1.5
stenose % (freq) 2.1
EP_composite % (freq) 5.3
EP_composite_time (mean (SD)) 5.4
macmean0 (mean (SD)) 28.4
smcmean0 (mean (SD)) 28.6
Macrophages.bin % (freq) 22.7
SMC.bin % (freq) 22.4
neutrophils (mean (SD)) 87.2
Mast_cells_plaque (mean (SD)) 89.9
IPH.bin % (freq) 22.2
vessel_density_averaged (mean (SD)) 34.0
Calc.bin % (freq) 22.2
Collagen.bin % (freq) 22.4
Fat.bin_10 % (freq) 22.0
Fat.bin_40 % (freq) 22.0
OverallPlaquePhenotype % (freq) 22.4
IL6_pg_ug_2015 (mean (SD)) 51.7
MCP1_pg_ug_2015 (mean (SD)) 49.7 AEDB.CEA.subset <- subset(AEDB.CEA, !is.na(IL6_pg_ug_2015) | !is.na(MCP1_pg_ug_2015))
AEDB.CEA.subset.tableOne = print(CreateTableOne(vars = basetable_vars,
# factorVars = basetable_bin,
# strata = "DiabetesStatus",
data = AEDB.CEA.subset, includeNA = TRUE),
nonnormal = c(), missing = TRUE,
quote = FALSE, noSpaces = FALSE, showAllLevels = TRUE, explain = TRUE,
format = "pf",
contDigits = 3)[,1:2]
level Overall
n 1201
Hospital % (freq) St. Antonius, Nieuwegein 46.9 ( 563)
UMC Utrecht 53.1 ( 638)
Age (mean (SD)) 68.674 (9.167)
Gender % (freq) female 30.6 ( 367)
male 69.4 ( 834)
TC_final (mean (SD)) 4.730 (1.250)
LDL_final (mean (SD)) 2.812 (1.055)
HDL_final (mean (SD)) 1.180 (0.470)
TG_final (mean (SD)) 1.656 (0.964)
hsCRP_plasma (mean (SD)) 15.273 (107.100)
systolic (mean (SD)) 155.628 (26.036)
diastoli (mean (SD)) 82.644 (13.533)
GFR_MDRD (mean (SD)) 71.764 (20.074)
BMI (mean (SD)) 26.355 (3.706)
KDOQI % (freq) No data available/missing 0.0 ( 0)
Normal kidney function 17.2 ( 207)
CKD 2 (Mild) 53.0 ( 636)
CKD 3 (Moderate) 24.7 ( 297)
CKD 4 (Severe) 1.1 ( 13)
CKD 5 (Failure) 0.4 ( 5)
<NA> 3.6 ( 43)
BMI_WHO % (freq) No data available/missing 0.0 ( 0)
Underweight 0.9 ( 11)
Normal 35.2 ( 423)
Overweight 46.7 ( 561)
Obese 12.7 ( 153)
<NA> 4.4 ( 53)
SmokerCurrent % (freq) no data available/missing 0.0 ( 0)
no 63.0 ( 757)
yes 35.4 ( 425)
<NA> 1.6 ( 19)
eCigarettes (mean (SD)) 171480.910 (153112.295)
ePackYearsSmoking (mean (SD)) 23.491 (20.974)
DiabetesStatus % (freq) Control (no Diabetes Dx/Med) 77.2 ( 927)
Diabetes 22.8 ( 274)
Hypertension.composite % (freq) No data available/missing 0.0 ( 0)
no 13.8 ( 166)
yes 86.2 (1035)
Hypertension.drugs % (freq) No data available/missing 0.0 ( 0)
no 22.5 ( 270)
yes 77.4 ( 929)
<NA> 0.2 ( 2)
Med.anticoagulants % (freq) No data available/missing 0.0 ( 0)
no 88.0 (1057)
yes 11.8 ( 142)
<NA> 0.2 ( 2)
Med.all.antiplatelet % (freq) No data available/missing 0.0 ( 0)
no 10.5 ( 126)
yes 89.1 (1070)
<NA> 0.4 ( 5)
Med.Statin.LLD % (freq) No data available/missing 0.0 ( 0)
no 21.9 ( 263)
yes 77.9 ( 936)
<NA> 0.2 ( 2)
Stroke_Dx % (freq) Missing 0.0 ( 0)
No stroke diagnosed 75.6 ( 908)
Stroke diagnosed 19.1 ( 229)
<NA> 5.3 ( 64)
sympt % (freq) missing 0.0 ( 0)
Asymptomatic 10.9 ( 131)
TIA 41.2 ( 495)
minor stroke 14.8 ( 178)
Major stroke 10.8 ( 130)
Amaurosis fugax 15.2 ( 183)
Four vessel disease 1.9 ( 23)
Vertebrobasilary TIA 0.2 ( 2)
Retinal infarction 1.2 ( 15)
Symptomatic, but aspecific symtoms 2.4 ( 29)
Contralateral symptomatic occlusion 0.5 ( 6)
retinal infarction 0.2 ( 3)
armclaudication due to occlusion subclavian artery, CEA needed for bypass 0.1 ( 1)
retinal infarction + TIAs 0.0 ( 0)
Ocular ischemic syndrome 0.1 ( 1)
ischemisch glaucoom 0.0 ( 0)
subclavian steal syndrome 0.0 ( 0)
TGA 0.0 ( 0)
<NA> 0.3 ( 4)
Symptoms.5G % (freq) Asymptomatic 10.9 ( 131)
Ocular 15.3 ( 184)
Other 4.9 ( 59)
Retinal infarction 1.5 ( 18)
Stroke 25.6 ( 308)
TIA 41.4 ( 497)
<NA> 0.3 ( 4)
AsymptSympt % (freq) Asymptomatic 10.9 ( 131)
Ocular and others 21.7 ( 261)
Symptomatic 67.0 ( 805)
<NA> 0.3 ( 4)
restenos % (freq) missing 0.0 ( 0)
de novo 94.6 (1136)
restenosis 3.1 ( 37)
stenose bij angioseal na PTCA 0.0 ( 0)
<NA> 2.3 ( 28)
stenose % (freq) missing 0.0 ( 0)
0-49% 0.5 ( 6)
50-70% 6.0 ( 72)
70-90% 45.3 ( 544)
90-99% 42.6 ( 512)
100% (Occlusion) 0.8 ( 10)
NA 0.0 ( 0)
50-99% 0.4 ( 5)
70-99% 1.2 ( 14)
99 0.0 ( 0)
<NA> 3.2 ( 38)
EP_composite % (freq) No data available. 0.0 ( 0)
No composite endpoints 73.5 ( 883)
Composite endpoints 25.6 ( 308)
<NA> 0.8 ( 10)
EP_composite_time (mean (SD)) 2.623 (1.112)
macmean0 (mean (SD)) 0.790 (1.220)
smcmean0 (mean (SD)) 1.934 (2.185)
Macrophages.bin % (freq) no/minor 47.5 ( 570)
moderate/heavy 50.6 ( 608)
<NA> 1.9 ( 23)
SMC.bin % (freq) no/minor 31.2 ( 375)
moderate/heavy 66.9 ( 804)
<NA> 1.8 ( 22)
neutrophils (mean (SD)) 170.898 (479.879)
Mast_cells_plaque (mean (SD)) 172.458 (173.290)
IPH.bin % (freq) no 38.3 ( 460)
yes 60.0 ( 720)
<NA> 1.7 ( 21)
vessel_density_averaged (mean (SD)) 8.426 (6.475)
Calc.bin % (freq) no/minor 50.1 ( 602)
moderate/heavy 48.1 ( 578)
<NA> 1.7 ( 21)
Collagen.bin % (freq) no/minor 20.7 ( 249)
moderate/heavy 77.7 ( 933)
<NA> 1.6 ( 19)
Fat.bin_10 % (freq) <10% 26.8 ( 322)
>10% 71.6 ( 860)
<NA> 1.6 ( 19)
Fat.bin_40 % (freq) <40% 71.6 ( 860)
>40% 26.8 ( 322)
<NA> 1.6 ( 19)
OverallPlaquePhenotype % (freq) atheromatous 26.7 ( 321)
fibroatheromatous 35.9 ( 431)
fibrous 35.6 ( 427)
<NA> 1.8 ( 22)
IL6_pg_ug_2015 (mean (SD)) 0.138 (0.556)
MCP1_pg_ug_2015 (mean (SD)) 0.612 (0.904)
Missing
n
Hospital % (freq) 0.0
Age (mean (SD)) 0.0
Gender % (freq) 0.0
TC_final (mean (SD)) 33.6
LDL_final (mean (SD)) 39.8
HDL_final (mean (SD)) 36.6
TG_final (mean (SD)) 36.2
hsCRP_plasma (mean (SD)) 38.8
systolic (mean (SD)) 14.0
diastoli (mean (SD)) 14.0
GFR_MDRD (mean (SD)) 3.5
BMI (mean (SD)) 4.2
KDOQI % (freq) 3.6
BMI_WHO % (freq) 4.4
SmokerCurrent % (freq) 1.6
eCigarettes (mean (SD)) 9.8
ePackYearsSmoking (mean (SD)) 9.8
DiabetesStatus % (freq) 0.0
Hypertension.composite % (freq) 0.0
Hypertension.drugs % (freq) 0.2
Med.anticoagulants % (freq) 0.2
Med.all.antiplatelet % (freq) 0.4
Med.Statin.LLD % (freq) 0.2
Stroke_Dx % (freq) 5.3
sympt % (freq) 0.3
Symptoms.5G % (freq) 0.3
AsymptSympt % (freq) 0.3
restenos % (freq) 2.3
stenose % (freq) 3.2
EP_composite % (freq) 0.8
EP_composite_time (mean (SD)) 1.0
macmean0 (mean (SD)) 2.3
smcmean0 (mean (SD)) 2.7
Macrophages.bin % (freq) 1.9
SMC.bin % (freq) 1.8
neutrophils (mean (SD)) 82.0
Mast_cells_plaque (mean (SD)) 86.2
IPH.bin % (freq) 1.7
vessel_density_averaged (mean (SD)) 8.8
Calc.bin % (freq) 1.7
Collagen.bin % (freq) 1.6
Fat.bin_10 % (freq) 1.6
Fat.bin_40 % (freq) 1.6
OverallPlaquePhenotype % (freq) 1.8
IL6_pg_ug_2015 (mean (SD)) 3.9
MCP1_pg_ug_2015 (mean (SD)) 0.1 AEDB.CEA.subset.serum <- subset(AEDB.CEA, !is.na(IL6) | !is.na(MCP1))
AEDB.CEA.subset.serum.tableOne = print(CreateTableOne(vars = basetable_vars,
# factorVars = basetable_bin,
# strata = "DiabetesStatus",
data = AEDB.CEA.subset.serum, includeNA = TRUE),
nonnormal = c(), missing = TRUE,
quote = FALSE, noSpaces = FALSE, showAllLevels = TRUE, explain = TRUE,
format = "pf",
contDigits = 3)[,1:2]
level Overall
n 593
Hospital % (freq) St. Antonius, Nieuwegein 64.6 (383)
UMC Utrecht 35.4 (210)
Age (mean (SD)) 67.297 (8.787)
Gender % (freq) female 28.8 (171)
male 71.2 (422)
TC_final (mean (SD)) 4.958 (1.228)
LDL_final (mean (SD)) 2.935 (1.064)
HDL_final (mean (SD)) 1.195 (0.394)
TG_final (mean (SD)) 1.810 (0.932)
hsCRP_plasma (mean (SD)) 15.379 (80.024)
systolic (mean (SD)) 156.674 (26.187)
diastoli (mean (SD)) 83.496 (12.532)
GFR_MDRD (mean (SD)) 70.569 (19.052)
BMI (mean (SD)) 26.528 (3.903)
KDOQI % (freq) No data available/missing 0.0 ( 0)
Normal kidney function 14.8 ( 88)
CKD 2 (Mild) 56.2 (333)
CKD 3 (Moderate) 25.6 (152)
CKD 4 (Severe) 1.0 ( 6)
CKD 5 (Failure) 0.5 ( 3)
<NA> 1.9 ( 11)
BMI_WHO % (freq) No data available/missing 0.0 ( 0)
Underweight 1.3 ( 8)
Normal 33.1 (196)
Overweight 45.2 (268)
Obese 13.5 ( 80)
<NA> 6.9 ( 41)
SmokerCurrent % (freq) no data available/missing 0.0 ( 0)
no 62.2 (369)
yes 36.6 (217)
<NA> 1.2 ( 7)
eCigarettes (mean (SD)) 172610.335 (143977.960)
ePackYearsSmoking (mean (SD)) 23.645 (19.723)
DiabetesStatus % (freq) Control (no Diabetes Dx/Med) 78.6 (466)
Diabetes 21.4 (127)
Hypertension.composite % (freq) No data available/missing 0.0 ( 0)
no 13.2 ( 78)
yes 86.8 (515)
Hypertension.drugs % (freq) No data available/missing 0.0 ( 0)
no 20.7 (123)
yes 78.9 (468)
<NA> 0.3 ( 2)
Med.anticoagulants % (freq) No data available/missing 0.0 ( 0)
no 86.8 (515)
yes 12.8 ( 76)
<NA> 0.3 ( 2)
Med.all.antiplatelet % (freq) No data available/missing 0.0 ( 0)
no 9.8 ( 58)
yes 89.9 (533)
<NA> 0.3 ( 2)
Med.Statin.LLD % (freq) No data available/missing 0.0 ( 0)
no 27.2 (161)
yes 72.5 (430)
<NA> 0.3 ( 2)
Stroke_Dx % (freq) Missing 0.0 ( 0)
No stroke diagnosed 76.6 (454)
Stroke diagnosed 17.0 (101)
<NA> 6.4 ( 38)
sympt % (freq) missing 0.0 ( 0)
Asymptomatic 15.7 ( 93)
TIA 41.1 (244)
minor stroke 17.0 (101)
Major stroke 6.7 ( 40)
Amaurosis fugax 13.5 ( 80)
Four vessel disease 2.2 ( 13)
Vertebrobasilary TIA 0.2 ( 1)
Retinal infarction 0.3 ( 2)
Symptomatic, but aspecific symtoms 3.0 ( 18)
Contralateral symptomatic occlusion 0.0 ( 0)
retinal infarction 0.0 ( 0)
armclaudication due to occlusion subclavian artery, CEA needed for bypass 0.0 ( 0)
retinal infarction + TIAs 0.0 ( 0)
Ocular ischemic syndrome 0.0 ( 0)
ischemisch glaucoom 0.0 ( 0)
subclavian steal syndrome 0.0 ( 0)
TGA 0.0 ( 0)
<NA> 0.2 ( 1)
Symptoms.5G % (freq) Asymptomatic 15.7 ( 93)
Ocular 13.5 ( 80)
Other 5.2 ( 31)
Retinal infarction 0.3 ( 2)
Stroke 23.8 (141)
TIA 41.3 (245)
<NA> 0.2 ( 1)
AsymptSympt % (freq) Asymptomatic 15.7 ( 93)
Ocular and others 19.1 (113)
Symptomatic 65.1 (386)
<NA> 0.2 ( 1)
restenos % (freq) missing 0.0 ( 0)
de novo 97.0 (575)
restenosis 3.0 ( 18)
stenose bij angioseal na PTCA 0.0 ( 0)
stenose % (freq) missing 0.0 ( 0)
0-49% 0.5 ( 3)
50-70% 3.4 ( 20)
70-90% 39.8 (236)
90-99% 54.8 (325)
100% (Occlusion) 1.3 ( 8)
NA 0.0 ( 0)
50-99% 0.0 ( 0)
70-99% 0.0 ( 0)
99 0.0 ( 0)
<NA> 0.2 ( 1)
EP_composite % (freq) No data available. 0.0 ( 0)
No composite endpoints 71.0 (421)
Composite endpoints 28.0 (166)
<NA> 1.0 ( 6)
EP_composite_time (mean (SD)) 2.616 (1.148)
macmean0 (mean (SD)) 0.962 (1.399)
smcmean0 (mean (SD)) 2.216 (2.485)
Macrophages.bin % (freq) no/minor 41.8 (248)
moderate/heavy 57.3 (340)
<NA> 0.8 ( 5)
SMC.bin % (freq) no/minor 29.5 (175)
moderate/heavy 69.8 (414)
<NA> 0.7 ( 4)
neutrophils (mean (SD)) 109.084 (261.117)
Mast_cells_plaque (mean (SD)) 159.436 (156.529)
IPH.bin % (freq) no 23.9 (142)
yes 75.9 (450)
<NA> 0.2 ( 1)
vessel_density_averaged (mean (SD)) 9.001 (5.629)
Calc.bin % (freq) no/minor 41.1 (244)
moderate/heavy 58.7 (348)
<NA> 0.2 ( 1)
Collagen.bin % (freq) no/minor 18.5 (110)
moderate/heavy 80.9 (480)
<NA> 0.5 ( 3)
Fat.bin_10 % (freq) <10% 19.6 (116)
>10% 80.3 (476)
<NA> 0.2 ( 1)
Fat.bin_40 % (freq) <40% 66.1 (392)
>40% 33.7 (200)
<NA> 0.2 ( 1)
OverallPlaquePhenotype % (freq) atheromatous 33.7 (200)
fibroatheromatous 36.6 (217)
fibrous 29.5 (175)
<NA> 0.2 ( 1)
IL6_pg_ug_2015 (mean (SD)) 0.177 (0.809)
MCP1_pg_ug_2015 (mean (SD)) 0.561 (1.083)
Missing
n
Hospital % (freq) 0.0
Age (mean (SD)) 0.0
Gender % (freq) 0.0
TC_final (mean (SD)) 19.2
LDL_final (mean (SD)) 29.8
HDL_final (mean (SD)) 24.8
TG_final (mean (SD)) 23.3
hsCRP_plasma (mean (SD)) 45.0
systolic (mean (SD)) 6.2
diastoli (mean (SD)) 6.2
GFR_MDRD (mean (SD)) 1.7
BMI (mean (SD)) 6.7
KDOQI % (freq) 1.9
BMI_WHO % (freq) 6.9
SmokerCurrent % (freq) 1.2
eCigarettes (mean (SD)) 9.4
ePackYearsSmoking (mean (SD)) 9.4
DiabetesStatus % (freq) 0.0
Hypertension.composite % (freq) 0.0
Hypertension.drugs % (freq) 0.3
Med.anticoagulants % (freq) 0.3
Med.all.antiplatelet % (freq) 0.3
Med.Statin.LLD % (freq) 0.3
Stroke_Dx % (freq) 6.4
sympt % (freq) 0.2
Symptoms.5G % (freq) 0.2
AsymptSympt % (freq) 0.2
restenos % (freq) 0.0
stenose % (freq) 0.2
EP_composite % (freq) 1.0
EP_composite_time (mean (SD)) 1.0
macmean0 (mean (SD)) 0.3
smcmean0 (mean (SD)) 1.0
Macrophages.bin % (freq) 0.8
SMC.bin % (freq) 0.7
neutrophils (mean (SD)) 77.9
Mast_cells_plaque (mean (SD)) 72.2
IPH.bin % (freq) 0.2
vessel_density_averaged (mean (SD)) 3.0
Calc.bin % (freq) 0.2
Collagen.bin % (freq) 0.5
Fat.bin_10 % (freq) 0.2
Fat.bin_40 % (freq) 0.2
OverallPlaquePhenotype % (freq) 0.2
IL6_pg_ug_2015 (mean (SD)) 24.6
MCP1_pg_ug_2015 (mean (SD)) 23.9 Writing the baseline table to Excel format.
# Write basetable
require(openxlsx)
write.xlsx(file = paste0(BASELINE_loc, "/",Today,".",PROJECTNAME,".AE.BaselineTable.wholeCEA.xlsx"),
AEDB.CEA.tableOne,
row.names = TRUE,
col.names = TRUE,
sheetName = "wholeAEDB_Baseline")
write.xlsx(file = paste0(BASELINE_loc, "/",Today,".",PROJECTNAME,".AE.BaselineTable.subsetCEA.xlsx"),
AEDB.CEA.subset.tableOne,
row.names = TRUE,
col.names = TRUE,
sheetName = "subsetAEDB_Baseline")
write.xlsx(file = paste0(BASELINE_loc, "/",Today,".",PROJECTNAME,".AE.BaselineTable.subsetCEAserum.xlsx"),
AEDB.CEA.subset.serum.tableOne,
row.names = TRUE,
col.names = TRUE,
sheetName = "subsetAEDB_Baseline_serum")Athero-Express Genomics Study (AEGS)
We will add the samples which were genotyped in the Athero-Express Biobank Study, i.e. Athero-Express Genomics Study 1 (AEGS1, Affymetrix SNP 5.0), AEGS2 (Affymetrix Axiom CEU), and AEGS3 (Illumina GSA).
Loading AEGS data
AEGS1_2_3 <- fread(paste0(ROOT_loc,"/PLINK/_AE_Originals/AEGS_COMBINED_QC2018/aegs1_2_3_combo_postqcmichimp_n2493.forR.txt"),
verbose = TRUE, showProgress = TRUE)This installation of data.table has not been compiled with OpenMP support.
omp_get_num_procs() 1
R_DATATABLE_NUM_PROCS_PERCENT unset (default 50)
R_DATATABLE_NUM_THREADS unset
omp_get_thread_limit() 1
omp_get_max_threads() 1
OMP_THREAD_LIMIT unset
OMP_NUM_THREADS unset
RestoreAfterFork true
data.table is using 1 threads. See ?setDTthreads.
Input contains no \n. Taking this to be a filename to open
[01] Check arguments
Using 1 threads (omp_get_max_threads()=1, nth=1)
NAstrings = [<<NA>>]
None of the NAstrings look like numbers.
show progress = 1
0/1 column will be read as integer
[02] Opening the file
Opening file /Users/swvanderlaan/PLINK/_AE_Originals/AEGS_COMBINED_QC2018/aegs1_2_3_combo_postqcmichimp_n2493.forR.txt
File opened, size = 315.1KB (322657 bytes).
Memory mapped ok
[03] Detect and skip BOM
[04] Arrange mmap to be \0 terminated
\n has been found in the input and different lines can end with different line endings (e.g. mixed \n and \r\n in one file). This is common and ideal.
File ends abruptly with '4'. Final end-of-line is missing. Using cow page to write 0 to the last byte.
[05] Skipping initial rows if needed
Positioned on line 1 starting: <<FID_forQC IID_forQC SampleID_p>>
[06] Detect separator, quoting rule, and ncolumns
Detecting sep automatically ...
sep=0x9 with 100 lines of 14 fields using quote rule 0
Detected 14 columns on line 1. This line is either column names or first data row. Line starts as: <<FID_forQC IID_forQC SampleID_p>>
Quote rule picked = 0
fill=false and the most number of columns found is 14
[07] Detect column types, good nrow estimate and whether first row is column names
Number of sampling jump points = 10 because (322657 bytes from row 1 to eof) / (2 * 15634 jump0size) == 10
Type codes (jump 000) : AAAA55AAAAAAA5 Quote rule 0
Type codes (jump 010) : AAAAA5AAAAAAA5 Quote rule 0
'header' determined to be true due to column 6 containing a string on row 1 and a lower type (int32) in the rest of the 1070 sample rows
=====
Sampled 1070 rows (handled \n inside quoted fields) at 11 jump points
Bytes from first data row on line 2 to the end of last row: 322506
Line length: mean=132.61 sd=28.26 min=97 max=236
Estimated number of rows: 322506 / 132.61 = 2432
Initial alloc = 3324 rows (2432 + 36%) using bytes/max(mean-2*sd,min) clamped between [1.1*estn, 2.0*estn]
=====
[08] Assign column names
[09] Apply user overrides on column types
After 0 type and 0 drop user overrides : AAAAA5AAAAAAA5
[10] Allocate memory for the datatable
Allocating 14 column slots (14 - 0 dropped) with 3324 rows
[11] Read the data
jumps=[0..1), chunk_size=322506, total_size=322506
Read 2500 rows x 14 columns from 315.1KB (322657 bytes) file in 00:00.016 wall clock time
[12] Finalizing the datatable
Type counts:
2 : int32 '5'
12 : string 'A'
=============================
0.002s ( 11%) Memory map 0.000GB file
0.007s ( 44%) sep='\t' ncol=14 and header detection
0.000s ( 2%) Column type detection using 1070 sample rows
0.000s ( 2%) Allocation of 3324 rows x 14 cols (0.000GB) of which 2500 ( 75%) rows used
0.007s ( 41%) Reading 1 chunks (0 swept) of 0.308MB (each chunk 2500 rows) using 1 threads
+ 0.002s ( 14%) Parse to row-major thread buffers (grown 0 times)
+ 0.004s ( 25%) Transpose
+ 0.000s ( 2%) Waiting
0.000s ( 0%) Rereading 0 columns due to out-of-sample type exceptions
0.016s TotalAEGS1_2_3$Study_Number <- as.numeric(AEGS1_2_3$Study_Number)NAs introduced by coercionAEGS1_2_3$Age <- NULL
dim(AEGS1_2_3)[1] 2500 13head(AEGS1_2_3)
AEGS_raw <- merge(AEGS1_2_3, AEDB, by.x = "Study_Number", by.y = "STUDY_NUMBER", sort = FALSE,
all.x = TRUE)
dim(AEGS_raw)[1] 2500 1043warnings()
Here we will subset only those genotyped samples that passed genotyping quality control, are unrelated, and have informed consent.
AEGS_raw$Artery_summary <- to_factor(AEGS_raw$Artery_summary)
AEGS_raw$informedconsent <- to_factor(AEGS_raw$informedconsent)
table(AEGS_raw$Artery_summary, AEGS_raw$QC2018_FILTER)
family_discard family_keep issue passed
No artery known (yet), no surgery (patient ill, died, exited study), re-numbered to AAA 0 0 0 0
carotid (left & right) 22 21 326 1957
femoral/iliac (left, right or both sides) 1 0 17 109
other carotid arteries (common, external) 0 0 0 11
carotid bypass and injury (left, right or both sides) 0 0 0 1
aneurysmata (carotid & femoral) 0 0 0 0
aorta 0 0 0 0
other arteries (renal, popliteal, vertebral) 0 0 0 1
femoral bypass, angioseal and injury (left, right or both sides) 0 0 0 0table(AEGS_raw$informedconsent, AEGS_raw$QC2018_FILTER)
family_discard family_keep issue passed
missing 0 0 0 0
no, died 1 0 5 38
yes 17 16 262 1435
yes, health treatment when possible 2 2 41 322
yes, no health treatment 2 2 8 93
yes, no health treatment, no commercial business 0 0 0 15
yes, no tissue, no commerical business 0 0 0 0
yes, no tissue, no questionnaires, no medical info, no commercial business 0 0 0 0
yes, no questionnaires, no health treatment, no commercial business 0 0 0 1
yes, no questionnaires, health treatment when possible 0 0 1 2
yes, no tissue, no questionnaires, no health treatment, no commerical business 0 0 0 0
yes, no health treatment, no medical info, no commercial business 0 0 4 13
yes, no tissue, no questionnaires, no health treatment, no medical info, no commercial business 0 0 0 0
yes, no questionnaires, no health treatment 0 0 0 0
yes, no tissue, no health treatment 0 0 0 0
yes, no tissue, no questionnaires 0 0 0 0
yes, no tissue, health treatment when possible 0 0 0 0
yes, no tissue 0 0 0 0
yes, no commerical business 0 1 7 35
yes, health treatment when possible, no commercial business 0 0 0 25
yes, no medical info, no commercial business 0 0 1 4
yes, no questionnaires 0 0 0 1
yes, no tissue, no questionnaires, no health treatment, no medical info 0 0 0 0
yes, no tissue, no questionnaires, no health treatment, no commercial business 0 0 0 0
yes, no medical info 0 0 1 6
yes, no questionnaires, no commercial business 0 0 0 0
yes, no questionnaires, no health treatment, no medical info 0 0 0 1
yes, no questionnaires, health treatment when possible, no commercial business 0 0 0 0
yes, no health treatment, no medical info 0 0 0 5
no, doesn't want to 0 0 0 0
no, unable to sign 0 0 1 17
no, no reaction 0 0 6 14
no, lost 0 0 2 6
no, too old 0 0 4 18
yes, no medical info, health treatment when possible 0 0 0 2
no (never asked for IC because there was no tissue) 0 0 0 0
yes, no medical info, no commercial business, health treatment when possible 0 0 0 2
no, endpoint 0 0 0 0
wil niets invullen, wel alles gebruiken 0 0 0 7
second informed concents: yes, no commercial business 0 0 0 2
nooit geincludeerd 0 0 0 0AEGSselect <- subset(AEGS_raw,
QC2018_FILTER != "issue" & QC2018_FILTER != "family_discard" &
(Artery_summary == "carotid (left & right)" | Artery_summary == "other carotid arteries (common, external)") &
informedconsent != "missing" &
informedconsent != "no, died" &
informedconsent != "yes, no tissue, no commerical business" &
informedconsent != "yes, no tissue, no questionnaires, no medical info, no commercial business" &
informedconsent != "yes, no tissue, no questionnaires, no health treatment, no commerical business" &
informedconsent != "yes, no tissue, no questionnaires, no health treatment, no medical info, no commercial business" &
informedconsent != "yes, no tissue, no health treatment" &
informedconsent != "yes, no tissue, no questionnaires" &
informedconsent != "yes, no tissue, health treatment when possible" &
informedconsent != "yes, no tissue" &
informedconsent != "yes, no tissue, no questionnaires, no health treatment, no medical info" &
informedconsent != "yes, no tissue, no questionnaires, no health treatment, no commercial business" &
informedconsent != "no, doesn't want to" &
informedconsent != "no, unable to sign" &
informedconsent != "no, no reaction" &
informedconsent != "no, lost" &
informedconsent != "no, too old" &
informedconsent != "yes, no medical info, health treatment when possible" &
informedconsent != "no (never asked for IC because there was no tissue)" &
informedconsent != "no, endpoint" &
informedconsent != "nooit geincludeerd")
dim(AEGSselect)[1] 1889 1043table(AEGSselect$Artery_summary, AEGSselect$QC2018_FILTER)
family_keep passed
No artery known (yet), no surgery (patient ill, died, exited study), re-numbered to AAA 0 0
carotid (left & right) 21 1859
femoral/iliac (left, right or both sides) 0 0
other carotid arteries (common, external) 0 9
carotid bypass and injury (left, right or both sides) 0 0
aneurysmata (carotid & femoral) 0 0
aorta 0 0
other arteries (renal, popliteal, vertebral) 0 0
femoral bypass, angioseal and injury (left, right or both sides) 0 0table(AEGSselect$Artery_summary, AEGSselect$CHIP)
AffyAxiomCEU AffySNP5 IllGSA
No artery known (yet), no surgery (patient ill, died, exited study), re-numbered to AAA 0 0 0
carotid (left & right) 815 544 521
femoral/iliac (left, right or both sides) 0 0 0
other carotid arteries (common, external) 2 5 2
carotid bypass and injury (left, right or both sides) 0 0 0
aneurysmata (carotid & femoral) 0 0 0
aorta 0 0 0
other arteries (renal, popliteal, vertebral) 0 0 0
femoral bypass, angioseal and injury (left, right or both sides) 0 0 0table(AEGSselect$QC2018_FILTER, AEGSselect$CHIP)
AffyAxiomCEU AffySNP5 IllGSA
family_keep 8 1 12
passed 809 548 511table(AEGSselect$QC2018_FILTER, AEGSselect$SAMPLE_TYPE)
EDTA blood plaque unknown
family_keep 13 8 0
passed 1174 693 1AEDB.temp <- subset(AEGSselect, select = c("Study_Number", "UPID", "Age", "Gender", "Hospital", "Artery_summary", "QC2018_FILTER", "CHIP", "SAMPLE_TYPE"))
require(labelled)
AEDB.temp$Gender <- to_factor(AEDB.temp$Gender)
AEDB.temp$Hospital <- to_factor(AEDB.temp$Hospital)
AEDB.temp$Artery_summary <- to_factor(AEDB.temp$Artery_summary)
AEDB.temp$QC2018_FILTER <- to_factor(AEDB.temp$QC2018_FILTER)
AEDB.temp$CHIP <- to_factor(AEDB.temp$CHIP)
AEDB.temp$SAMPLE_TYPE <- to_factor(AEDB.temp$SAMPLE_TYPE)
DT::datatable(AEDB.temp[1:10,], caption = "Excerpt of the whole AEDB.", rownames = FALSE)
rm(AEDB.temp)
Baseline characteristics
Showing the baseline table of the whole Athero-Express Genomics Study.
# Create baseline tables
# http://rstudio-pubs-static.s3.amazonaws.com/13321_da314633db924dc78986a850813a50d5.html
basetable_vars_geno = c("Hospital",
"Age", "Gender",
"TC_final", "LDL_final", "HDL_final", "TG_final",
"hsCRP_plasma",
"systolic", "diastoli", "GFR_MDRD", "BMI",
"KDOQI", "BMI_WHO",
"SmokerCurrent", "eCigarettes", "ePackYearsSmoking",
"DiabetesStatus", "Hypertension.composite",
"Hypertension.drugs", "Med.anticoagulants", "Med.all.antiplatelet", "Med.Statin.LLD",
"Stroke_Dx", "sympt", "Symptoms.5G", "AsymptSympt",
"restenos", "stenose",
"EP_composite", "EP_composite_time",
"macmean0", "smcmean0", "Macrophages.bin", "SMC.bin",
"neutrophils", "Mast_cells_plaque",
"IPH.bin", "vessel_density_averaged",
"Calc.bin", "Collagen.bin",
"Fat.bin_10", "Fat.bin_40", "OverallPlaquePhenotype",
"IL6_pg_ug_2015", "MCP1_pg_ug_2015",
"QC2018_FILTER", "CHIP", "SAMPLE_TYPE")
basetable_bin_geno = c("Gender",
"KDOQI", "BMI_WHO",
"SmokerCurrent",
"DiabetesStatus", "Hypertension.composite",
"Hypertension.drugs", "Med.anticoagulants", "Med.all.antiplatelet", "Med.Statin.LLD",
"Stroke_Dx", "sympt", "Symptoms.5G", "AsymptSympt",
"restenos", "stenose",
"EP_composite", "Macrophages.bin", "SMC.bin",
"IPH.bin",
"Calc.bin", "Collagen.bin",
"Fat.bin_10", "Fat.bin_40", "OverallPlaquePhenotype",
"QC2018_FILTER", "CHIP", "SAMPLE_TYPE")
basetable_con_geno = basetable_vars_geno[!basetable_vars_geno %in% basetable_bin_geno]
AEGSselect.tableOne = print(CreateTableOne(vars = basetable_vars_geno,
# factorVars = basetable_bin,
# strata = "DiabetesStatus",
data = AEGSselect, includeNA = TRUE),
nonnormal = c(), missing = TRUE,
quote = FALSE, noSpaces = FALSE, showAllLevels = TRUE, explain = TRUE,
format = "pf",
contDigits = 3)[,1:2]
level Overall
n 1889
Hospital % (freq) St. Antonius, Nieuwegein 42.7 ( 807)
UMC Utrecht 57.3 (1082)
Age (mean (SD)) 69.143 (9.186)
Gender % (freq) female 31.8 ( 600)
male 68.2 (1289)
TC_final (mean (SD)) 4.764 (1.246)
LDL_final (mean (SD)) 2.802 (1.069)
HDL_final (mean (SD)) 1.203 (0.461)
TG_final (mean (SD)) 1.678 (0.994)
hsCRP_plasma (mean (SD)) 21.657 (243.628)
systolic (mean (SD)) 153.227 (25.351)
diastoli (mean (SD)) 81.799 (27.599)
GFR_MDRD (mean (SD)) 72.702 (20.665)
BMI (mean (SD)) 26.406 (3.890)
KDOQI % (freq) No data available/missing 0.0 ( 0)
Normal kidney function 18.3 ( 346)
CKD 2 (Mild) 52.5 ( 992)
CKD 3 (Moderate) 22.8 ( 430)
CKD 4 (Severe) 1.3 ( 24)
CKD 5 (Failure) 0.4 ( 7)
<NA> 4.8 ( 90)
BMI_WHO % (freq) No data available/missing 0.0 ( 0)
Underweight 1.0 ( 18)
Normal 35.8 ( 677)
Overweight 43.8 ( 827)
Obese 14.5 ( 273)
<NA> 5.0 ( 94)
SmokerCurrent % (freq) no data available/missing 0.0 ( 0)
no 65.7 (1242)
yes 33.1 ( 626)
<NA> 1.1 ( 21)
eCigarettes (mean (SD)) 168694.092 (149902.259)
ePackYearsSmoking (mean (SD)) 23.109 (20.535)
DiabetesStatus % (freq) Control (no Diabetes Dx/Med) 76.4 (1443)
Diabetes 23.6 ( 446)
Hypertension.composite % (freq) No data available/missing 0.0 ( 0)
no 14.1 ( 267)
yes 85.9 (1622)
Hypertension.drugs % (freq) No data available/missing 0.0 ( 0)
no 22.9 ( 433)
yes 77.0 (1454)
<NA> 0.1 ( 2)
Med.anticoagulants % (freq) No data available/missing 0.0 ( 0)
no 88.1 (1664)
yes 11.8 ( 223)
<NA> 0.1 ( 2)
Med.all.antiplatelet % (freq) No data available/missing 0.0 ( 0)
no 11.8 ( 222)
yes 88.0 (1663)
<NA> 0.2 ( 4)
Med.Statin.LLD % (freq) No data available/missing 0.0 ( 0)
no 20.6 ( 389)
yes 79.3 (1498)
<NA> 0.1 ( 2)
Stroke_Dx % (freq) Missing 0.0 ( 0)
No stroke diagnosed 72.3 (1366)
Stroke diagnosed 21.5 ( 407)
<NA> 6.1 ( 116)
sympt % (freq) missing 0.0 ( 0)
Asymptomatic 10.5 ( 199)
TIA 40.9 ( 773)
minor stroke 17.2 ( 324)
Major stroke 10.0 ( 189)
Amaurosis fugax 14.2 ( 268)
Four vessel disease 1.7 ( 32)
Vertebrobasilary TIA 0.2 ( 4)
Retinal infarction 1.5 ( 29)
Symptomatic, but aspecific symtoms 2.3 ( 44)
Contralateral symptomatic occlusion 0.3 ( 6)
retinal infarction 0.3 ( 5)
armclaudication due to occlusion subclavian artery, CEA needed for bypass 0.1 ( 1)
retinal infarction + TIAs 0.1 ( 2)
Ocular ischemic syndrome 0.2 ( 4)
ischemisch glaucoom 0.0 ( 0)
subclavian steal syndrome 0.1 ( 1)
TGA 0.0 ( 0)
<NA> 0.4 ( 8)
Symptoms.5G % (freq) Asymptomatic 10.5 ( 199)
Ocular 14.4 ( 272)
Other 4.4 ( 84)
Retinal infarction 1.8 ( 34)
Stroke 27.2 ( 513)
TIA 41.2 ( 779)
<NA> 0.4 ( 8)
AsymptSympt % (freq) Asymptomatic 10.5 ( 199)
Ocular and others 20.6 ( 390)
Symptomatic 68.4 (1292)
<NA> 0.4 ( 8)
restenos % (freq) missing 0.0 ( 0)
de novo 95.0 (1795)
restenosis 3.4 ( 65)
stenose bij angioseal na PTCA 0.0 ( 0)
<NA> 1.5 ( 29)
stenose % (freq) missing 0.0 ( 0)
0-49% 0.6 ( 11)
50-70% 7.0 ( 133)
70-90% 46.9 ( 885)
90-99% 39.9 ( 754)
100% (Occlusion) 1.0 ( 19)
NA 0.0 ( 0)
50-99% 0.4 ( 7)
70-99% 2.0 ( 38)
99 0.0 ( 0)
<NA> 2.2 ( 42)
EP_composite % (freq) No data available. 0.0 ( 0)
No composite endpoints 73.0 (1379)
Composite endpoints 24.7 ( 467)
<NA> 2.3 ( 43)
EP_composite_time (mean (SD)) 2.533 (1.091)
macmean0 (mean (SD)) 0.806 (1.235)
smcmean0 (mean (SD)) 1.983 (2.314)
Macrophages.bin % (freq) no/minor 37.0 ( 699)
moderate/heavy 45.5 ( 860)
<NA> 17.5 ( 330)
SMC.bin % (freq) no/minor 26.4 ( 498)
moderate/heavy 56.3 (1064)
<NA> 17.3 ( 327)
neutrophils (mean (SD)) 136.736 (276.117)
Mast_cells_plaque (mean (SD)) 161.412 (164.100)
IPH.bin % (freq) no 32.9 ( 622)
yes 50.0 ( 945)
<NA> 17.0 ( 322)
vessel_density_averaged (mean (SD)) 8.407 (6.362)
Calc.bin % (freq) no/minor 44.4 ( 838)
moderate/heavy 38.6 ( 730)
<NA> 17.0 ( 321)
Collagen.bin % (freq) no/minor 17.4 ( 329)
moderate/heavy 65.3 (1234)
<NA> 17.3 ( 326)
Fat.bin_10 % (freq) <10% 22.8 ( 430)
>10% 60.3 (1140)
<NA> 16.9 ( 319)
Fat.bin_40 % (freq) <40% 60.1 (1135)
>40% 23.0 ( 435)
<NA> 16.9 ( 319)
OverallPlaquePhenotype % (freq) atheromatous 22.3 ( 422)
fibroatheromatous 30.5 ( 576)
fibrous 30.1 ( 569)
<NA> 17.0 ( 322)
IL6_pg_ug_2015 (mean (SD)) 0.140 (0.570)
MCP1_pg_ug_2015 (mean (SD)) 0.611 (0.913)
QC2018_FILTER % (freq) family_keep 1.1 ( 21)
passed 98.9 (1868)
CHIP % (freq) AffyAxiomCEU 43.3 ( 817)
AffySNP5 29.1 ( 549)
IllGSA 27.7 ( 523)
SAMPLE_TYPE % (freq) EDTA blood 62.8 (1187)
plaque 37.1 ( 701)
unknown 0.1 ( 1)
Missing
n
Hospital % (freq) 0.0
Age (mean (SD)) 0.0
Gender % (freq) 0.0
TC_final (mean (SD)) 36.8
LDL_final (mean (SD)) 43.9
HDL_final (mean (SD)) 40.3
TG_final (mean (SD)) 41.2
hsCRP_plasma (mean (SD)) 45.5
systolic (mean (SD)) 11.8
diastoli (mean (SD)) 11.8
GFR_MDRD (mean (SD)) 4.7
BMI (mean (SD)) 4.9
KDOQI % (freq) 4.8
BMI_WHO % (freq) 5.0
SmokerCurrent % (freq) 1.1
eCigarettes (mean (SD)) 11.1
ePackYearsSmoking (mean (SD)) 11.1
DiabetesStatus % (freq) 0.0
Hypertension.composite % (freq) 0.0
Hypertension.drugs % (freq) 0.1
Med.anticoagulants % (freq) 0.1
Med.all.antiplatelet % (freq) 0.2
Med.Statin.LLD % (freq) 0.1
Stroke_Dx % (freq) 6.1
sympt % (freq) 0.4
Symptoms.5G % (freq) 0.4
AsymptSympt % (freq) 0.4
restenos % (freq) 1.5
stenose % (freq) 2.2
EP_composite % (freq) 2.3
EP_composite_time (mean (SD)) 2.4
macmean0 (mean (SD)) 22.6
smcmean0 (mean (SD)) 22.8
Macrophages.bin % (freq) 17.5
SMC.bin % (freq) 17.3
neutrophils (mean (SD)) 87.0
Mast_cells_plaque (mean (SD)) 88.8
IPH.bin % (freq) 17.0
vessel_density_averaged (mean (SD)) 27.9
Calc.bin % (freq) 17.0
Collagen.bin % (freq) 17.3
Fat.bin_10 % (freq) 16.9
Fat.bin_40 % (freq) 16.9
OverallPlaquePhenotype % (freq) 17.0
IL6_pg_ug_2015 (mean (SD)) 42.3
MCP1_pg_ug_2015 (mean (SD)) 40.0
QC2018_FILTER % (freq) 0.0
CHIP % (freq) 0.0
SAMPLE_TYPE % (freq) 0.0
AEGSselect.subset <- subset(AEGSselect, !is.na(IL6R_pg_ug_2015) | !is.na(MCP1_pg_ug_2015))
AEGSselect.subset.tableOne = print(CreateTableOne(vars = basetable_vars_geno,
# factorVars = basetable_bin,
# strata = "DiabetesStatus",
data = AEGSselect.subset, includeNA = TRUE),
nonnormal = c(), missing = TRUE,
quote = FALSE, noSpaces = FALSE, showAllLevels = TRUE, explain = TRUE,
format = "pf",
contDigits = 3)[,1:2]
level Overall
n 1135
Hospital % (freq) St. Antonius, Nieuwegein 48.1 ( 546)
UMC Utrecht 51.9 ( 589)
Age (mean (SD)) 68.793 (9.141)
Gender % (freq) female 31.2 ( 354)
male 68.8 ( 781)
TC_final (mean (SD)) 4.716 (1.240)
LDL_final (mean (SD)) 2.794 (1.042)
HDL_final (mean (SD)) 1.181 (0.472)
TG_final (mean (SD)) 1.655 (0.966)
hsCRP_plasma (mean (SD)) 15.331 (108.739)
systolic (mean (SD)) 156.078 (25.938)
diastoli (mean (SD)) 82.773 (13.368)
GFR_MDRD (mean (SD)) 71.563 (19.944)
BMI (mean (SD)) 26.344 (3.729)
KDOQI % (freq) No data available/missing 0.0 ( 0)
Normal kidney function 16.7 ( 190)
CKD 2 (Mild) 53.8 ( 611)
CKD 3 (Moderate) 24.7 ( 280)
CKD 4 (Severe) 1.1 ( 13)
CKD 5 (Failure) 0.4 ( 5)
<NA> 3.2 ( 36)
BMI_WHO % (freq) No data available/missing 0.0 ( 0)
Underweight 1.0 ( 11)
Normal 35.3 ( 401)
Overweight 46.2 ( 524)
Obese 13.0 ( 147)
<NA> 4.6 ( 52)
SmokerCurrent % (freq) no data available/missing 0.0 ( 0)
no 63.2 ( 717)
yes 35.2 ( 400)
<NA> 1.6 ( 18)
eCigarettes (mean (SD)) 169723.220 (152110.961)
ePackYearsSmoking (mean (SD)) 23.250 (20.837)
DiabetesStatus % (freq) Control (no Diabetes Dx/Med) 77.4 ( 879)
Diabetes 22.6 ( 256)
Hypertension.composite % (freq) No data available/missing 0.0 ( 0)
no 13.7 ( 155)
yes 86.3 ( 980)
Hypertension.drugs % (freq) No data available/missing 0.0 ( 0)
no 22.3 ( 253)
yes 77.5 ( 880)
<NA> 0.2 ( 2)
Med.anticoagulants % (freq) No data available/missing 0.0 ( 0)
no 87.7 ( 995)
yes 12.2 ( 138)
<NA> 0.2 ( 2)
Med.all.antiplatelet % (freq) No data available/missing 0.0 ( 0)
no 10.7 ( 121)
yes 89.0 (1010)
<NA> 0.4 ( 4)
Med.Statin.LLD % (freq) No data available/missing 0.0 ( 0)
no 21.8 ( 247)
yes 78.1 ( 886)
<NA> 0.2 ( 2)
Stroke_Dx % (freq) Missing 0.0 ( 0)
No stroke diagnosed 75.9 ( 862)
Stroke diagnosed 18.7 ( 212)
<NA> 5.4 ( 61)
sympt % (freq) missing 0.0 ( 0)
Asymptomatic 10.7 ( 122)
TIA 41.6 ( 472)
minor stroke 15.1 ( 171)
Major stroke 10.8 ( 123)
Amaurosis fugax 14.6 ( 166)
Four vessel disease 1.9 ( 22)
Vertebrobasilary TIA 0.2 ( 2)
Retinal infarction 1.3 ( 15)
Symptomatic, but aspecific symtoms 2.4 ( 27)
Contralateral symptomatic occlusion 0.5 ( 6)
retinal infarction 0.3 ( 3)
armclaudication due to occlusion subclavian artery, CEA needed for bypass 0.1 ( 1)
retinal infarction + TIAs 0.0 ( 0)
Ocular ischemic syndrome 0.1 ( 1)
ischemisch glaucoom 0.0 ( 0)
subclavian steal syndrome 0.0 ( 0)
TGA 0.0 ( 0)
<NA> 0.4 ( 4)
Symptoms.5G % (freq) Asymptomatic 10.7 ( 122)
Ocular 14.7 ( 167)
Other 4.9 ( 56)
Retinal infarction 1.6 ( 18)
Stroke 25.9 ( 294)
TIA 41.8 ( 474)
<NA> 0.4 ( 4)
AsymptSympt % (freq) Asymptomatic 10.7 ( 122)
Ocular and others 21.2 ( 241)
Symptomatic 67.7 ( 768)
<NA> 0.4 ( 4)
restenos % (freq) missing 0.0 ( 0)
de novo 94.8 (1076)
restenosis 2.8 ( 32)
stenose bij angioseal na PTCA 0.0 ( 0)
<NA> 2.4 ( 27)
stenose % (freq) missing 0.0 ( 0)
0-49% 0.5 ( 6)
50-70% 5.6 ( 64)
70-90% 45.3 ( 514)
90-99% 43.3 ( 492)
100% (Occlusion) 0.9 ( 10)
NA 0.0 ( 0)
50-99% 0.3 ( 3)
70-99% 0.9 ( 10)
99 0.0 ( 0)
<NA> 3.2 ( 36)
EP_composite % (freq) No data available. 0.0 ( 0)
No composite endpoints 73.5 ( 834)
Composite endpoints 25.6 ( 291)
<NA> 0.9 ( 10)
EP_composite_time (mean (SD)) 2.624 (1.115)
macmean0 (mean (SD)) 0.811 (1.239)
smcmean0 (mean (SD)) 1.950 (2.206)
Macrophages.bin % (freq) no/minor 46.7 ( 530)
moderate/heavy 51.8 ( 588)
<NA> 1.5 ( 17)
SMC.bin % (freq) no/minor 31.3 ( 355)
moderate/heavy 67.3 ( 764)
<NA> 1.4 ( 16)
neutrophils (mean (SD)) 143.096 (279.963)
Mast_cells_plaque (mean (SD)) 171.063 (174.262)
IPH.bin % (freq) no 38.0 ( 431)
yes 60.7 ( 689)
<NA> 1.3 ( 15)
vessel_density_averaged (mean (SD)) 8.521 (6.460)
Calc.bin % (freq) no/minor 50.2 ( 570)
moderate/heavy 48.5 ( 551)
<NA> 1.2 ( 14)
Collagen.bin % (freq) no/minor 20.7 ( 235)
moderate/heavy 78.2 ( 888)
<NA> 1.1 ( 12)
Fat.bin_10 % (freq) <10% 26.3 ( 298)
>10% 72.6 ( 824)
<NA> 1.1 ( 13)
Fat.bin_40 % (freq) <40% 71.3 ( 809)
>40% 27.6 ( 313)
<NA> 1.1 ( 13)
OverallPlaquePhenotype % (freq) atheromatous 27.4 ( 311)
fibroatheromatous 36.2 ( 411)
fibrous 35.1 ( 398)
<NA> 1.3 ( 15)
IL6_pg_ug_2015 (mean (SD)) 0.140 (0.570)
MCP1_pg_ug_2015 (mean (SD)) 0.611 (0.913)
QC2018_FILTER % (freq) family_keep 0.4 ( 5)
passed 99.6 (1130)
CHIP % (freq) AffyAxiomCEU 54.3 ( 616)
AffySNP5 40.5 ( 460)
IllGSA 5.2 ( 59)
SAMPLE_TYPE % (freq) EDTA blood 55.9 ( 635)
plaque 44.0 ( 499)
unknown 0.1 ( 1)
Missing
n
Hospital % (freq) 0.0
Age (mean (SD)) 0.0
Gender % (freq) 0.0
TC_final (mean (SD)) 32.2
LDL_final (mean (SD)) 38.7
HDL_final (mean (SD)) 35.2
TG_final (mean (SD)) 34.9
hsCRP_plasma (mean (SD)) 38.0
systolic (mean (SD)) 14.4
diastoli (mean (SD)) 14.4
GFR_MDRD (mean (SD)) 3.1
BMI (mean (SD)) 4.4
KDOQI % (freq) 3.2
BMI_WHO % (freq) 4.6
SmokerCurrent % (freq) 1.6
eCigarettes (mean (SD)) 9.7
ePackYearsSmoking (mean (SD)) 9.7
DiabetesStatus % (freq) 0.0
Hypertension.composite % (freq) 0.0
Hypertension.drugs % (freq) 0.2
Med.anticoagulants % (freq) 0.2
Med.all.antiplatelet % (freq) 0.4
Med.Statin.LLD % (freq) 0.2
Stroke_Dx % (freq) 5.4
sympt % (freq) 0.4
Symptoms.5G % (freq) 0.4
AsymptSympt % (freq) 0.4
restenos % (freq) 2.4
stenose % (freq) 3.2
EP_composite % (freq) 0.9
EP_composite_time (mean (SD)) 1.1
macmean0 (mean (SD)) 1.8
smcmean0 (mean (SD)) 2.1
Macrophages.bin % (freq) 1.5
SMC.bin % (freq) 1.4
neutrophils (mean (SD)) 81.7
Mast_cells_plaque (mean (SD)) 86.0
IPH.bin % (freq) 1.3
vessel_density_averaged (mean (SD)) 8.0
Calc.bin % (freq) 1.2
Collagen.bin % (freq) 1.1
Fat.bin_10 % (freq) 1.1
Fat.bin_40 % (freq) 1.1
OverallPlaquePhenotype % (freq) 1.3
IL6_pg_ug_2015 (mean (SD)) 4.0
MCP1_pg_ug_2015 (mean (SD)) 0.1
QC2018_FILTER % (freq) 0.0
CHIP % (freq) 0.0
SAMPLE_TYPE % (freq) 0.0
Let’s also save these baseline tables.
# Write basetable
require(openxlsx)
write.xlsx(file = paste0(BASELINE_loc, "/",Today,".",PROJECTNAME,".AEGS.BaselineTable.xlsx"),
AEGSselect.tableOne,
row.names = TRUE,
col.names = TRUE,
sheetName = "AEGS_Baseline")
write.xlsx(file = paste0(BASELINE_loc, "/",Today,".",PROJECTNAME,".AEGS.BaselineTable.subset.xlsx"),
AEGSselect.subset.tableOne,
row.names = TRUE,
col.names = TRUE,
sheetName = "AEGS_Baseline_subset")
Data exploration
Here we inspect the data and when necessary transform quantitative measures. We will inspect the raw, natural log transformed + the smallest measurement, and inverse-normal transformation.
summary(AEDB.CEA$IL6_pg_ug_2015) Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
0.0000 0.0157 0.0391 0.1376 0.0985 13.1882 1234 ggpubr::gghistogram(AEDB.CEA, "IL6_pg_ug_2015",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6 plaque levels",
xlab = "pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
min_IL6pg_ug_2015 <- min(AEDB.CEA$IL6_pg_ug_2015, na.rm = TRUE)
min_IL6pg_ug_2015[1] 1.927428e-05AEDB.CEA$IL6_pg_ug_2015_LN <- log(AEDB.CEA$IL6_pg_ug_2015 + min_IL6pg_ug_2015)
ggpubr::gghistogram(AEDB.CEA, "IL6_pg_ug_2015_LN",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6 plaque levels",
xlab = "natural log-transformed pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
AEDB.CEA$IL6_pg_ug_2015_rank <- qnorm((rank(AEDB.CEA$IL6_pg_ug_2015, na.last = "keep") - 0.5) / sum(!is.na(AEDB.CEA$IL6_pg_ug_2015)))
ggpubr::gghistogram(AEDB.CEA, "IL6_pg_ug_2015_rank",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6 plaque levels",
xlab = "inverse-normal transformation pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
summary(AEDB.CEA$IL6R_pg_ug_2015) Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
0.0000 0.0756 0.1472 0.2114 0.2526 4.0376 1232 ggpubr::gghistogram(AEDB.CEA, "IL6R_pg_ug_2015",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6R plaque levels",
xlab = "pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
min_IL6R_pg_ug_2015 <- min(AEDB.CEA$IL6R_pg_ug_2015, na.rm = TRUE)
min_IL6R_pg_ug_2015[1] 0AEDB.CEA$IL6R_pg_ug_2015_LN <- log(AEDB.CEA$IL6R_pg_ug_2015 + min_IL6R_pg_ug_2015)
ggpubr::gghistogram(AEDB.CEA, "IL6R_pg_ug_2015_LN",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6R plaque levels",
xlab = "natural log-transformed pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
AEDB.CEA$IL6R_pg_ug_2015_rank <- qnorm((rank(AEDB.CEA$IL6R_pg_ug_2015, na.last = "keep") - 0.5) / sum(!is.na(AEDB.CEA$IL6R_pg_ug_2015)))
ggpubr::gghistogram(AEDB.CEA, "IL6R_pg_ug_2015_rank",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6R plaque levels",
xlab = "inverse-normal transformation pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
summary(AEDB.CEA$MCP1_pg_ug_2015) Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
0.0005 0.1376 0.3407 0.6120 0.7240 10.8540 1188 ggpubr::gghistogram(AEDB.CEA, "MCP1_pg_ug_2015",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "MCP1 plaque levels",
xlab = "pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
min_MCP1_pg_ug_2015 <- min(AEDB.CEA$MCP1_pg_ug_2015, na.rm = TRUE)
min_MCP1_pg_ug_2015[1] 0.0004584575AEDB.CEA$MCP1_pg_ug_2015_LN <- log(AEDB.CEA$MCP1_pg_ug_2015 + min_MCP1_pg_ug_2015)
ggpubr::gghistogram(AEDB.CEA, "MCP1_pg_ug_2015_LN",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "MCP1 plaque levels",
xlab = "natural log-transformed pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
AEDB.CEA$MCP1_pg_ug_2015_rank <- qnorm((rank(AEDB.CEA$MCP1_pg_ug_2015, na.last = "keep") - 0.5) / sum(!is.na(AEDB.CEA$MCP1_pg_ug_2015)))
ggpubr::gghistogram(AEDB.CEA, "MCP1_pg_ug_2015_rank",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "MCP1 plaque levels",
xlab = "inverse-normal transformation pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
summary(AEDB.CEA$IL6) Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
0.00 18.31 42.24 98.62 91.53 4586.07 1859 ggpubr::gghistogram(AEDB.CEA, "IL6",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6 serum levels",
xlab = "pg/mL",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
min_IL6 <- min(AEDB.CEA$IL6, na.rm = TRUE)
min_IL6[1] 0AEDB.CEA$IL6_LN <- log(AEDB.CEA$IL6 + min_IL6)
ggpubr::gghistogram(AEDB.CEA, "IL6_LN",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6 serum levels",
xlab = "natural log-transformed pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
AEDB.CEA$IL6_rank <- qnorm((rank(AEDB.CEA$IL6, na.last = "keep") - 0.5) / sum(!is.na(AEDB.CEA$IL6)))
ggpubr::gghistogram(AEDB.CEA, "IL6_rank",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "IL6 serum levels",
xlab = "inverse-normal transformation pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
summary(AEDB.CEA$MCP1) Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
0.00 56.42 103.00 135.76 178.99 926.27 1823 ggpubr::gghistogram(AEDB.CEA, "MCP1",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "MCP1 serum levels",
xlab = "pg/mL",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
min_MCP1 <- min(AEDB.CEA$MCP1, na.rm = TRUE)
min_MCP1[1] 0AEDB.CEA$MCP1_LN <- log(AEDB.CEA$MCP1 + min_MCP1)
ggpubr::gghistogram(AEDB.CEA, "MCP1_LN",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "MCP1 serum levels",
xlab = "natural log-transformed pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
AEDB.CEA$MCP1_rank <- qnorm((rank(AEDB.CEA$MCP1, na.last = "keep") - 0.5) / sum(!is.na(AEDB.CEA$MCP1)))
ggpubr::gghistogram(AEDB.CEA, "MCP1_rank",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "mean",
# rug = TRUE,
# add.params = list(color = "black", linetype = 2),
title = "MCP1 serum levels",
xlab = "inverse-normal transformation pg/ug",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
Preliminary conclusion data exploration
After discussion we decided to pursuit the following strategy. In line with the previous work by Marios Georgakis we will apply natural log transformation on all proteins and focus the analysis on:
- MCP1 (serum and plaque),
- IL6 (serum and plaque), and
- IL6R (in plaque).
Analyses
The analyses are focused on three elements:
- plaque vulnerability phenotypes
- clinical status at inclusion (symptoms)
- secondary clinical outcome during three (3) years of follow-up
Covariates & other variables
- Age (continuous in 1-year increment). [Age]
- Sex (male vs. female). [Gender]
- Presence of hypertension at baseline (defined either as history of hypertension, SBP ≥140 mm Hg, DBP ≥90 mm Hg, or prescription of antihypertensive medications). [Hypertension.composite]
- Presence of diabetes mellitus at baseline (defined either as a history of diabetes, administration of glucose lowering medication, HbA1c ≥6.5%, fasting glucose ≥126 mg/dl, .or random glucose levels ≥200 mg/dl). [DiabetesStatus]
- Smoking (current, ex-, never). [SmokerCurrent]
- LDL-C levels (continuous). [LDL_final]
- Use of lipid-lowering drugs. [Med.Statin.LLD]
- Use of antiplatelet drugs. [Med.all.antiplatelet]
- eGFR (continuous). [GFR_MDRD]
- BMI (continuous). [BMI]
- History of cardiovascular disease (stroke, coronary artery disease, peripheral artery disease). [CAD_history, Stroke_history, Peripheral.interv]
- Level of stenosis (50-70% vs. 70-99%). [stenose]
- Presenting symptoms (asymptomatic, ocular, TIA, or stroke). [Symptoms.5G]
- hsCRP circulating levels (ln-transformed, continuous). [hsCRP_plasma]
- IL-6 plaque levels (ln-transformed, continuous). [IL6_pg_ug_2015_LN]
Models
We will analyze the data through four different models
- Model 1: adjusted for age and sex
- Model 2: adjusted for age, sex, hypertension, diabetes, smoking, LDL-C levels, lipid-lowering drugs, antiplatelet drugs, eGFR, BMI, history of CVD, level of stenosis,
- Model 3: same to model 2, with additional adjustments for circulating CRP levels
- Model 4: same to model 2 with additional adjustment for IL6 levels in the plaque
A. Cross-sectional analysis plaque phenotypes
In the cross-sectional analysis of plaque and serum MCP1, IL6, and IL6R levels we will focus on the following plaque vulnerability phenotypes:
- Percentage of macrophages (continuous trait)
- Percentage of SMCs (continuous trait)
- Number of intraplaque microvessels per 3-4 hotspots (continuous trait)
- Presence of moderate/heavy calcifications (binary trait)
- Presence of moderate/heavy collagen content (binary trait)
- Presence of lipid core no/<10% vs. >10% (binary trait)
- Presence of intraplaque hemorrhage (binary trait)
Continous traits
# macrophages
cat("Summary of data.\n")Summary of data.summary(AEDB.CEA$macmean0) Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
0.0000 0.0733 0.3133 0.7688 1.0000 15.1000 679 min_macmean <- min(AEDB.CEA$macmean0, na.rm = TRUE)
cat(paste0("\nMinimum value % macrophages: ",min_macmean,".\n"))
Minimum value % macrophages: 0.AEDB.CEA$Macrophages_LN <- log(AEDB.CEA$macmean0 + min_macmean)
ggpubr::gghistogram(AEDB.CEA, "Macrophages_LN",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "median",
#add_density = TRUE,
rug = TRUE,
#add.params = list(color = "black", linetype = 2),
title = "% macrophages",
xlab = "natural log-transformed %",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
AEDB.CEA$Macrophages_rank <- qnorm((rank(AEDB.CEA$macmean0, na.last = "keep") - 0.5) / sum(!is.na(AEDB.CEA$macmean0)))
ggpubr::gghistogram(AEDB.CEA, "Macrophages_rank",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "median",
#add_density = TRUE,
rug = TRUE,
#add.params = list(color = "black", linetype = 2),
title = "% macrophages",
xlab = "inverse-rank normalized %",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
# smooth muscle cells
cat("Summary of data.\n")Summary of data.summary(AEDB.CEA$macmean0) Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
0.0000 0.0733 0.3133 0.7688 1.0000 15.1000 679 min_smcmean <- min(AEDB.CEA$smcmean0, na.rm = TRUE)
cat(paste0("\nMinimum value % smooth muscle cells: ",min_smcmean,".\n"))
Minimum value % smooth muscle cells: 0.AEDB.CEA$SMC_LN <- log(AEDB.CEA$smcmean0 + min_smcmean)
ggpubr::gghistogram(AEDB.CEA, "SMC_LN",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "median",
#add_density = TRUE,
rug = TRUE,
#add.params = list(color = "black", linetype = 2),
title = "% smooth muscle cells",
xlab = "natural log-transformed %",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
AEDB.CEA$SMC_rank <- qnorm((rank(AEDB.CEA$smcmean0, na.last = "keep") - 0.5) / sum(!is.na(AEDB.CEA$smcmean0)))
ggpubr::gghistogram(AEDB.CEA, "SMC_rank",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "median",
#add_density = TRUE,
rug = TRUE,
#add.params = list(color = "black", linetype = 2),
title = "% smooth muscle cells",
xlab = "inverse-rank normalized %",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
# vessel density
cat("Summary of data.\n")Summary of data.summary(AEDB.CEA$vessel_density_averaged) Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
0.000 4.000 7.000 8.322 11.300 48.000 813 min_vesseldensity <- min(AEDB.CEA$vessel_density_averaged, na.rm = TRUE)
min_vesseldensity[1] 0cat(paste0("\nMinimum value number of intraplaque neovessels per 3-4 hotspots: ",min_vesseldensity,".\n"))
Minimum value number of intraplaque neovessels per 3-4 hotspots: 0.AEDB.CEA$VesselDensity_LN <- log(AEDB.CEA$vessel_density_averaged + min_vesseldensity)
ggpubr::gghistogram(AEDB.CEA, "VesselDensity_LN",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "median",
#add_density = TRUE,
rug = TRUE,
#add.params = list(color = "black", linetype = 2),
title = "number of intraplaque neovessels per 3-4 hotspots",
xlab = "natural log-transformed number",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
AEDB.CEA$VesselDensity_rank <- qnorm((rank(AEDB.CEA$vessel_density_averaged, na.last = "keep") - 0.5) / sum(!is.na(AEDB.CEA$vessel_density_averaged)))
ggpubr::gghistogram(AEDB.CEA, "VesselDensity_rank",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#1290D9", "#DB003F"),
add = "median",
#add_density = TRUE,
rug = TRUE,
#add.params = list(color = "black", linetype = 2),
title = "number of intraplaque neovessels per 3-4 hotspots",
xlab = "inverse-rank normalized number",
ggtheme = theme_minimal())Using `bins = 30` by default. Pick better value with the argument `bins`.
Binary traits
# calcification
cat("Summary of data.\n")Summary of data.summary(AEDB.CEA$Calc.bin) no/minor moderate/heavy NA's
1005 852 531 contrasts(AEDB.CEA$Calc.bin) moderate/heavy
no/minor 0
moderate/heavy 1AEDB.CEA$CalcificationPlaque <- as.factor(AEDB.CEA$Calc.bin)
df <- AEDB.CEA %>%
filter(!is.na(CalcificationPlaque)) %>%
group_by(Gender, CalcificationPlaque) %>%
summarise(counts = n())
ggpubr::ggbarplot(df, x = "CalcificationPlaque", y = "counts",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#DB003F", "#1290D9"),
label = TRUE, lab.vjust = 2, lab.col = "#FFFFFF",
title = "Calcification",
xlab = "calcification",
ggtheme = theme_minimal())
rm(df)
# collagen
cat("Summary of data.\n")Summary of data.summary(AEDB.CEA$Collagen.bin) no/minor moderate/heavy NA's
381 1472 535 contrasts(AEDB.CEA$Collagen.bin) moderate/heavy
no/minor 0
moderate/heavy 1AEDB.CEA$CollagenPlaque <- as.factor(AEDB.CEA$Collagen.bin)
df <- AEDB.CEA %>%
filter(!is.na(CollagenPlaque)) %>%
group_by(Gender, CollagenPlaque) %>%
summarise(counts = n())
ggpubr::ggbarplot(df, x = "CollagenPlaque", y = "counts",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#DB003F", "#1290D9"),
label = TRUE, lab.vjust = 2, lab.col = "#FFFFFF",
title = "Collagen",
xlab = "collagen",
ggtheme = theme_minimal())
rm(df)
# fat 10%
cat("Summary of data.\n")Summary of data.summary(AEDB.CEA$Fat.bin_10) <10% >10% NA's
541 1321 526 contrasts(AEDB.CEA$Fat.bin_10) >10%
<10% 0
>10% 1AEDB.CEA$Fat10Perc <- as.factor(AEDB.CEA$Fat.bin_10)
df <- AEDB.CEA %>%
filter(!is.na(Fat10Perc)) %>%
group_by(Gender, Fat10Perc) %>%
summarise(counts = n())
ggpubr::ggbarplot(df, x = "Fat10Perc", y = "counts",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#DB003F", "#1290D9"),
label = TRUE, lab.vjust = 2, lab.col = "#FFFFFF",
title = "Intraplaque fat",
xlab = "intraplaque fat",
ggtheme = theme_minimal())
rm(df)
# IPH
cat("Summary of data.\n")Summary of data.summary(AEDB.CEA$IPH.bin) no yes NA's
747 1111 530 contrasts(AEDB.CEA$IPH.bin) yes
no 0
yes 1AEDB.CEA$IPH <- as.factor(AEDB.CEA$IPH.bin)
df <- AEDB.CEA %>%
filter(!is.na(IPH)) %>%
group_by(Gender, IPH) %>%
summarise(counts = n())
ggpubr::ggbarplot(df, x = "IPH", y = "counts",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#DB003F", "#1290D9"),
label = TRUE, lab.vjust = 2, lab.col = "#FFFFFF",
title = "Intraplaque hemorrhage",
xlab = "intraplaque hemorrhage",
ggtheme = theme_minimal())
rm(df)
# Symptoms
cat("Summary of data.\n")Summary of data.summary(AEDB.CEA$AsymptSympt) Asymptomatic Ocular and others Symptomatic NA's
266 529 1582 11 contrasts(AEDB.CEA$AsymptSympt) Ocular and others Symptomatic
Asymptomatic 0 0
Ocular and others 1 0
Symptomatic 0 1AEDB.CEA$AsymptSympt <- as.factor(AEDB.CEA$AsymptSympt)
df <- AEDB.CEA %>%
filter(!is.na(AsymptSympt)) %>%
group_by(Gender, AsymptSympt) %>%
summarise(counts = n())
ggpubr::ggbarplot(df, x = "AsymptSympt", y = "counts",
# y = "..count..",
color = "white",
fill = "Gender",
palette = c("#DB003F", "#1290D9"),
label = TRUE, lab.vjust = 2, lab.col = "#FFFFFF",
title = "Symptoms",
xlab = "symptoms",
ggtheme = theme_minimal())
rm(df)
In this section we make some variables to assist with analysis.
AEDB.CEA.samplesize = nrow(AEDB.CEA)
TRAITS.PROTEIN = c("IL6_LN", "MCP1_LN", "IL6_pg_ug_2015_LN", "IL6R_pg_ug_2015_LN", "MCP1_pg_ug_2015_LN")
TRAITS.PROTEIN.RANK = c("IL6_rank", "MCP1_rank", "IL6_pg_ug_2015_rank", "IL6R_pg_ug_2015_rank", "MCP1_pg_ug_2015_rank")
TRAITS.CON = c("Macrophages_LN", "SMC_LN", "VesselDensity_LN")
TRAITS.CON.RANK = c("Macrophages_rank", "SMC_rank", "VesselDensity_rank")
TRAITS.BIN = c("CalcificationPlaque", "CollagenPlaque", "Fat10Perc", "IPH")
# "Hospital",
# "Age", "Gender",
# "TC_final", "LDL_final", "HDL_final", "TG_final",
# "systolic", "diastoli", "GFR_MDRD", "BMI",
# "KDOQI", "BMI_WHO",
# "SmokerCurrent", "eCigarettes", "ePackYearsSmoking",
# "DiabetesStatus", "Hypertension.composite",
# "Hypertension.drugs", "Med.anticoagulants", "Med.all.antiplatelet", "Med.Statin.LLD",
# "Stroke_Dx", "sympt", "Symptoms.5G", "restenos",
# "EP_composite", "EP_composite_time",
# "macmean0", "smcmean0", "Macrophages.bin", "SMC.bin",
# "neutrophils", "Mast_cells_plaque",
# "IPH.bin", "vessel_density_averaged",
# "Calc.bin", "Collagen.bin",
# "Fat.bin_10", "Fat.bin_40", "OverallPlaquePhenotype",
# "IL6_pg_ug_2015", "MCP1_pg_ug_2015",
# "QC2018_FILTER", "CHIP", "SAMPLE_TYPE",
# "CAD_history", "Stroke_history", "Peripheral.interv",
# "stenose"
# 1. Age (continuous in 1-year increment). [Age]
# 2. Sex (male vs. female). [Gender]
# 3. Presence of hypertension at baseline (defined either as history of hypertension, SBP ≥140 mm Hg, DBP ≥90 mm Hg, or prescription of antihypertensive medications). [Hypertension.composite]
# 4. Presence of diabetes mellitus at baseline (defined either as a history of diabetes, administration of glucose lowering medication, HbA1c ≥6.5%, fasting glucose ≥126 mg/dl, .or random glucose levels ≥200 mg/dl). [DiabetesStatus]
# 5. Smoking (current, ex-, never). [SmokerCurrent]
# 6. LDL-C levels (continuous). [LDL_final]
# 7. Use of lipid-lowering drugs. [Med.Statin.LLD]
# 8. Use of antiplatelet drugs. [Med.all.antiplatelet]
# 9. eGFR (continuous). [GFR_MDRD]
# 10. BMI (continuous). [BMI]
# 11. History of cardiovascular disease (stroke, coronary artery disease, peripheral artery disease). [CAD_history, Stroke_history, Peripheral.interv]
# 12. Level of stenosis (50-70% vs. 70-99%). [stenose]
# 13. Presenting symptoms (asymptomatic, ocular, TIA, or stroke). [Symptoms.5G]
# 14. hsCRP circulating levels (ln-transformed, continuous). [hsCRP_plasma]
# 15. IL-6 plaque levels (ln-transformed, continuous). [IL6_pg_ug_2015_LN]
# Models
# Model 1: adjusted for age and sex
# Model 2: adjusted for age, sex, hypertension, diabetes, smoking, LDL-C levels, lipid-lowering drugs, antiplatelet drugs, eGFR, BMI, history of CVD, level of stenosis,
# Model 3: same to model 2, with additional adjustments for circulating CRP levels
# Model 4: same to model 2 with additional adjustment for IL6 levels in the plaque
COVARIATES_M1 = c("Age", "Gender")
COVARIATES_M2 = c(COVARIATES_M1,
"Hypertension.composite", "DiabetesStatus", "SmokerCurrent",
"Med.Statin.LLD", "Med.all.antiplatelet",
"GFR_MDRD", "BMI",
"CAD_history", "Stroke_history", "Peripheral.interv",
"stenose")
COVARIATES_M3 = c(COVARIATES_M2, "LDL_final")
COVARIATES_M4 = c(COVARIATES_M2, "hsCRP_plasma")
COVARIATES_M5 = c(COVARIATES_M2, "IL6_pg_ug_2015_LN")
COVARIATES_M5rank = c(COVARIATES_M2, "IL6_pg_ug_2015_rank")
Model 1
In this model we correct for Age and Gender.
Natural log-transformed data
First we use the natural-log transformed data.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON)) {
TRAIT = TRAITS.CON[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M1) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender, data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing Macrophages_LNNote: Using an external vector in selections is ambiguous.
[34mℹ[39m Use `all_of(PROTEIN)` instead of `PROTEIN` to silence this message.
[34mℹ[39m See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
[90mThis message is displayed once per session.[39m
Note: Using an external vector in selections is ambiguous.
[34mℹ[39m Use `all_of(TRAIT)` instead of `TRAIT` to silence this message.
[34mℹ[39m See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
[90mThis message is displayed once per session.[39m
Note: Using an external vector in selections is ambiguous.
[34mℹ[39m Use `all_of(COVARIATES_M1)` instead of `COVARIATES_M1` to silence this message.
[34mℹ[39m See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
[90mThis message is displayed once per session.[39m
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender, data = currentDF)
Coefficients:
(Intercept) Gendermale
4.1909 -0.2708
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.9465 -0.7303 -0.0195 0.6615 4.2982
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 4.1972956 0.4035182 10.402 <2e-16 ***
currentDF[, TRAIT] -0.0251343 0.0259780 -0.968 0.3338
Age -0.0006383 0.0058262 -0.110 0.9128
Gendermale -0.2645982 0.1132391 -2.337 0.0199 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.059 on 437 degrees of freedom
Multiple R-squared: 0.01508, Adjusted R-squared: 0.008318
F-statistic: 2.23 on 3 and 437 DF, p-value: 0.08402
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.025134
Standard error............: 0.025978
Odds ratio (effect size)..: 0.975
Lower 95% CI..............: 0.927
Upper 95% CI..............: 1.026
T-value...................: -0.96752
P-value...................: 0.3338192
R^2.......................: 0.01508
Adjusted r^2..............: 0.008318
Sample size of AE DB......: 2388
Sample size of model......: 441
Missing data %............: 81.53266
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender, data = currentDF)
Coefficients:
(Intercept) Gendermale
4.2091 -0.2669
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.8987 -0.7242 -0.0527 0.6511 4.2160
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 4.314537 0.399343 10.804 <2e-16 ***
currentDF[, TRAIT] 0.007338 0.031360 0.234 0.8151
Age -0.001604 0.005778 -0.278 0.7815
Gendermale -0.263661 0.110671 -2.382 0.0176 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.045 on 442 degrees of freedom
Multiple R-squared: 0.01344, Adjusted R-squared: 0.006746
F-statistic: 2.008 on 3 and 442 DF, p-value: 0.1122
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.007338
Standard error............: 0.03136
Odds ratio (effect size)..: 1.007
Lower 95% CI..............: 0.947
Upper 95% CI..............: 1.071
T-value...................: 0.233991
P-value...................: 0.8151004
R^2.......................: 0.013442
Adjusted r^2..............: 0.006746
Sample size of AE DB......: 2388
Sample size of model......: 446
Missing data %............: 81.32328
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender, data = currentDF)
Coefficients:
(Intercept) Gendermale
4.1737 -0.2411
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.9272 -0.7067 -0.0407 0.6631 4.2723
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 4.443868 0.434233 10.234 <2e-16 ***
currentDF[, TRAIT] -0.013742 0.076611 -0.179 0.8577
Age -0.003625 0.005870 -0.618 0.5372
Gendermale -0.238944 0.112701 -2.120 0.0346 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.062 on 435 degrees of freedom
Multiple R-squared: 0.01135, Adjusted R-squared: 0.004533
F-statistic: 1.665 on 3 and 435 DF, p-value: 0.1739
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.013742
Standard error............: 0.076611
Odds ratio (effect size)..: 0.986
Lower 95% CI..............: 0.849
Upper 95% CI..............: 1.146
T-value...................: -0.179371
P-value...................: 0.8577301
R^2.......................: 0.011351
Adjusted r^2..............: 0.004533
Sample size of AE DB......: 2388
Sample size of model......: 439
Missing data %............: 81.61642
Analysis of MCP1_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale
4.923018 0.046963 -0.005936 0.195165
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3536 -0.5289 0.0671 0.5818 2.1581
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 4.923018 0.285874 17.221 <2e-16 ***
currentDF[, TRAIT] 0.046963 0.018735 2.507 0.0125 *
Age -0.005936 0.004146 -1.432 0.1528
Gendermale 0.195165 0.079815 2.445 0.0148 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8323 on 538 degrees of freedom
Multiple R-squared: 0.02649, Adjusted R-squared: 0.02106
F-statistic: 4.88 on 3 and 538 DF, p-value: 0.002345
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.046963
Standard error............: 0.018735
Odds ratio (effect size)..: 1.048
Lower 95% CI..............: 1.01
Upper 95% CI..............: 1.087
T-value...................: 2.506756
P-value...................: 0.01247829
R^2.......................: 0.026489
Adjusted r^2..............: 0.02106
Sample size of AE DB......: 2388
Sample size of model......: 542
Missing data %............: 77.30318
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale
5.24911 -0.11266 -0.01154 0.18294
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.15990 -0.51382 0.02868 0.55074 2.09503
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.24911 0.28416 18.472 < 2e-16 ***
currentDF[, TRAIT] -0.11266 0.02236 -5.039 6.39e-07 ***
Age -0.01154 0.00411 -2.809 0.00516 **
Gendermale 0.18294 0.07777 2.352 0.01902 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8187 on 544 degrees of freedom
Multiple R-squared: 0.06307, Adjusted R-squared: 0.0579
F-statistic: 12.21 on 3 and 544 DF, p-value: 9.694e-08
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.112658
Standard error............: 0.022359
Odds ratio (effect size)..: 0.893
Lower 95% CI..............: 0.855
Upper 95% CI..............: 0.933
T-value...................: -5.038517
P-value...................: 6.394823e-07
R^2.......................: 0.063065
Adjusted r^2..............: 0.057899
Sample size of AE DB......: 2388
Sample size of model......: 548
Missing data %............: 77.05193
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale
5.054615 -0.076923 -0.006881 0.239377
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3180 -0.5236 0.0519 0.5880 2.0237
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.054615 0.307454 16.440 < 2e-16 ***
currentDF[, TRAIT] -0.076923 0.052418 -1.467 0.14283
Age -0.006881 0.004145 -1.660 0.09744 .
Gendermale 0.239377 0.079943 2.994 0.00288 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8369 on 536 degrees of freedom
Multiple R-squared: 0.02449, Adjusted R-squared: 0.01903
F-statistic: 4.485 on 3 and 536 DF, p-value: 0.004028
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.076923
Standard error............: 0.052418
Odds ratio (effect size)..: 0.926
Lower 95% CI..............: 0.836
Upper 95% CI..............: 1.026
T-value...................: -1.467485
P-value...................: 0.1428307
R^2.......................: 0.024489
Adjusted r^2..............: 0.019029
Sample size of AE DB......: 2388
Sample size of model......: 540
Missing data %............: 77.38693
Analysis of IL6_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
-3.0631 0.1245
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.8417 -0.9325 -0.0252 0.8651 5.1402
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.905299 0.333376 -8.715 < 2e-16 ***
currentDF[, TRAIT] 0.123333 0.024351 5.065 4.79e-07 ***
Age -0.002355 0.004747 -0.496 0.620
Gendermale 0.003428 0.094980 0.036 0.971
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.445 on 1103 degrees of freedom
Multiple R-squared: 0.02367, Adjusted R-squared: 0.02101
F-statistic: 8.913 on 3 and 1103 DF, p-value: 7.742e-06
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.123333
Standard error............: 0.024351
Odds ratio (effect size)..: 1.131
Lower 95% CI..............: 1.079
Upper 95% CI..............: 1.187
T-value...................: 5.064799
P-value...................: 4.78904e-07
R^2.......................: 0.023669
Adjusted r^2..............: 0.021013
Sample size of AE DB......: 2388
Sample size of model......: 1107
Missing data %............: 53.64322
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age
-2.686652 -0.126982 -0.007997
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.6298 -0.9666 -0.0141 0.9192 5.5295
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.675010 0.338711 -7.898 6.78e-15 ***
currentDF[, TRAIT] -0.127595 0.029628 -4.307 1.80e-05 ***
Age -0.008007 0.004792 -1.671 0.095 .
Gendermale -0.015907 0.095341 -0.167 0.868
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.455 on 1114 degrees of freedom
Multiple R-squared: 0.01734, Adjusted R-squared: 0.0147
F-statistic: 6.553 on 3 and 1114 DF, p-value: 0.0002158
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.127595
Standard error............: 0.029628
Odds ratio (effect size)..: 0.88
Lower 95% CI..............: 0.831
Upper 95% CI..............: 0.933
T-value...................: -4.306616
P-value...................: 1.803788e-05
R^2.......................: 0.017342
Adjusted r^2..............: 0.014696
Sample size of AE DB......: 2388
Sample size of model......: 1118
Missing data %............: 53.18258
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ 1, data = currentDF)
Coefficients:
(Intercept)
-3.243
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.8345 -0.9328 -0.0131 0.9318 5.8822
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.877457 0.368338 -7.812 1.42e-14 ***
currentDF[, TRAIT] -0.064379 0.053023 -1.214 0.225
Age -0.003647 0.005075 -0.719 0.473
Gendermale 0.007720 0.100992 0.076 0.939
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.473 on 999 degrees of freedom
Multiple R-squared: 0.00202, Adjusted R-squared: -0.0009774
F-statistic: 0.6739 on 3 and 999 DF, p-value: 0.5681
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.064379
Standard error............: 0.053023
Odds ratio (effect size)..: 0.938
Lower 95% CI..............: 0.845
Upper 95% CI..............: 1.04
T-value...................: -1.214169
P-value...................: 0.22497
R^2.......................: 0.00202
Adjusted r^2..............: -0.000977
Sample size of AE DB......: 2388
Sample size of model......: 1003
Missing data %............: 57.99833
Analysis of IL6R_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
-1.9115 0.1083
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.5941 -0.5052 0.1368 0.6836 3.4909
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.626395 0.264230 -6.155 1.05e-09 ***
currentDF[, TRAIT] 0.108785 0.018985 5.730 1.29e-08 ***
Age -0.003074 0.003757 -0.818 0.413
Gendermale -0.103988 0.075059 -1.385 0.166
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.137 on 1101 degrees of freedom
Multiple R-squared: 0.03136, Adjusted R-squared: 0.02872
F-statistic: 11.88 on 3 and 1101 DF, p-value: 1.164e-07
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.108785
Standard error............: 0.018985
Odds ratio (effect size)..: 1.115
Lower 95% CI..............: 1.074
Upper 95% CI..............: 1.157
T-value...................: 5.73014
P-value...................: 1.294368e-08
R^2.......................: 0.031358
Adjusted r^2..............: 0.028718
Sample size of AE DB......: 2388
Sample size of model......: 1105
Missing data %............: 53.72697
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
-2.05286 0.05653
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.7438 -0.5087 0.1450 0.6970 3.5044
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.704077 0.268477 -6.347 3.19e-10 ***
currentDF[, TRAIT] 0.050503 0.023530 2.146 0.0321 *
Age -0.004681 0.003790 -1.235 0.2170
Gendermale -0.039226 0.075239 -0.521 0.6022
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.145 on 1113 degrees of freedom
Multiple R-squared: 0.006947, Adjusted R-squared: 0.00427
F-statistic: 2.595 on 3 and 1113 DF, p-value: 0.05119
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.050503
Standard error............: 0.02353
Odds ratio (effect size)..: 1.052
Lower 95% CI..............: 1.004
Upper 95% CI..............: 1.101
T-value...................: 2.146317
P-value...................: 0.03206336
R^2.......................: 0.006947
Adjusted r^2..............: 0.00427
Sample size of AE DB......: 2388
Sample size of model......: 1117
Missing data %............: 53.22446
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age
-1.878208 0.134082 -0.005983
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.7594 -0.4963 0.1434 0.6755 3.4833
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.833764 0.294155 -6.234 6.71e-10 ***
currentDF[, TRAIT] 0.134992 0.042081 3.208 0.00138 **
Age -0.005944 0.004021 -1.478 0.13964
Gendermale -0.070075 0.079798 -0.878 0.38007
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.159 on 995 degrees of freedom
Multiple R-squared: 0.01306, Adjusted R-squared: 0.01008
F-statistic: 4.389 on 3 and 995 DF, p-value: 0.004452
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: 0.134992
Standard error............: 0.042081
Odds ratio (effect size)..: 1.145
Lower 95% CI..............: 1.054
Upper 95% CI..............: 1.243
T-value...................: 3.207896
P-value...................: 0.001379794
R^2.......................: 0.01306
Adjusted r^2..............: 0.010085
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
Analysis of MCP1_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender, data = currentDF)
Coefficients:
(Intercept) Gendermale
-1.3260 0.1275
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.8350 -0.7858 0.1422 0.8745 3.5979
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.4014251 0.2973607 -4.713 2.74e-06 ***
currentDF[, TRAIT] -0.0174719 0.0215143 -0.812 0.417
Age 0.0007108 0.0042430 0.168 0.867
Gendermale 0.1317384 0.0843699 1.561 0.119
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.314 on 1146 degrees of freedom
Multiple R-squared: 0.002625, Adjusted R-squared: 1.403e-05
F-statistic: 1.005 on 3 and 1146 DF, p-value: 0.3896
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.017472
Standard error............: 0.021514
Odds ratio (effect size)..: 0.983
Lower 95% CI..............: 0.942
Upper 95% CI..............: 1.025
T-value...................: -0.812106
P-value...................: 0.4168995
R^2.......................: 0.002625
Adjusted r^2..............: 1.4e-05
Sample size of AE DB......: 2388
Sample size of model......: 1150
Missing data %............: 51.84255
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
-1.24251 -0.08761
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.8716 -0.7610 0.1239 0.8561 3.6445
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.213542 0.298399 -4.067 5.09e-05 ***
currentDF[, TRAIT] -0.085281 0.026111 -3.266 0.00112 **
Age -0.001408 0.004225 -0.333 0.73903
Gendermale 0.098015 0.083613 1.172 0.24134
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.306 on 1158 degrees of freedom
Multiple R-squared: 0.01129, Adjusted R-squared: 0.008724
F-statistic: 4.406 on 3 and 1158 DF, p-value: 0.004325
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.085281
Standard error............: 0.026111
Odds ratio (effect size)..: 0.918
Lower 95% CI..............: 0.872
Upper 95% CI..............: 0.966
T-value...................: -3.266114
P-value...................: 0.001122294
R^2.......................: 0.011286
Adjusted r^2..............: 0.008724
Sample size of AE DB......: 2388
Sample size of model......: 1162
Missing data %............: 51.34003
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Gender,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Gendermale
-1.1213 -0.1529 0.1742
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.6832 -0.7657 0.1143 0.8364 3.6994
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.1691408 0.3260608 -3.586 0.000352 ***
currentDF[, TRAIT] -0.1528943 0.0467150 -3.273 0.001100 **
Age 0.0007009 0.0044823 0.156 0.875768
Gendermale 0.1739403 0.0887300 1.960 0.050224 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.325 on 1038 degrees of freedom
Multiple R-squared: 0.0135, Adjusted R-squared: 0.01065
F-statistic: 4.735 on 3 and 1038 DF, p-value: 0.002751
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.152894
Standard error............: 0.046715
Odds ratio (effect size)..: 0.858
Lower 95% CI..............: 0.783
Upper 95% CI..............: 0.941
T-value...................: -3.272916
P-value...................: 0.001099547
R^2.......................: 0.013501
Adjusted r^2..............: 0.01065
Sample size of AE DB......: 2388
Sample size of model......: 1042
Missing data %............: 56.36516 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Uni.Protein.PlaquePhenotypes.MODEL1.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Uni.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M1) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ 1, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept)
0.3781
Degrees of Freedom: 454 Total (i.e. Null); 454 Residual
Null Deviance: 614.8
Residual Deviance: 614.8 AIC: 616.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6505 -1.3011 0.9509 1.0358 1.1749
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.285658 0.854132 -0.334 0.738
currentDF[, PROTEIN] 0.116941 0.092238 1.268 0.205
Age 0.005461 0.011042 0.495 0.621
Gendermale -0.232339 0.217428 -1.069 0.285
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 614.79 on 454 degrees of freedom
Residual deviance: 611.48 on 451 degrees of freedom
AIC: 619.48
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.116941
Standard error............: 0.092238
Odds ratio (effect size)..: 1.124
Lower 95% CI..............: 0.938
Upper 95% CI..............: 1.347
Z-value...................: 1.267826
P-value...................: 0.20486
Hosmer and Lemeshow r^2...: 0.005383
Cox and Snell r^2.........: 0.007248
Nagelkerke's pseudo r^2...: 0.00978
Sample size of AE DB......: 2388
Sample size of model......: 455
Missing data %............: 80.9464
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ 1, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept)
1.329
Degrees of Freedom: 453 Total (i.e. Null); 453 Residual
Null Deviance: 465.8
Residual Deviance: 465.8 AIC: 467.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9619 0.6186 0.6705 0.7060 0.8022
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.15828 1.05000 2.056 0.0398 *
currentDF[, PROTEIN] 0.04290 0.11173 0.384 0.7010
Age -0.01394 0.01353 -1.030 0.3030
Gendermale -0.07774 0.26262 -0.296 0.7672
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 465.77 on 453 degrees of freedom
Residual deviance: 464.42 on 450 degrees of freedom
AIC: 472.42
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.042896
Standard error............: 0.111726
Odds ratio (effect size)..: 1.044
Lower 95% CI..............: 0.839
Upper 95% CI..............: 1.299
Z-value...................: 0.383945
P-value...................: 0.7010193
Hosmer and Lemeshow r^2...: 0.002889
Cox and Snell r^2.........: 0.00296
Nagelkerke's pseudo r^2...: 0.004613
Sample size of AE DB......: 2388
Sample size of model......: 454
Missing data %............: 80.98828
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale
1.0468 0.5997
Degrees of Freedom: 454 Total (i.e. Null); 453 Residual
Null Deviance: 441.2
Residual Deviance: 435.7 AIC: 439.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9435 0.5812 0.5948 0.6079 0.8147
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.782404 1.058021 0.739 0.4596
currentDF[, PROTEIN] 0.033995 0.113930 0.298 0.7654
Age 0.001833 0.013807 0.133 0.8944
Gendermale 0.607719 0.253718 2.395 0.0166 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 441.15 on 454 degrees of freedom
Residual deviance: 435.55 on 451 degrees of freedom
AIC: 443.55
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.033995
Standard error............: 0.11393
Odds ratio (effect size)..: 1.035
Lower 95% CI..............: 0.828
Upper 95% CI..............: 1.293
Z-value...................: 0.298383
P-value...................: 0.7654109
Hosmer and Lemeshow r^2...: 0.012706
Cox and Snell r^2.........: 0.012244
Nagelkerke's pseudo r^2...: 0.019724
Sample size of AE DB......: 2388
Sample size of model......: 455
Missing data %............: 80.9464
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale
0.6696 0.7091
Degrees of Freedom: 454 Total (i.e. Null); 453 Residual
Null Deviance: 501
Residual Deviance: 492 AIC: 496
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9621 0.5789 0.6611 0.7294 1.0949
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.19265 0.96939 -0.199 0.84247
currentDF[, PROTEIN] -0.07423 0.10339 -0.718 0.47278
Age 0.01758 0.01269 1.385 0.16591
Gendermale 0.68577 0.23472 2.922 0.00348 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 501.02 on 454 degrees of freedom
Residual deviance: 489.51 on 451 degrees of freedom
AIC: 497.51
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: IPH
Effect size...............: -0.074227
Standard error............: 0.103387
Odds ratio (effect size)..: 0.928
Lower 95% CI..............: 0.758
Upper 95% CI..............: 1.137
Z-value...................: -0.717958
P-value...................: 0.4727831
Hosmer and Lemeshow r^2...: 0.02297
Cox and Snell r^2.........: 0.024977
Nagelkerke's pseudo r^2...: 0.037417
Sample size of AE DB......: 2388
Sample size of model......: 455
Missing data %............: 80.9464
Analysis of MCP1_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
1.2754 -0.1911
Degrees of Freedom: 555 Total (i.e. Null); 554 Residual
Null Deviance: 749.7
Residual Deviance: 746.3 AIC: 750.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.5761 -1.3102 0.9272 1.0229 1.3026
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.38774 0.86096 0.450 0.6525
currentDF[, PROTEIN] -0.17455 0.10503 -1.662 0.0965 .
Age 0.01345 0.01008 1.334 0.1822
Gendermale -0.13028 0.19579 -0.665 0.5058
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 749.67 on 555 degrees of freedom
Residual deviance: 744.09 on 552 degrees of freedom
AIC: 752.09
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.174546
Standard error............: 0.105033
Odds ratio (effect size)..: 0.84
Lower 95% CI..............: 0.684
Upper 95% CI..............: 1.032
Z-value...................: -1.661819
P-value...................: 0.09654906
Hosmer and Lemeshow r^2...: 0.007442
Cox and Snell r^2.........: 0.009984
Nagelkerke's pseudo r^2...: 0.013486
Sample size of AE DB......: 2388
Sample size of model......: 556
Missing data %............: 76.71692
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
4.7550 -0.6953
Degrees of Freedom: 553 Total (i.e. Null); 552 Residual
Null Deviance: 538
Residual Deviance: 512.7 AIC: 516.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5263 0.3932 0.5643 0.6954 1.1490
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 5.87185 1.21117 4.848 1.25e-06 ***
currentDF[, PROTEIN] -0.70272 0.14786 -4.753 2.01e-06 ***
Age -0.01454 0.01314 -1.107 0.268
Gendermale -0.13269 0.25837 -0.514 0.608
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 537.98 on 553 degrees of freedom
Residual deviance: 511.18 on 550 degrees of freedom
AIC: 519.18
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.702722
Standard error............: 0.147863
Odds ratio (effect size)..: 0.495
Lower 95% CI..............: 0.371
Upper 95% CI..............: 0.662
Z-value...................: -4.752516
P-value...................: 2.009007e-06
Hosmer and Lemeshow r^2...: 0.049807
Cox and Snell r^2.........: 0.047216
Nagelkerke's pseudo r^2...: 0.075992
Sample size of AE DB......: 2388
Sample size of model......: 554
Missing data %............: 76.80067
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale
-2.3300 0.7694 0.5566
Degrees of Freedom: 555 Total (i.e. Null); 553 Residual
Null Deviance: 538.8
Residual Deviance: 496.6 AIC: 502.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4336 0.3796 0.5147 0.6558 1.5060
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.698592 1.086903 -2.483 0.0130 *
currentDF[, PROTEIN] 0.772398 0.137592 5.614 1.98e-08 ***
Age 0.005304 0.012912 0.411 0.6813
Gendermale 0.553311 0.235382 2.351 0.0187 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 538.82 on 555 degrees of freedom
Residual deviance: 496.48 on 552 degrees of freedom
AIC: 504.48
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.772398
Standard error............: 0.137592
Odds ratio (effect size)..: 2.165
Lower 95% CI..............: 1.653
Upper 95% CI..............: 2.835
Z-value...................: 5.613695
P-value...................: 1.980514e-08
Hosmer and Lemeshow r^2...: 0.078584
Cox and Snell r^2.........: 0.073328
Nagelkerke's pseudo r^2...: 0.118161
Sample size of AE DB......: 2388
Sample size of model......: 556
Missing data %............: 76.71692
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale
-0.76646 0.02073 0.78990
Degrees of Freedom: 555 Total (i.e. Null); 553 Residual
Null Deviance: 611.8
Residual Deviance: 594.4 AIC: 600.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0063 0.5568 0.6453 0.7253 1.1988
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.24578 0.98400 -1.266 0.205500
currentDF[, PROTEIN] 0.09778 0.12043 0.812 0.416817
Age 0.02140 0.01159 1.847 0.064728 .
Gendermale 0.77021 0.21170 3.638 0.000275 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 611.78 on 555 degrees of freedom
Residual deviance: 593.75 on 552 degrees of freedom
AIC: 601.75
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: IPH
Effect size...............: 0.097784
Standard error............: 0.12043
Odds ratio (effect size)..: 1.103
Lower 95% CI..............: 0.871
Upper 95% CI..............: 1.396
Z-value...................: 0.811956
P-value...................: 0.4168168
Hosmer and Lemeshow r^2...: 0.029473
Cox and Snell r^2.........: 0.03191
Nagelkerke's pseudo r^2...: 0.047824
Sample size of AE DB......: 2388
Sample size of model......: 556
Missing data %............: 76.71692
Analysis of IL6_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-1.07375 -0.07903 0.01345 -0.20223
Degrees of Freedom: 1133 Total (i.e. Null); 1130 Residual
Null Deviance: 1572
Residual Deviance: 1561 AIC: 1569
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.406 -1.152 -1.003 1.183 1.518
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.073750 0.475057 -2.260 0.0238 *
currentDF[, PROTEIN] -0.079029 0.041077 -1.924 0.0544 .
Age 0.013455 0.006507 2.068 0.0387 *
Gendermale -0.202231 0.129655 -1.560 0.1188
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1571.7 on 1133 degrees of freedom
Residual deviance: 1561.1 on 1130 degrees of freedom
AIC: 1569.1
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.079029
Standard error............: 0.041077
Odds ratio (effect size)..: 0.924
Lower 95% CI..............: 0.853
Upper 95% CI..............: 1.001
Z-value...................: -1.923912
P-value...................: 0.05436566
Hosmer and Lemeshow r^2...: 0.006766
Cox and Snell r^2.........: 0.009334
Nagelkerke's pseudo r^2...: 0.012446
Sample size of AE DB......: 2388
Sample size of model......: 1134
Missing data %............: 52.51256
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
0.7118 -0.1947
Degrees of Freedom: 1135 Total (i.e. Null); 1134 Residual
Null Deviance: 1172
Residual Deviance: 1156 AIC: 1160
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1318 0.5468 0.6494 0.7162 1.0600
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.593805 0.574870 1.033 0.30163
currentDF[, PROTEIN] -0.193853 0.050658 -3.827 0.00013 ***
Age 0.002485 0.007934 0.313 0.75416
Gendermale -0.071069 0.160474 -0.443 0.65786
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1171.5 on 1135 degrees of freedom
Residual deviance: 1156.2 on 1132 degrees of freedom
AIC: 1164.2
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.193853
Standard error............: 0.050658
Odds ratio (effect size)..: 0.824
Lower 95% CI..............: 0.746
Upper 95% CI..............: 0.91
Z-value...................: -3.82672
P-value...................: 0.0001298622
Hosmer and Lemeshow r^2...: 0.013109
Cox and Snell r^2.........: 0.013428
Nagelkerke's pseudo r^2...: 0.020869
Sample size of AE DB......: 2388
Sample size of model......: 1136
Missing data %............: 52.42881
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
0.63818 0.34441 0.01408 0.86986
Degrees of Freedom: 1135 Total (i.e. Null); 1132 Residual
Null Deviance: 1320
Residual Deviance: 1231 AIC: 1239
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2463 -1.0758 0.6255 0.7981 1.4856
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.638182 0.547585 1.165 0.244
currentDF[, PROTEIN] 0.344406 0.050528 6.816 9.35e-12 ***
Age 0.014081 0.007517 1.873 0.061 .
Gendermale 0.869856 0.144292 6.028 1.66e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1319.7 on 1135 degrees of freedom
Residual deviance: 1231.1 on 1132 degrees of freedom
AIC: 1239.1
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.344406
Standard error............: 0.050528
Odds ratio (effect size)..: 1.411
Lower 95% CI..............: 1.278
Upper 95% CI..............: 1.558
Z-value...................: 6.8162
P-value...................: 9.34802e-12
Hosmer and Lemeshow r^2...: 0.067178
Cox and Snell r^2.........: 0.075074
Nagelkerke's pseudo r^2...: 0.10927
Sample size of AE DB......: 2388
Sample size of model......: 1136
Missing data %............: 52.42881
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale
0.02326 0.64534
Degrees of Freedom: 1134 Total (i.e. Null); 1133 Residual
Null Deviance: 1514
Residual Deviance: 1490 AIC: 1494
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.5574 -1.2367 0.8905 0.9307 1.2570
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.156562 0.486654 -0.322 0.748
currentDF[, PROTEIN] 0.046192 0.042332 1.091 0.275
Age 0.004824 0.006697 0.720 0.471
Gendermale 0.643408 0.131534 4.892 1e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1513.8 on 1134 degrees of freedom
Residual deviance: 1488.0 on 1131 degrees of freedom
AIC: 1496
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.046192
Standard error............: 0.042332
Odds ratio (effect size)..: 1.047
Lower 95% CI..............: 0.964
Upper 95% CI..............: 1.138
Z-value...................: 1.091195
P-value...................: 0.2751873
Hosmer and Lemeshow r^2...: 0.017028
Cox and Snell r^2.........: 0.022456
Nagelkerke's pseudo r^2...: 0.030489
Sample size of AE DB......: 2388
Sample size of model......: 1135
Missing data %............: 52.47069
Analysis of IL6R_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale
-0.6992 0.0119 -0.2152
Degrees of Freedom: 1133 Total (i.e. Null); 1131 Residual
Null Deviance: 1572
Residual Deviance: 1566 AIC: 1572
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.346 -1.157 -1.038 1.190 1.363
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.655175 0.467724 -1.401 0.1613
currentDF[, PROTEIN] 0.027653 0.051832 0.534 0.5937
Age 0.012070 0.006531 1.848 0.0646 .
Gendermale -0.213914 0.129860 -1.647 0.0995 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1571.8 on 1133 degrees of freedom
Residual deviance: 1565.4 on 1130 degrees of freedom
AIC: 1573.4
Number of Fisher Scoring iterations: 3
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.027653
Standard error............: 0.051832
Odds ratio (effect size)..: 1.028
Lower 95% CI..............: 0.929
Upper 95% CI..............: 1.138
Z-value...................: 0.533519
P-value...................: 0.5936745
Hosmer and Lemeshow r^2...: 0.00403
Cox and Snell r^2.........: 0.00557
Nagelkerke's pseudo r^2...: 0.007427
Sample size of AE DB......: 2388
Sample size of model......: 1134
Missing data %............: 52.51256
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ 1, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept)
1.307
Degrees of Freedom: 1135 Total (i.e. Null); 1135 Residual
Null Deviance: 1177
Residual Deviance: 1177 AIC: 1179
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.7994 0.6719 0.6873 0.6968 0.7493
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.125140 0.565385 1.990 0.0466 *
currentDF[, PROTEIN] 0.025097 0.062561 0.401 0.6883
Age 0.003103 0.007909 0.392 0.6948
Gendermale 0.029258 0.157523 0.186 0.8527
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1176.8 on 1135 degrees of freedom
Residual deviance: 1176.4 on 1132 degrees of freedom
AIC: 1184.4
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.025097
Standard error............: 0.062561
Odds ratio (effect size)..: 1.025
Lower 95% CI..............: 0.907
Upper 95% CI..............: 1.159
Z-value...................: 0.40116
P-value...................: 0.6883026
Hosmer and Lemeshow r^2...: 0.000281
Cox and Snell r^2.........: 0.000291
Nagelkerke's pseudo r^2...: 0.000451
Sample size of AE DB......: 2388
Sample size of model......: 1136
Missing data %............: 52.42881
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-0.20010 0.12004 0.01319 0.82396
Degrees of Freedom: 1135 Total (i.e. Null); 1132 Residual
Null Deviance: 1324
Residual Deviance: 1284 AIC: 1292
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8885 -1.2943 0.6856 0.7625 1.2713
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.200102 0.523490 -0.382 0.7023
currentDF[, PROTEIN] 0.120041 0.057677 2.081 0.0374 *
Age 0.013186 0.007375 1.788 0.0738 .
Gendermale 0.823957 0.141082 5.840 5.21e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1323.7 on 1135 degrees of freedom
Residual deviance: 1283.6 on 1132 degrees of freedom
AIC: 1291.6
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.120041
Standard error............: 0.057677
Odds ratio (effect size)..: 1.128
Lower 95% CI..............: 1.007
Upper 95% CI..............: 1.262
Z-value...................: 2.081254
P-value...................: 0.03741064
Hosmer and Lemeshow r^2...: 0.030306
Cox and Snell r^2.........: 0.034698
Nagelkerke's pseudo r^2...: 0.050422
Sample size of AE DB......: 2388
Sample size of model......: 1136
Missing data %............: 52.42881
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale
0.2894 0.1198 0.6029
Degrees of Freedom: 1133 Total (i.e. Null); 1131 Residual
Null Deviance: 1515
Residual Deviance: 1489 AIC: 1495
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6030 -1.2677 0.8841 0.9491 1.4022
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.105057 0.481377 0.218 0.8272
currentDF[, PROTEIN] 0.120979 0.053273 2.271 0.0232 *
Age 0.002723 0.006743 0.404 0.6863
Gendermale 0.602572 0.132109 4.561 5.09e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1514.7 on 1133 degrees of freedom
Residual deviance: 1489.1 on 1130 degrees of freedom
AIC: 1497.1
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.120979
Standard error............: 0.053273
Odds ratio (effect size)..: 1.129
Lower 95% CI..............: 1.017
Upper 95% CI..............: 1.253
Z-value...................: 2.27091
P-value...................: 0.02315245
Hosmer and Lemeshow r^2...: 0.016865
Cox and Snell r^2.........: 0.022275
Nagelkerke's pseudo r^2...: 0.030223
Sample size of AE DB......: 2388
Sample size of model......: 1134
Missing data %............: 52.51256
Analysis of MCP1_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-1.30828 -0.34278 0.01426 -0.19161
Degrees of Freedom: 1178 Total (i.e. Null); 1175 Residual
Null Deviance: 1634
Residual Deviance: 1572 AIC: 1580
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9932 -1.1065 -0.7866 1.1439 1.7832
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.308282 0.466334 -2.805 0.00502 **
currentDF[, PROTEIN] -0.342779 0.048334 -7.092 1.32e-12 ***
Age 0.014260 0.006535 2.182 0.02910 *
Gendermale -0.191606 0.129659 -1.478 0.13947
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1633.9 on 1178 degrees of freedom
Residual deviance: 1572.1 on 1175 degrees of freedom
AIC: 1580.1
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.342779
Standard error............: 0.048334
Odds ratio (effect size)..: 0.71
Lower 95% CI..............: 0.646
Upper 95% CI..............: 0.78
Z-value...................: -7.09191
P-value...................: 1.322732e-12
Hosmer and Lemeshow r^2...: 0.037814
Cox and Snell r^2.........: 0.051054
Nagelkerke's pseudo r^2...: 0.068083
Sample size of AE DB......: 2388
Sample size of model......: 1179
Missing data %............: 50.62814
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
1.106 -0.188
Degrees of Freedom: 1180 Total (i.e. Null); 1179 Residual
Null Deviance: 1217
Residual Deviance: 1205 AIC: 1209
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2374 0.5500 0.6626 0.7178 0.9142
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.971527 0.550319 1.765 0.07750 .
currentDF[, PROTEIN] -0.187980 0.057268 -3.282 0.00103 **
Age 0.001926 0.007783 0.247 0.80459
Gendermale 0.004089 0.155715 0.026 0.97905
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1216.6 on 1180 degrees of freedom
Residual deviance: 1205.3 on 1177 degrees of freedom
AIC: 1213.3
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.18798
Standard error............: 0.057268
Odds ratio (effect size)..: 0.829
Lower 95% CI..............: 0.741
Upper 95% CI..............: 0.927
Z-value...................: -3.282465
P-value...................: 0.001029038
Hosmer and Lemeshow r^2...: 0.00926
Cox and Snell r^2.........: 0.009494
Nagelkerke's pseudo r^2...: 0.014764
Sample size of AE DB......: 2388
Sample size of model......: 1181
Missing data %............: 50.54439
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-0.17789 0.12296 0.01114 0.84851
Degrees of Freedom: 1180 Total (i.e. Null); 1177 Residual
Null Deviance: 1384
Residual Deviance: 1336 AIC: 1344
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9359 -1.2862 0.6765 0.7691 1.2274
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.177889 0.507537 -0.350 0.7260
currentDF[, PROTEIN] 0.122961 0.050168 2.451 0.0142 *
Age 0.011138 0.007195 1.548 0.1216
Gendermale 0.848506 0.137295 6.180 6.4e-10 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1383.8 on 1180 degrees of freedom
Residual deviance: 1336.3 on 1177 degrees of freedom
AIC: 1344.3
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.122961
Standard error............: 0.050168
Odds ratio (effect size)..: 1.131
Lower 95% CI..............: 1.025
Upper 95% CI..............: 1.248
Z-value...................: 2.450975
P-value...................: 0.01424698
Hosmer and Lemeshow r^2...: 0.034374
Cox and Snell r^2.........: 0.039478
Nagelkerke's pseudo r^2...: 0.0572
Sample size of AE DB......: 2388
Sample size of model......: 1181
Missing data %............: 50.54439
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale
-0.07727 -0.08375 0.62569
Degrees of Freedom: 1178 Total (i.e. Null); 1176 Residual
Null Deviance: 1576
Residual Deviance: 1550 AIC: 1556
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6739 -1.2642 0.8917 0.9478 1.2963
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.274165 0.465648 -0.589 0.5560
currentDF[, PROTEIN] -0.083655 0.046529 -1.798 0.0722 .
Age 0.002880 0.006573 0.438 0.6613
Gendermale 0.624913 0.128837 4.850 1.23e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1576.2 on 1178 degrees of freedom
Residual deviance: 1549.9 on 1175 degrees of freedom
AIC: 1557.9
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: -0.083655
Standard error............: 0.046529
Odds ratio (effect size)..: 0.92
Lower 95% CI..............: 0.84
Upper 95% CI..............: 1.008
Z-value...................: -1.797891
P-value...................: 0.07219422
Hosmer and Lemeshow r^2...: 0.016644
Cox and Snell r^2.........: 0.022005
Nagelkerke's pseudo r^2...: 0.029844
Sample size of AE DB......: 2388
Sample size of model......: 1179
Missing data %............: 50.62814 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Uni.Protein.PlaquePhenotypes.MODEL1.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Uni.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON.RANK)) {
TRAIT = TRAITS.CON.RANK[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M1) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender, data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender, data = currentDF)
Coefficients:
(Intercept) Gendermale
0.1147 -0.1457
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.6651 -0.7037 -0.0163 0.6872 3.0540
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.265124 0.327047 0.811 0.418
currentDF[, TRAIT] -0.043457 0.038912 -1.117 0.265
Age -0.002260 0.004714 -0.479 0.632
Gendermale -0.139309 0.092751 -1.502 0.134
Residual standard error: 0.9589 on 523 degrees of freedom
Multiple R-squared: 0.007532, Adjusted R-squared: 0.001839
F-statistic: 1.323 on 3 and 523 DF, p-value: 0.266
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.043457
Standard error............: 0.038912
Odds ratio (effect size)..: 0.957
Lower 95% CI..............: 0.887
Upper 95% CI..............: 1.033
T-value...................: -1.116809
P-value...................: 0.2645889
R^2.......................: 0.007532
Adjusted r^2..............: 0.001839
Sample size of AE DB......: 2388
Sample size of model......: 527
Missing data %............: 77.93132
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender, data = currentDF)
Coefficients:
(Intercept) Gendermale
0.1254 -0.1467
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.66930 -0.69331 -0.00069 0.66680 2.97072
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.247782 0.339493 0.730 0.466
currentDF[, TRAIT] 0.023438 0.040868 0.573 0.567
Age -0.001916 0.004866 -0.394 0.694
Gendermale -0.140271 0.094251 -1.488 0.137
Residual standard error: 0.964 on 519 degrees of freedom
Multiple R-squared: 0.005833, Adjusted R-squared: 8.659e-05
F-statistic: 1.015 on 3 and 519 DF, p-value: 0.3856
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.023438
Standard error............: 0.040868
Odds ratio (effect size)..: 1.024
Lower 95% CI..............: 0.945
Upper 95% CI..............: 1.109
T-value...................: 0.573496
P-value...................: 0.5665574
R^2.......................: 0.005833
Adjusted r^2..............: 8.7e-05
Sample size of AE DB......: 2388
Sample size of model......: 523
Missing data %............: 78.09883
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender, data = currentDF)
Coefficients:
(Intercept) Gendermale
0.1137 -0.1357
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.65204 -0.71205 -0.00561 0.69258 3.04629
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.335120 0.335382 0.999 0.318
currentDF[, TRAIT] -0.033064 0.052781 -0.626 0.531
Age -0.003204 0.004831 -0.663 0.508
Gendermale -0.135313 0.094253 -1.436 0.152
Residual standard error: 0.966 on 511 degrees of freedom
Multiple R-squared: 0.005607, Adjusted R-squared: -0.0002313
F-statistic: 0.9604 on 3 and 511 DF, p-value: 0.4112
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.033064
Standard error............: 0.052781
Odds ratio (effect size)..: 0.967
Lower 95% CI..............: 0.872
Upper 95% CI..............: 1.073
T-value...................: -0.626443
P-value...................: 0.5313039
R^2.......................: 0.005607
Adjusted r^2..............: -0.000231
Sample size of AE DB......: 2388
Sample size of model......: 515
Missing data %............: 78.43384
Analysis of MCP1_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale
0.34006 0.10727 -0.00823 0.28612
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.66459 -0.66985 -0.00544 0.65388 2.97049
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.340061 0.327464 1.038 0.29950
currentDF[, TRAIT] 0.107266 0.038479 2.788 0.00549 **
Age -0.008230 0.004734 -1.738 0.08271 .
Gendermale 0.286120 0.091290 3.134 0.00181 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.98 on 560 degrees of freedom
Multiple R-squared: 0.03666, Adjusted R-squared: 0.0315
F-statistic: 7.105 on 3 and 560 DF, p-value: 0.0001085
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.107266
Standard error............: 0.038479
Odds ratio (effect size)..: 1.113
Lower 95% CI..............: 1.032
Upper 95% CI..............: 1.2
T-value...................: 2.787615
P-value...................: 0.005490063
R^2.......................: 0.036664
Adjusted r^2..............: 0.031504
Sample size of AE DB......: 2388
Sample size of model......: 564
Missing data %............: 76.38191
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale
0.74540 -0.18145 -0.01324 0.23454
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.67204 -0.64103 -0.03139 0.64140 2.69183
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.74540 0.33159 2.248 0.02497 *
currentDF[, TRAIT] -0.18145 0.03959 -4.583 5.65e-06 ***
Age -0.01324 0.00477 -2.775 0.00570 **
Gendermale 0.23454 0.09053 2.591 0.00982 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9621 on 556 degrees of freedom
Multiple R-squared: 0.05804, Adjusted R-squared: 0.05296
F-statistic: 11.42 on 3 and 556 DF, p-value: 2.82e-07
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.18145
Standard error............: 0.039588
Odds ratio (effect size)..: 0.834
Lower 95% CI..............: 0.772
Upper 95% CI..............: 0.901
T-value...................: -4.583453
P-value...................: 5.652515e-06
R^2.......................: 0.058039
Adjusted r^2..............: 0.052957
Sample size of AE DB......: 2388
Sample size of model......: 560
Missing data %............: 76.54941
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale
0.39679 -0.09755 -0.00880 0.31637
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.69246 -0.65643 0.00031 0.65368 2.74036
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.39679 0.33186 1.196 0.23235
currentDF[, TRAIT] -0.09755 0.05111 -1.909 0.05680 .
Age -0.00880 0.00479 -1.837 0.06674 .
Gendermale 0.31637 0.09248 3.421 0.00067 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9842 on 549 degrees of freedom
Multiple R-squared: 0.03246, Adjusted R-squared: 0.02717
F-statistic: 6.139 on 3 and 549 DF, p-value: 0.0004131
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.097554
Standard error............: 0.051106
Odds ratio (effect size)..: 0.907
Lower 95% CI..............: 0.821
Upper 95% CI..............: 1.003
T-value...................: -1.908837
P-value...................: 0.05680423
R^2.......................: 0.032459
Adjusted r^2..............: 0.027172
Sample size of AE DB......: 2388
Sample size of model......: 553
Missing data %............: 76.84255
Analysis of IL6_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
0.0008327 0.1298916
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2750 -0.6882 0.0017 0.6410 3.6437
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.080646 0.226702 0.356 0.722
currentDF[, TRAIT] 0.128610 0.029926 4.298 1.88e-05 ***
Age -0.001259 0.003217 -0.391 0.696
Gendermale 0.009559 0.064377 0.148 0.882
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9916 on 1124 degrees of freedom
Multiple R-squared: 0.01684, Adjusted R-squared: 0.01421
F-statistic: 6.417 on 3 and 1124 DF, p-value: 0.0002611
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.12861
Standard error............: 0.029926
Odds ratio (effect size)..: 1.137
Lower 95% CI..............: 1.072
Upper 95% CI..............: 1.206
T-value...................: 4.297634
P-value...................: 1.875797e-05
R^2.......................: 0.016839
Adjusted r^2..............: 0.014215
Sample size of AE DB......: 2388
Sample size of model......: 1128
Missing data %............: 52.76382
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age
0.379605 -0.140378 -0.005529
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.0677 -0.6892 -0.0049 0.6794 3.1705
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.386998 0.231838 1.669 0.0953 .
currentDF[, TRAIT] -0.141045 0.031339 -4.501 7.48e-06 ***
Age -0.005538 0.003272 -1.692 0.0909 .
Gendermale -0.009751 0.064944 -0.150 0.8807
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9908 on 1120 degrees of freedom
Multiple R-squared: 0.01862, Adjusted R-squared: 0.01599
F-statistic: 7.084 on 3 and 1120 DF, p-value: 0.0001021
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.141045
Standard error............: 0.031339
Odds ratio (effect size)..: 0.868
Lower 95% CI..............: 0.817
Upper 95% CI..............: 0.923
T-value...................: -4.5006
P-value...................: 7.483581e-06
R^2.......................: 0.018623
Adjusted r^2..............: 0.015994
Sample size of AE DB......: 2388
Sample size of model......: 1124
Missing data %............: 52.93132
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
-0.005939 -0.045061
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2631 -0.6756 0.0016 0.6855 3.3859
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.113002 0.237668 0.475 0.635
currentDF[, TRAIT] -0.045329 0.031251 -1.450 0.147
Age -0.001943 0.003369 -0.577 0.564
Gendermale 0.020800 0.067259 0.309 0.757
Residual standard error: 1.002 on 1048 degrees of freedom
Multiple R-squared: 0.002385, Adjusted R-squared: -0.0004703
F-statistic: 0.8353 on 3 and 1048 DF, p-value: 0.4745
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.045329
Standard error............: 0.031251
Odds ratio (effect size)..: 0.956
Lower 95% CI..............: 0.899
Upper 95% CI..............: 1.016
T-value...................: -1.450483
P-value...................: 0.147223
R^2.......................: 0.002385
Adjusted r^2..............: -0.00047
Sample size of AE DB......: 2388
Sample size of model......: 1052
Missing data %............: 55.9464
Analysis of IL6R_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
0.006105 0.171717
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.1452 -0.6436 -0.0070 0.6466 3.3803
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.323725 0.226682 1.428 0.154
currentDF[, TRAIT] 0.171595 0.029416 5.833 7.09e-09 ***
Age -0.003819 0.003210 -1.190 0.234
Gendermale -0.078695 0.064098 -1.228 0.220
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9838 on 1124 degrees of freedom
Multiple R-squared: 0.03229, Adjusted R-squared: 0.02971
F-statistic: 12.5 on 3 and 1124 DF, p-value: 4.811e-08
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.171595
Standard error............: 0.029416
Odds ratio (effect size)..: 1.187
Lower 95% CI..............: 1.121
Upper 95% CI..............: 1.258
T-value...................: 5.833439
P-value...................: 7.092794e-09
R^2.......................: 0.03229
Adjusted r^2..............: 0.029707
Sample size of AE DB......: 2388
Sample size of model......: 1128
Missing data %............: 52.76382
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
0.003564 0.085455
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2788 -0.6560 0.0049 0.6817 3.3960
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.279731 0.234166 1.195 0.2325
currentDF[, TRAIT] 0.077483 0.031462 2.463 0.0139 *
Age -0.003775 0.003299 -1.145 0.2526
Gendermale -0.023816 0.065312 -0.365 0.7154
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9939 on 1120 degrees of freedom
Multiple R-squared: 0.008145, Adjusted R-squared: 0.005488
F-statistic: 3.066 on 3 and 1120 DF, p-value: 0.0272
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.077483
Standard error............: 0.031462
Odds ratio (effect size)..: 1.081
Lower 95% CI..............: 1.016
Upper 95% CI..............: 1.149
T-value...................: 2.462754
P-value...................: 0.0139371
R^2.......................: 0.008145
Adjusted r^2..............: 0.005488
Sample size of AE DB......: 2388
Sample size of model......: 1124
Missing data %............: 52.93132
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age
0.363777 0.108548 -0.005145
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3980 -0.6565 -0.0131 0.6619 3.3784
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.40529 0.23903 1.696 0.09027 .
currentDF[, TRAIT] 0.10889 0.03133 3.476 0.00053 ***
Age -0.00514 0.00338 -1.521 0.12864
Gendermale -0.05983 0.06724 -0.890 0.37373
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9985 on 1047 degrees of freedom
Multiple R-squared: 0.01437, Adjusted R-squared: 0.01154
F-statistic: 5.087 on 3 and 1047 DF, p-value: 0.001687
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: 0.108891
Standard error............: 0.03133
Odds ratio (effect size)..: 1.115
Lower 95% CI..............: 1.049
Upper 95% CI..............: 1.186
T-value...................: 3.475655
P-value...................: 0.0005304978
R^2.......................: 0.014366
Adjusted r^2..............: 0.011542
Sample size of AE DB......: 2388
Sample size of model......: 1051
Missing data %............: 55.98828
Analysis of MCP1_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Gender,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Gendermale
-0.08851 -0.04407 0.10833
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.4091 -0.6867 0.0027 0.6638 3.3363
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.0521469 0.2245097 -0.232 0.8164
currentDF[, TRAIT] -0.0445154 0.0293223 -1.518 0.1292
Age -0.0005313 0.0031888 -0.167 0.8677
Gendermale 0.1084819 0.0633932 1.711 0.0873 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9994 on 1168 degrees of freedom
Multiple R-squared: 0.004169, Adjusted R-squared: 0.001611
F-statistic: 1.63 on 3 and 1168 DF, p-value: 0.1807
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.044515
Standard error............: 0.029322
Odds ratio (effect size)..: 0.956
Lower 95% CI..............: 0.903
Upper 95% CI..............: 1.013
T-value...................: -1.518139
P-value...................: 0.1292499
R^2.......................: 0.004169
Adjusted r^2..............: 0.001611
Sample size of AE DB......: 2388
Sample size of model......: 1172
Missing data %............: 50.92127
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT], data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT]
-0.01583 -0.11198
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.4371 -0.6552 -0.0098 0.6354 3.3670
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.103027 0.228379 0.451 0.651986
currentDF[, TRAIT] -0.111746 0.030611 -3.651 0.000273 ***
Age -0.002390 0.003226 -0.741 0.458971
Gendermale 0.065262 0.063722 1.024 0.305970
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9951 on 1164 degrees of freedom
Multiple R-squared: 0.01332, Adjusted R-squared: 0.01078
F-statistic: 5.238 on 3 and 1164 DF, p-value: 0.001359
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.111746
Standard error............: 0.030611
Odds ratio (effect size)..: 0.894
Lower 95% CI..............: 0.842
Upper 95% CI..............: 0.95
T-value...................: -3.650566
P-value...................: 0.0002732734
R^2.......................: 0.013321
Adjusted r^2..............: 0.010778
Sample size of AE DB......: 2388
Sample size of model......: 1168
Missing data %............: 51.08878
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Gender,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Gendermale
-0.1167 -0.1300 0.1283
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2795 -0.6726 0.0001 0.6322 3.4098
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.1460528 0.2332909 -0.626 0.5314
currentDF[, TRAIT] -0.1299743 0.0305087 -4.260 2.22e-05 ***
Age 0.0004283 0.0033099 0.129 0.8971
Gendermale 0.1282621 0.0656979 1.952 0.0512 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.002 on 1090 degrees of freedom
Multiple R-squared: 0.01952, Adjusted R-squared: 0.01682
F-statistic: 7.234 on 3 and 1090 DF, p-value: 8.293e-05
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.129974
Standard error............: 0.030509
Odds ratio (effect size)..: 0.878
Lower 95% CI..............: 0.827
Upper 95% CI..............: 0.932
T-value...................: -4.260235
P-value...................: 2.218457e-05
R^2.......................: 0.019522
Adjusted r^2..............: 0.016823
Sample size of AE DB......: 2388
Sample size of model......: 1094
Missing data %............: 54.1876 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Uni.Protein.PlaquePhenotypes.RANK.MODEL1.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Uni.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M1) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
0.3364 0.1700
Degrees of Freedom: 527 Total (i.e. Null); 526 Residual
Null Deviance: 717.2
Residual Deviance: 713.8 AIC: 717.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6055 -1.2824 0.9442 1.0453 1.2408
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.39815 0.69417 -0.574 0.5663
currentDF[, PROTEIN] 0.16861 0.09329 1.807 0.0707 .
Age 0.01255 0.01003 1.251 0.2108
Gendermale -0.15185 0.19853 -0.765 0.4443
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 717.23 on 527 degrees of freedom
Residual deviance: 711.68 on 524 degrees of freedom
AIC: 719.68
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.168614
Standard error............: 0.093291
Odds ratio (effect size)..: 1.184
Lower 95% CI..............: 0.986
Upper 95% CI..............: 1.421
Z-value...................: 1.807395
P-value...................: 0.07070067
Hosmer and Lemeshow r^2...: 0.007736
Cox and Snell r^2.........: 0.010453
Nagelkerke's pseudo r^2...: 0.01407
Sample size of AE DB......: 2388
Sample size of model......: 528
Missing data %............: 77.88945
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ 1, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept)
1.439
Degrees of Freedom: 526 Total (i.e. Null); 526 Residual
Null Deviance: 515
Residual Deviance: 515 AIC: 517
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0039 0.5622 0.6281 0.6781 0.8143
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.50639 0.90034 2.784 0.00537 **
currentDF[, PROTEIN] -0.15233 0.11589 -1.314 0.18871
Age -0.01370 0.01281 -1.069 0.28490
Gendermale -0.18207 0.25283 -0.720 0.47146
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 514.99 on 526 degrees of freedom
Residual deviance: 511.76 on 523 degrees of freedom
AIC: 519.76
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.152332
Standard error............: 0.115895
Odds ratio (effect size)..: 0.859
Lower 95% CI..............: 0.684
Upper 95% CI..............: 1.078
Z-value...................: -1.314401
P-value...................: 0.1887114
Hosmer and Lemeshow r^2...: 0.006272
Cox and Snell r^2.........: 0.00611
Nagelkerke's pseudo r^2...: 0.009798
Sample size of AE DB......: 2388
Sample size of model......: 527
Missing data %............: 77.93132
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale
0.8473 0.8007
Degrees of Freedom: 527 Total (i.e. Null); 526 Residual
Null Deviance: 529.5
Residual Deviance: 517.4 AIC: 521.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0323 0.5426 0.5923 0.6460 0.9468
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.633935 0.848167 0.747 0.454812
currentDF[, PROTEIN] 0.142074 0.114411 1.242 0.214314
Age 0.002994 0.012321 0.243 0.807985
Gendermale 0.822167 0.227638 3.612 0.000304 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 529.53 on 527 degrees of freedom
Residual deviance: 515.77 on 524 degrees of freedom
AIC: 523.77
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.142074
Standard error............: 0.114411
Odds ratio (effect size)..: 1.153
Lower 95% CI..............: 0.921
Upper 95% CI..............: 1.442
Z-value...................: 1.24179
P-value...................: 0.214314
Hosmer and Lemeshow r^2...: 0.025995
Cox and Snell r^2.........: 0.025733
Nagelkerke's pseudo r^2...: 0.040641
Sample size of AE DB......: 2388
Sample size of model......: 528
Missing data %............: 77.88945
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale
-1.53026 0.03187 0.77077
Degrees of Freedom: 527 Total (i.e. Null); 525 Residual
Null Deviance: 589.4
Residual Deviance: 569.3 AIC: 575.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0272 0.5126 0.6441 0.7617 1.3318
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.531376 0.788651 -1.942 0.052165 .
currentDF[, PROTEIN] 0.004591 0.106067 0.043 0.965479
Age 0.031879 0.011544 2.761 0.005754 **
Gendermale 0.771453 0.215860 3.574 0.000352 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 589.39 on 527 degrees of freedom
Residual deviance: 569.29 on 524 degrees of freedom
AIC: 577.29
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: IPH
Effect size...............: 0.004591
Standard error............: 0.106067
Odds ratio (effect size)..: 1.005
Lower 95% CI..............: 0.816
Upper 95% CI..............: 1.237
Z-value...................: 0.043279
P-value...................: 0.9654788
Hosmer and Lemeshow r^2...: 0.034097
Cox and Snell r^2.........: 0.037347
Nagelkerke's pseudo r^2...: 0.055534
Sample size of AE DB......: 2388
Sample size of model......: 528
Missing data %............: 77.88945
Analysis of MCP1_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age
-0.66894 0.01552
Degrees of Freedom: 564 Total (i.e. Null); 563 Residual
Null Deviance: 763.6
Residual Deviance: 761.1 AIC: 765.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.5354 -1.3063 0.9435 1.0328 1.2735
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.520510 0.681656 -0.764 0.445
currentDF[, PROTEIN] -0.084572 0.087486 -0.967 0.334
Age 0.015036 0.009908 1.518 0.129
Gendermale -0.159870 0.193286 -0.827 0.408
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 763.63 on 564 degrees of freedom
Residual deviance: 759.27 on 561 degrees of freedom
AIC: 767.27
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.084572
Standard error............: 0.087486
Odds ratio (effect size)..: 0.919
Lower 95% CI..............: 0.774
Upper 95% CI..............: 1.091
Z-value...................: -0.966696
P-value...................: 0.3336962
Hosmer and Lemeshow r^2...: 0.005706
Cox and Snell r^2.........: 0.007683
Nagelkerke's pseudo r^2...: 0.010366
Sample size of AE DB......: 2388
Sample size of model......: 565
Missing data %............: 76.34003
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
1.5378 -0.5379
Degrees of Freedom: 562 Total (i.e. Null); 561 Residual
Null Deviance: 547.6
Residual Deviance: 524.3 AIC: 528.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4625 0.4102 0.5643 0.6848 1.1638
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.84690 0.91211 3.121 0.0018 **
currentDF[, PROTEIN] -0.54841 0.11723 -4.678 2.9e-06 ***
Age -0.01803 0.01302 -1.384 0.1663
Gendermale -0.11699 0.25442 -0.460 0.6456
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 547.57 on 562 degrees of freedom
Residual deviance: 522.07 on 559 degrees of freedom
AIC: 530.07
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.548413
Standard error............: 0.117233
Odds ratio (effect size)..: 0.578
Lower 95% CI..............: 0.459
Upper 95% CI..............: 0.727
Z-value...................: -4.677968
P-value...................: 2.897316e-06
Hosmer and Lemeshow r^2...: 0.046582
Cox and Snell r^2.........: 0.044294
Nagelkerke's pseudo r^2...: 0.071224
Sample size of AE DB......: 2388
Sample size of model......: 563
Missing data %............: 76.42379
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale
1.1894 0.6807 0.5650
Degrees of Freedom: 564 Total (i.e. Null); 562 Residual
Null Deviance: 554.2
Residual Deviance: 509.3 AIC: 515.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4929 0.3605 0.5225 0.6691 1.3725
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.85428 0.86465 0.988 0.3231
currentDF[, PROTEIN] 0.68303 0.12124 5.634 1.76e-08 ***
Age 0.00499 0.01257 0.397 0.6914
Gendermale 0.56378 0.23128 2.438 0.0148 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 554.19 on 564 degrees of freedom
Residual deviance: 509.11 on 561 degrees of freedom
AIC: 517.11
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.68303
Standard error............: 0.12124
Odds ratio (effect size)..: 1.98
Lower 95% CI..............: 1.561
Upper 95% CI..............: 2.511
Z-value...................: 5.633721
P-value...................: 1.763624e-08
Hosmer and Lemeshow r^2...: 0.081344
Cox and Snell r^2.........: 0.076687
Nagelkerke's pseudo r^2...: 0.122697
Sample size of AE DB......: 2388
Sample size of model......: 565
Missing data %............: 76.34003
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale
-1.02619 0.02446 0.78389
Degrees of Freedom: 564 Total (i.e. Null); 562 Residual
Null Deviance: 625.9
Residual Deviance: 607.1 AIC: 613.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0414 0.5339 0.6471 0.7406 1.2555
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.06199 0.77564 -1.369 0.170946
currentDF[, PROTEIN] 0.10109 0.10144 0.997 0.318965
Age 0.02532 0.01139 2.224 0.026177 *
Gendermale 0.75630 0.20942 3.611 0.000304 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 625.93 on 564 degrees of freedom
Residual deviance: 606.14 on 561 degrees of freedom
AIC: 614.14
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: IPH
Effect size...............: 0.101091
Standard error............: 0.101437
Odds ratio (effect size)..: 1.106
Lower 95% CI..............: 0.907
Upper 95% CI..............: 1.35
Z-value...................: 0.996588
P-value...................: 0.3189645
Hosmer and Lemeshow r^2...: 0.031618
Cox and Snell r^2.........: 0.034421
Nagelkerke's pseudo r^2...: 0.051395
Sample size of AE DB......: 2388
Sample size of model......: 565
Missing data %............: 76.34003
Analysis of IL6_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-0.82326 -0.11365 0.01351 -0.20124
Degrees of Freedom: 1133 Total (i.e. Null); 1130 Residual
Null Deviance: 1572
Residual Deviance: 1561 AIC: 1569
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.405 -1.151 -1.013 1.182 1.494
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.823262 0.458227 -1.797 0.0724 .
currentDF[, PROTEIN] -0.113647 0.059989 -1.894 0.0582 .
Age 0.013512 0.006506 2.077 0.0378 *
Gendermale -0.201235 0.129656 -1.552 0.1206
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1571.7 on 1133 degrees of freedom
Residual deviance: 1561.2 on 1130 degrees of freedom
AIC: 1569.2
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.113647
Standard error............: 0.059989
Odds ratio (effect size)..: 0.893
Lower 95% CI..............: 0.794
Upper 95% CI..............: 1.004
Z-value...................: -1.89445
P-value...................: 0.05816533
Hosmer and Lemeshow r^2...: 0.006689
Cox and Snell r^2.........: 0.009228
Nagelkerke's pseudo r^2...: 0.012306
Sample size of AE DB......: 2388
Sample size of model......: 1134
Missing data %............: 52.51256
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
1.3407 -0.2859
Degrees of Freedom: 1135 Total (i.e. Null); 1134 Residual
Null Deviance: 1172
Residual Deviance: 1156 AIC: 1160
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0925 0.5434 0.6477 0.7187 0.9893
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.209758 0.559055 2.164 0.030469 *
currentDF[, PROTEIN] -0.284656 0.074277 -3.832 0.000127 ***
Age 0.002611 0.007932 0.329 0.742003
Gendermale -0.068954 0.160475 -0.430 0.667424
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1171.5 on 1135 degrees of freedom
Residual deviance: 1156.1 on 1132 degrees of freedom
AIC: 1164.1
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.284656
Standard error............: 0.074277
Odds ratio (effect size)..: 0.752
Lower 95% CI..............: 0.65
Upper 95% CI..............: 0.87
Z-value...................: -3.832368
P-value...................: 0.0001269155
Hosmer and Lemeshow r^2...: 0.013161
Cox and Snell r^2.........: 0.013481
Nagelkerke's pseudo r^2...: 0.020951
Sample size of AE DB......: 2388
Sample size of model......: 1136
Missing data %............: 52.42881
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-0.45642 0.49681 0.01386 0.86551
Degrees of Freedom: 1135 Total (i.e. Null); 1132 Residual
Null Deviance: 1320
Residual Deviance: 1232 AIC: 1240
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2318 -1.0860 0.6253 0.8001 1.4676
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.456424 0.525551 -0.868 0.3851
currentDF[, PROTEIN] 0.496810 0.072834 6.821 9.03e-12 ***
Age 0.013863 0.007517 1.844 0.0651 .
Gendermale 0.865510 0.144282 5.999 1.99e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1319.7 on 1135 degrees of freedom
Residual deviance: 1231.7 on 1132 degrees of freedom
AIC: 1239.7
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.49681
Standard error............: 0.072834
Odds ratio (effect size)..: 1.643
Lower 95% CI..............: 1.425
Upper 95% CI..............: 1.896
Z-value...................: 6.821123
P-value...................: 9.033127e-12
Hosmer and Lemeshow r^2...: 0.066674
Cox and Snell r^2.........: 0.074533
Nagelkerke's pseudo r^2...: 0.108482
Sample size of AE DB......: 2388
Sample size of model......: 1136
Missing data %............: 52.42881
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale
0.02326 0.64534
Degrees of Freedom: 1134 Total (i.e. Null); 1133 Residual
Null Deviance: 1514
Residual Deviance: 1490 AIC: 1494
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.5453 -1.2340 0.8904 0.9307 1.2566
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.302686 0.470800 -0.643 0.520
currentDF[, PROTEIN] 0.065082 0.061907 1.051 0.293
Age 0.004786 0.006696 0.715 0.475
Gendermale 0.642790 0.131532 4.887 1.02e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1513.8 on 1134 degrees of freedom
Residual deviance: 1488.1 on 1131 degrees of freedom
AIC: 1496.1
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.065082
Standard error............: 0.061907
Odds ratio (effect size)..: 1.067
Lower 95% CI..............: 0.945
Upper 95% CI..............: 1.205
Z-value...................: 1.051285
P-value...................: 0.2931276
Hosmer and Lemeshow r^2...: 0.016972
Cox and Snell r^2.........: 0.022382
Nagelkerke's pseudo r^2...: 0.030389
Sample size of AE DB......: 2388
Sample size of model......: 1135
Missing data %............: 52.47069
Analysis of IL6R_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale
-0.70308 0.01195 -0.21761
Degrees of Freedom: 1134 Total (i.e. Null); 1132 Residual
Null Deviance: 1573
Residual Deviance: 1567 AIC: 1573
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.351 -1.156 -1.036 1.190 1.372
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.722969 0.461171 -1.568 0.1170
currentDF[, PROTEIN] 0.050413 0.059798 0.843 0.3992
Age 0.012220 0.006533 1.871 0.0614 .
Gendermale -0.215830 0.129855 -1.662 0.0965 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1573.1 on 1134 degrees of freedom
Residual deviance: 1566.3 on 1131 degrees of freedom
AIC: 1574.3
Number of Fisher Scoring iterations: 3
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.050413
Standard error............: 0.059798
Odds ratio (effect size)..: 1.052
Lower 95% CI..............: 0.935
Upper 95% CI..............: 1.182
Z-value...................: 0.843058
P-value...................: 0.3991959
Hosmer and Lemeshow r^2...: 0.004357
Cox and Snell r^2.........: 0.006021
Nagelkerke's pseudo r^2...: 0.008028
Sample size of AE DB......: 2388
Sample size of model......: 1135
Missing data %............: 52.47069
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ 1, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept)
1.303
Degrees of Freedom: 1136 Total (i.e. Null); 1136 Residual
Null Deviance: 1180
Residual Deviance: 1180 AIC: 1182
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8412 0.6608 0.6871 0.7021 0.7501
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.055209 0.556645 1.896 0.058 .
currentDF[, PROTEIN] 0.054395 0.072780 0.747 0.455
Age 0.003366 0.007898 0.426 0.670
Gendermale 0.024221 0.157433 0.154 0.878
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1179.9 on 1136 degrees of freedom
Residual deviance: 1179.1 on 1133 degrees of freedom
AIC: 1187.1
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.054395
Standard error............: 0.07278
Odds ratio (effect size)..: 1.056
Lower 95% CI..............: 0.916
Upper 95% CI..............: 1.218
Z-value...................: 0.74739
P-value...................: 0.4548283
Hosmer and Lemeshow r^2...: 0.000619
Cox and Snell r^2.........: 0.000642
Nagelkerke's pseudo r^2...: 0.000995
Sample size of AE DB......: 2388
Sample size of model......: 1137
Missing data %............: 52.38694
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-0.44254 0.13586 0.01312 0.82461
Degrees of Freedom: 1136 Total (i.e. Null); 1133 Residual
Null Deviance: 1324
Residual Deviance: 1284 AIC: 1292
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9008 -1.2841 0.6888 0.7635 1.2184
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.442537 0.517161 -0.856 0.3922
currentDF[, PROTEIN] 0.135860 0.068675 1.978 0.0479 *
Age 0.013117 0.007375 1.779 0.0753 .
Gendermale 0.824605 0.141034 5.847 5.01e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1324.4 on 1136 degrees of freedom
Residual deviance: 1284.5 on 1133 degrees of freedom
AIC: 1292.5
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.13586
Standard error............: 0.068675
Odds ratio (effect size)..: 1.146
Lower 95% CI..............: 1.001
Upper 95% CI..............: 1.311
Z-value...................: 1.97829
P-value...................: 0.04789604
Hosmer and Lemeshow r^2...: 0.030128
Cox and Snell r^2.........: 0.034484
Nagelkerke's pseudo r^2...: 0.050122
Sample size of AE DB......: 2388
Sample size of model......: 1137
Missing data %............: 52.38694
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale
0.04247 0.15197 0.60545
Degrees of Freedom: 1134 Total (i.e. Null); 1132 Residual
Null Deviance: 1516
Residual Deviance: 1489 AIC: 1495
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6477 -1.2918 0.8750 0.9619 1.3214
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.145527 0.475505 -0.306 0.7596
currentDF[, PROTEIN] 0.153359 0.062198 2.466 0.0137 *
Age 0.002740 0.006747 0.406 0.6847
Gendermale 0.605104 0.132160 4.579 4.68e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1515.7 on 1134 degrees of freedom
Residual deviance: 1489.0 on 1131 degrees of freedom
AIC: 1497
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.153359
Standard error............: 0.062198
Odds ratio (effect size)..: 1.166
Lower 95% CI..............: 1.032
Upper 95% CI..............: 1.317
Z-value...................: 2.46566
P-value...................: 0.0136761
Hosmer and Lemeshow r^2...: 0.017572
Cox and Snell r^2.........: 0.023192
Nagelkerke's pseudo r^2...: 0.031471
Sample size of AE DB......: 2388
Sample size of model......: 1135
Missing data %............: 52.47069
Analysis of MCP1_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-0.87403 -0.45247 0.01396 -0.19322
Degrees of Freedom: 1178 Total (i.e. Null); 1175 Residual
Null Deviance: 1634
Residual Deviance: 1571 AIC: 1579
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.7850 -1.1164 -0.7578 1.1280 1.9083
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.874028 0.460395 -1.898 0.0576 .
currentDF[, PROTEIN] -0.452467 0.062870 -7.197 6.16e-13 ***
Age 0.013956 0.006536 2.135 0.0327 *
Gendermale -0.193224 0.129705 -1.490 0.1363
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1633.9 on 1178 degrees of freedom
Residual deviance: 1571.0 on 1175 degrees of freedom
AIC: 1579
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.452467
Standard error............: 0.06287
Odds ratio (effect size)..: 0.636
Lower 95% CI..............: 0.562
Upper 95% CI..............: 0.719
Z-value...................: -7.196888
P-value...................: 6.160221e-13
Hosmer and Lemeshow r^2...: 0.03853
Cox and Snell r^2.........: 0.051997
Nagelkerke's pseudo r^2...: 0.069339
Sample size of AE DB......: 2388
Sample size of model......: 1179
Missing data %............: 50.62814
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
1.3322 -0.2276
Degrees of Freedom: 1180 Total (i.e. Null); 1179 Residual
Null Deviance: 1217
Residual Deviance: 1207 AIC: 1211
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0999 0.5754 0.6578 0.7138 0.9467
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.210693 0.546856 2.214 0.02683 *
currentDF[, PROTEIN] -0.227373 0.072305 -3.145 0.00166 **
Age 0.001751 0.007781 0.225 0.82191
Gendermale 0.001944 0.155632 0.012 0.99004
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1216.6 on 1180 degrees of freedom
Residual deviance: 1206.5 on 1177 degrees of freedom
AIC: 1214.5
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.227373
Standard error............: 0.072305
Odds ratio (effect size)..: 0.797
Lower 95% CI..............: 0.691
Upper 95% CI..............: 0.918
Z-value...................: -3.144645
P-value...................: 0.001662884
Hosmer and Lemeshow r^2...: 0.008293
Cox and Snell r^2.........: 0.008507
Nagelkerke's pseudo r^2...: 0.013229
Sample size of AE DB......: 2388
Sample size of model......: 1181
Missing data %............: 50.54439
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-0.33492 0.16339 0.01125 0.84917
Degrees of Freedom: 1180 Total (i.e. Null); 1177 Residual
Null Deviance: 1384
Residual Deviance: 1336 AIC: 1344
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9529 -1.2790 0.6795 0.7714 1.2276
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.334921 0.503185 -0.666 0.5057
currentDF[, PROTEIN] 0.163390 0.066951 2.440 0.0147 *
Age 0.011250 0.007195 1.564 0.1179
Gendermale 0.849174 0.137286 6.185 6.19e-10 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1383.8 on 1180 degrees of freedom
Residual deviance: 1336.3 on 1177 degrees of freedom
AIC: 1344.3
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.16339
Standard error............: 0.066951
Odds ratio (effect size)..: 1.177
Lower 95% CI..............: 1.033
Upper 95% CI..............: 1.343
Z-value...................: 2.440433
P-value...................: 0.01466968
Hosmer and Lemeshow r^2...: 0.034383
Cox and Snell r^2.........: 0.039487
Nagelkerke's pseudo r^2...: 0.057213
Sample size of AE DB......: 2388
Sample size of model......: 1181
Missing data %............: 50.54439
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale
0.02354 -0.12418 0.62708
Degrees of Freedom: 1178 Total (i.e. Null); 1176 Residual
Null Deviance: 1576
Residual Deviance: 1549 AIC: 1555
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6449 -1.2648 0.8841 0.9534 1.3387
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.166656 0.462054 -0.361 0.7183
currentDF[, PROTEIN] -0.123887 0.060696 -2.041 0.0412 *
Age 0.002781 0.006577 0.423 0.6725
Gendermale 0.626312 0.128886 4.859 1.18e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1576.2 on 1178 degrees of freedom
Residual deviance: 1549.0 on 1175 degrees of freedom
AIC: 1557
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: -0.123887
Standard error............: 0.060696
Odds ratio (effect size)..: 0.883
Lower 95% CI..............: 0.784
Upper 95% CI..............: 0.995
Z-value...................: -2.041093
P-value...................: 0.04124156
Hosmer and Lemeshow r^2...: 0.017232
Cox and Snell r^2.........: 0.022773
Nagelkerke's pseudo r^2...: 0.030886
Sample size of AE DB......: 2388
Sample size of model......: 1179
Missing data %............: 50.62814 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Uni.Protein.PlaquePhenotypes.RANK.MODEL1.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Uni.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Model 2
In this model we correct for Age, Gender, Hypertension status, Diabetes status, current smoker status, lipid-lowering drugs (LLDs), antiplatelet medication, eGFR (MDRD), BMI, CAD history, stroke history, peripheral interventions, and stenosis.
Natural log-transformed data
First we use the natural-log transformed data.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON)) {
TRAIT = TRAITS.CON[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M2) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing Macrophages_LNNote: Using an external vector in selections is ambiguous.
[34mℹ[39m Use `all_of(COVARIATES_M2)` instead of `COVARIATES_M2` to silence this message.
[34mℹ[39m See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
[90mThis message is displayed once per session.[39m
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender + Med.all.antiplatelet +
GFR_MDRD + CAD_history, data = currentDF)
Coefficients:
(Intercept) Gendermale Med.all.antiplateletyes GFR_MDRD CAD_history
4.103909 -0.284834 -0.271084 0.004152 0.163807
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.9032 -0.7308 -0.0446 0.6661 4.5590
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.328129 1.065723 5.000 8.77e-07 ***
currentDF[, TRAIT] -0.033490 0.028026 -1.195 0.2328
Age -0.001666 0.007477 -0.223 0.8238
Gendermale -0.298080 0.127682 -2.335 0.0201 *
Hypertension.compositeyes 0.020986 0.169028 0.124 0.9013
DiabetesStatusDiabetes 0.067662 0.142911 0.473 0.6362
SmokerCurrentyes 0.023604 0.122913 0.192 0.8478
Med.Statin.LLDyes -0.136625 0.127000 -1.076 0.2827
Med.all.antiplateletyes -0.319954 0.197708 -1.618 0.1064
GFR_MDRD 0.004767 0.003269 1.458 0.1456
BMI -0.008503 0.015540 -0.547 0.5846
CAD_history 0.210670 0.122440 1.721 0.0861 .
Stroke_history 0.046045 0.116922 0.394 0.6939
Peripheral.interv -0.044833 0.137875 -0.325 0.7452
stenose50-70% -0.896091 0.705483 -1.270 0.2048
stenose70-90% -0.913710 0.641683 -1.424 0.1553
stenose90-99% -0.866203 0.639556 -1.354 0.1764
stenose100% (Occlusion) -1.283157 0.814781 -1.575 0.1161
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.079 on 382 degrees of freedom
Multiple R-squared: 0.03732, Adjusted R-squared: -0.005525
F-statistic: 0.871 on 17 and 382 DF, p-value: 0.6091
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.03349
Standard error............: 0.028026
Odds ratio (effect size)..: 0.967
Lower 95% CI..............: 0.915
Upper 95% CI..............: 1.022
T-value...................: -1.194968
P-value...................: 0.2328408
R^2.......................: 0.037317
Adjusted r^2..............: -0.005525
Sample size of AE DB......: 2388
Sample size of model......: 400
Missing data %............: 83.24958
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender + GFR_MDRD + CAD_history,
data = currentDF)
Coefficients:
(Intercept) Gendermale GFR_MDRD CAD_history
3.833812 -0.284067 0.004641 0.185825
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.9791 -0.7354 -0.0493 0.6983 4.5102
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.631403 1.039466 5.418 1.06e-07 ***
currentDF[, TRAIT] 0.008979 0.034238 0.262 0.7933
Age -0.003700 0.007322 -0.505 0.6136
Gendermale -0.307441 0.124996 -2.460 0.0143 *
Hypertension.compositeyes -0.017251 0.161017 -0.107 0.9147
DiabetesStatusDiabetes 0.041644 0.139749 0.298 0.7659
SmokerCurrentyes -0.022435 0.120142 -0.187 0.8520
Med.Statin.LLDyes -0.133992 0.123235 -1.087 0.2776
Med.all.antiplateletyes -0.289321 0.190195 -1.521 0.1290
GFR_MDRD 0.005066 0.003233 1.567 0.1179
BMI -0.012998 0.014999 -0.867 0.3867
CAD_history 0.210577 0.121129 1.738 0.0829 .
Stroke_history 0.029454 0.114635 0.257 0.7974
Peripheral.interv 0.005405 0.137903 0.039 0.9688
stenose50-70% -0.969032 0.692204 -1.400 0.1623
stenose70-90% -0.907907 0.634095 -1.432 0.1530
stenose90-99% -0.829748 0.631393 -1.314 0.1896
stenose100% (Occlusion) -1.259466 0.804880 -1.565 0.1184
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.066 on 388 degrees of freedom
Multiple R-squared: 0.03691, Adjusted R-squared: -0.005284
F-statistic: 0.8748 on 17 and 388 DF, p-value: 0.6046
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.008979
Standard error............: 0.034238
Odds ratio (effect size)..: 1.009
Lower 95% CI..............: 0.944
Upper 95% CI..............: 1.079
T-value...................: 0.262263
P-value...................: 0.7932581
R^2.......................: 0.036913
Adjusted r^2..............: -0.005284
Sample size of AE DB......: 2388
Sample size of model......: 406
Missing data %............: 82.99832
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender + GFR_MDRD + CAD_history,
data = currentDF)
Coefficients:
(Intercept) Gendermale GFR_MDRD CAD_history
3.756093 -0.247568 0.005238 0.172172
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.9331 -0.7357 -0.0333 0.7108 4.5826
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.629836 1.065900 5.282 2.15e-07 ***
currentDF[, TRAIT] -0.024028 0.084334 -0.285 0.7759
Age -0.004541 0.007427 -0.611 0.5413
Gendermale -0.269618 0.126774 -2.127 0.0341 *
Hypertension.compositeyes 0.001877 0.167583 0.011 0.9911
DiabetesStatusDiabetes 0.067339 0.144271 0.467 0.6409
SmokerCurrentyes -0.007169 0.122842 -0.058 0.9535
Med.Statin.LLDyes -0.127639 0.125637 -1.016 0.3103
Med.all.antiplateletyes -0.254284 0.196881 -1.292 0.1973
GFR_MDRD 0.005475 0.003304 1.657 0.0984 .
BMI -0.013560 0.015302 -0.886 0.3761
CAD_history 0.203887 0.123226 1.655 0.0988 .
Stroke_history 0.029287 0.116544 0.251 0.8017
Peripheral.interv 0.001324 0.139245 0.010 0.9924
stenose50-70% -0.966805 0.702240 -1.377 0.1694
stenose70-90% -0.915169 0.643578 -1.422 0.1558
stenose90-99% -0.847577 0.641374 -1.322 0.1871
stenose100% (Occlusion) -0.915754 0.854866 -1.071 0.2847
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.082 on 382 degrees of freedom
Multiple R-squared: 0.03248, Adjusted R-squared: -0.01058
F-statistic: 0.7542 on 17 and 382 DF, p-value: 0.7457
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.024028
Standard error............: 0.084334
Odds ratio (effect size)..: 0.976
Lower 95% CI..............: 0.828
Upper 95% CI..............: 1.152
T-value...................: -0.284921
P-value...................: 0.7758592
R^2.......................: 0.032475
Adjusted r^2..............: -0.010582
Sample size of AE DB......: 2388
Sample size of model......: 400
Missing data %............: 83.24958
Analysis of MCP1_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.Statin.LLD + Med.all.antiplatelet,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
5.103134 0.043436 -0.006408 0.203966 -0.195643
Med.Statin.LLDyes Med.all.antiplateletyes
-0.223055 0.201318
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2496 -0.5165 0.0401 0.5857 1.9749
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.910e+00 7.475e-01 7.906 1.86e-14 ***
currentDF[, TRAIT] 4.105e-02 2.006e-02 2.046 0.04131 *
Age -9.148e-03 5.079e-03 -1.801 0.07234 .
Gendermale 1.826e-01 8.723e-02 2.094 0.03681 *
Hypertension.compositeyes -2.086e-01 1.170e-01 -1.783 0.07527 .
DiabetesStatusDiabetes -3.236e-02 9.732e-02 -0.333 0.73965
SmokerCurrentyes -7.826e-02 8.394e-02 -0.932 0.35162
Med.Statin.LLDyes -2.377e-01 8.938e-02 -2.660 0.00808 **
Med.all.antiplateletyes 1.718e-01 1.384e-01 1.241 0.21507
GFR_MDRD -1.361e-05 2.153e-03 -0.006 0.99496
BMI -1.398e-02 1.043e-02 -1.340 0.18093
CAD_history 1.112e-01 8.576e-02 1.297 0.19533
Stroke_history 5.039e-02 8.112e-02 0.621 0.53476
Peripheral.interv -1.334e-01 1.007e-01 -1.325 0.18578
stenose50-70% -4.240e-01 5.363e-01 -0.791 0.42956
stenose70-90% -1.815e-01 4.951e-01 -0.367 0.71402
stenose90-99% -1.605e-01 4.939e-01 -0.325 0.74531
stenose100% (Occlusion) -7.515e-01 6.258e-01 -1.201 0.23035
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8387 on 476 degrees of freedom
Multiple R-squared: 0.06479, Adjusted R-squared: 0.03139
F-statistic: 1.94 on 17 and 476 DF, p-value: 0.01348
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.041046
Standard error............: 0.020062
Odds ratio (effect size)..: 1.042
Lower 95% CI..............: 1.002
Upper 95% CI..............: 1.084
T-value...................: 2.04592
P-value...................: 0.04131326
R^2.......................: 0.064791
Adjusted r^2..............: 0.03139
Sample size of AE DB......: 2388
Sample size of model......: 494
Missing data %............: 79.31323
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.Statin.LLD + Med.all.antiplatelet +
CAD_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
5.38138 -0.11600 -0.01216 0.18033 -0.20127
Med.Statin.LLDyes Med.all.antiplateletyes CAD_history
-0.21292 0.23166 0.12469
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.07018 -0.53655 0.03467 0.56632 2.02007
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.127787 0.724585 8.457 3.28e-16 ***
currentDF[, TRAIT] -0.114944 0.023405 -4.911 1.24e-06 ***
Age -0.014207 0.004927 -2.884 0.00411 **
Gendermale 0.167671 0.084432 1.986 0.04761 *
Hypertension.compositeyes -0.200013 0.111043 -1.801 0.07229 .
DiabetesStatusDiabetes -0.058669 0.094300 -0.622 0.53413
SmokerCurrentyes -0.090731 0.080994 -1.120 0.26318
Med.Statin.LLDyes -0.212011 0.085906 -2.468 0.01393 *
Med.all.antiplateletyes 0.191079 0.131899 1.449 0.14807
GFR_MDRD 0.000200 0.002098 0.095 0.92410
BMI -0.012451 0.009998 -1.245 0.21363
CAD_history 0.147609 0.083959 1.758 0.07936 .
Stroke_history 0.059535 0.078689 0.757 0.44967
Peripheral.interv -0.131218 0.098917 -1.327 0.18528
stenose50-70% -0.391836 0.520961 -0.752 0.45233
stenose70-90% -0.194782 0.483665 -0.403 0.68733
stenose90-99% -0.192270 0.482198 -0.399 0.69026
stenose100% (Occlusion) -0.888011 0.610951 -1.453 0.14674
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8194 on 483 degrees of freedom
Multiple R-squared: 0.1051, Adjusted R-squared: 0.07359
F-statistic: 3.336 on 17 and 483 DF, p-value: 8.398e-06
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.114944
Standard error............: 0.023405
Odds ratio (effect size)..: 0.891
Lower 95% CI..............: 0.851
Upper 95% CI..............: 0.933
T-value...................: -4.911116
P-value...................: 1.241414e-06
R^2.......................: 0.105086
Adjusted r^2..............: 0.073588
Sample size of AE DB......: 2388
Sample size of model......: 501
Missing data %............: 79.0201
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Gender + Med.Statin.LLD +
Med.all.antiplatelet, data = currentDF)
Coefficients:
(Intercept) Age Gendermale Med.Statin.LLDyes Med.all.antiplateletyes
4.888582 -0.007793 0.255881 -0.203922 0.244368
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2320 -0.5447 0.0209 0.5708 2.0150
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.8306386 0.7488051 7.787 4.35e-14 ***
currentDF[, TRAIT] -0.0736783 0.0560723 -1.314 0.18948
Age -0.0098492 0.0050290 -1.958 0.05076 .
Gendermale 0.2312103 0.0868748 2.661 0.00804 **
Hypertension.compositeyes -0.1699790 0.1163269 -1.461 0.14462
DiabetesStatusDiabetes -0.0201171 0.0977882 -0.206 0.83710
SmokerCurrentyes -0.0917532 0.0839957 -1.092 0.27523
Med.Statin.LLDyes -0.2113847 0.0886662 -2.384 0.01752 *
Med.all.antiplateletyes 0.2070417 0.1380296 1.500 0.13428
GFR_MDRD 0.0003182 0.0021989 0.145 0.88501
BMI -0.0119131 0.0103569 -1.150 0.25061
CAD_history 0.1289650 0.0869698 1.483 0.13877
Stroke_history 0.0606234 0.0813170 0.746 0.45633
Peripheral.interv -0.1181870 0.1019860 -1.159 0.24710
stenose50-70% -0.4420833 0.5339946 -0.828 0.40815
stenose70-90% -0.1544408 0.4958562 -0.311 0.75559
stenose90-99% -0.1365629 0.4945868 -0.276 0.78258
stenose100% (Occlusion) -0.7433279 0.6260776 -1.187 0.23571
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8397 on 475 degrees of freedom
Multiple R-squared: 0.06341, Adjusted R-squared: 0.02989
F-statistic: 1.892 on 17 and 475 DF, p-value: 0.01684
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.073678
Standard error............: 0.056072
Odds ratio (effect size)..: 0.929
Lower 95% CI..............: 0.832
Upper 95% CI..............: 1.037
T-value...................: -1.313989
P-value...................: 0.1894841
R^2.......................: 0.06341
Adjusted r^2..............: 0.02989
Sample size of AE DB......: 2388
Sample size of model......: 493
Missing data %............: 79.35511
Analysis of IL6_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
SmokerCurrent + GFR_MDRD + CAD_history + Stroke_history +
Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes SmokerCurrentyes GFR_MDRD
-2.690821 0.102632 -0.223751 0.160849 -0.003282
CAD_history Stroke_history Peripheral.interv
-0.191410 0.240282 -0.212187
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.7026 -0.9256 0.0110 0.8741 4.8263
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.0771142 0.9346824 -2.222 0.026499 *
currentDF[, TRAIT] 0.0985178 0.0257145 3.831 0.000136 ***
Age -0.0060114 0.0057952 -1.037 0.299858
Gendermale 0.0071293 0.1033093 0.069 0.944997
Hypertension.compositeyes -0.1970016 0.1441350 -1.367 0.172014
DiabetesStatusDiabetes 0.0009241 0.1129358 0.008 0.993473
SmokerCurrentyes 0.1158940 0.1040658 1.114 0.265705
Med.Statin.LLDyes -0.0907882 0.1142685 -0.795 0.427092
Med.all.antiplateletyes -0.0191074 0.1538261 -0.124 0.901172
GFR_MDRD -0.0040316 0.0024571 -1.641 0.101172
BMI -0.0135699 0.0129652 -1.047 0.295528
CAD_history -0.1594178 0.1058927 -1.505 0.132535
Stroke_history 0.2574278 0.0996182 2.584 0.009909 **
Peripheral.interv -0.2109443 0.1231333 -1.713 0.087011 .
stenose50-70% -0.0560786 0.6716629 -0.083 0.933478
stenose70-90% 0.3243743 0.6488074 0.500 0.617222
stenose90-99% 0.2435948 0.6485229 0.376 0.707287
stenose100% (Occlusion) 0.9026959 0.8476817 1.065 0.287190
stenose50-99% 0.0402124 1.2045494 0.033 0.973376
stenose70-99% -0.2334215 0.8737346 -0.267 0.789408
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.437 on 956 degrees of freedom
Multiple R-squared: 0.04869, Adjusted R-squared: 0.02979
F-statistic: 2.575 on 19 and 956 DF, p-value: 0.0002445
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.098518
Standard error............: 0.025715
Odds ratio (effect size)..: 1.104
Lower 95% CI..............: 1.049
Upper 95% CI..............: 1.161
T-value...................: 3.831213
P-value...................: 0.0001358352
R^2.......................: 0.048694
Adjusted r^2..............: 0.029787
Sample size of AE DB......: 2388
Sample size of model......: 976
Missing data %............: 59.12898
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
CAD_history + Stroke_history + Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age CAD_history Stroke_history Peripheral.interv
-2.49336 -0.14407 -0.01057 -0.20573 0.27847 -0.21314
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.4261 -0.9451 0.0344 0.9068 5.2333
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.078646 0.931604 -2.231 0.02589 *
currentDF[, TRAIT] -0.147154 0.031400 -4.686 3.18e-06 ***
Age -0.011799 0.005781 -2.041 0.04154 *
Gendermale -0.041451 0.103403 -0.401 0.68860
Hypertension.compositeyes -0.120224 0.142206 -0.845 0.39808
DiabetesStatusDiabetes -0.006793 0.112792 -0.060 0.95199
SmokerCurrentyes 0.098763 0.103683 0.953 0.34105
Med.Statin.LLDyes -0.085970 0.112710 -0.763 0.44580
Med.all.antiplateletyes -0.028053 0.153119 -0.183 0.85467
GFR_MDRD -0.003391 0.002467 -1.375 0.16953
BMI -0.011670 0.012829 -0.910 0.36324
CAD_history -0.158405 0.106023 -1.494 0.13549
Stroke_history 0.278403 0.099099 2.809 0.00506 **
Peripheral.interv -0.217661 0.123065 -1.769 0.07727 .
stenose50-70% 0.015236 0.672137 0.023 0.98192
stenose70-90% 0.450594 0.649635 0.694 0.48809
stenose90-99% 0.396568 0.649397 0.611 0.54156
stenose100% (Occlusion) 1.062603 0.825135 1.288 0.19813
stenose50-99% 0.298635 1.206918 0.247 0.80462
stenose70-99% -0.047446 0.875053 -0.054 0.95677
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.438 on 966 degrees of freedom
Multiple R-squared: 0.0553, Adjusted R-squared: 0.03672
F-statistic: 2.976 on 19 and 966 DF, p-value: 1.994e-05
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.147154
Standard error............: 0.0314
Odds ratio (effect size)..: 0.863
Lower 95% CI..............: 0.812
Upper 95% CI..............: 0.918
T-value...................: -4.686438
P-value...................: 3.178718e-06
R^2.......................: 0.055301
Adjusted r^2..............: 0.03672
Sample size of AE DB......: 2388
Sample size of model......: 986
Missing data %............: 58.71022
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
SmokerCurrent + GFR_MDRD + CAD_history + Stroke_history +
Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes SmokerCurrentyes GFR_MDRD
-2.624708 -0.097253 -0.220997 0.182052 -0.004191
CAD_history Stroke_history Peripheral.interv
-0.190862 0.263254 -0.199689
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.6531 -0.8703 -0.0006 0.8905 5.6434
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.038883 0.974633 -2.092 0.03673 *
currentDF[, TRAIT] -0.104738 0.057219 -1.830 0.06752 .
Age -0.005291 0.006093 -0.868 0.38542
Gendermale -0.021403 0.109072 -0.196 0.84448
Hypertension.compositeyes -0.192809 0.151642 -1.271 0.20390
DiabetesStatusDiabetes -0.042885 0.122174 -0.351 0.72566
SmokerCurrentyes 0.131445 0.110742 1.187 0.23557
Med.Statin.LLDyes -0.052907 0.119575 -0.442 0.65827
Med.all.antiplateletyes -0.042817 0.168204 -0.255 0.79913
GFR_MDRD -0.004739 0.002643 -1.793 0.07335 .
BMI -0.011840 0.013579 -0.872 0.38349
CAD_history -0.158915 0.114224 -1.391 0.16450
Stroke_history 0.283760 0.105814 2.682 0.00746 **
Peripheral.interv -0.201818 0.133898 -1.507 0.13211
stenose50-70% -0.167862 0.687564 -0.244 0.80718
stenose70-90% 0.277449 0.659841 0.420 0.67424
stenose90-99% 0.218711 0.658975 0.332 0.74005
stenose100% (Occlusion) 0.890786 0.861237 1.034 0.30128
stenose50-99% 0.096182 1.222682 0.079 0.93732
stenose70-99% -0.592495 0.982979 -0.603 0.54683
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.458 on 870 degrees of freedom
Multiple R-squared: 0.03891, Adjusted R-squared: 0.01792
F-statistic: 1.854 on 19 and 870 DF, p-value: 0.0145
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.104738
Standard error............: 0.057219
Odds ratio (effect size)..: 0.901
Lower 95% CI..............: 0.805
Upper 95% CI..............: 1.007
T-value...................: -1.830485
P-value...................: 0.06751939
R^2.......................: 0.038911
Adjusted r^2..............: 0.017922
Sample size of AE DB......: 2388
Sample size of model......: 890
Missing data %............: 62.73032
Analysis of IL6R_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + GFR_MDRD + CAD_history +
Stroke_history + Peripheral.interv + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
-1.868663 0.087162 -0.007644 -0.136979 -0.361825
GFR_MDRD CAD_history Stroke_history Peripheral.interv stenose50-70%
-0.002931 -0.119930 0.134121 0.264316 0.578941
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
0.889927 1.048488 0.798484 0.804088 -0.153072
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.3596 -0.5317 0.1550 0.6632 2.8575
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.614178 0.774058 -2.085 0.0373 *
currentDF[, TRAIT] 0.089191 0.019929 4.475 8.54e-06 ***
Age -0.007346 0.004565 -1.609 0.1079
Gendermale -0.078883 0.080897 -0.975 0.3298
Hypertension.compositeyes 0.016735 0.111904 0.150 0.8812
DiabetesStatusDiabetes -0.116262 0.088332 -1.316 0.1884
SmokerCurrentyes 0.040877 0.081212 0.503 0.6148
Med.Statin.LLDyes -0.366933 0.089831 -4.085 4.78e-05 ***
Med.all.antiplateletyes 0.026960 0.121528 0.222 0.8245
GFR_MDRD -0.002836 0.001955 -1.451 0.1471
BMI -0.010516 0.010370 -1.014 0.3108
CAD_history -0.099551 0.082611 -1.205 0.2285
Stroke_history 0.124764 0.077736 1.605 0.1088
Peripheral.interv 0.252383 0.096699 2.610 0.0092 **
stenose50-70% 0.583432 0.583652 1.000 0.3177
stenose70-90% 0.889630 0.566776 1.570 0.1168
stenose90-99% 1.045135 0.566634 1.844 0.0654 .
stenose100% (Occlusion) 0.794176 0.708635 1.121 0.2627
stenose50-99% 0.788728 0.795545 0.991 0.3217
stenose70-99% -0.171338 0.728191 -0.235 0.8140
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.122 on 957 degrees of freedom
Multiple R-squared: 0.07669, Adjusted R-squared: 0.05836
F-statistic: 4.184 on 19 and 957 DF, p-value: 5.997e-09
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.089191
Standard error............: 0.019929
Odds ratio (effect size)..: 1.093
Lower 95% CI..............: 1.051
Upper 95% CI..............: 1.137
T-value...................: 4.475492
P-value...................: 8.54016e-06
R^2.......................: 0.076694
Adjusted r^2..............: 0.058363
Sample size of AE DB......: 2388
Sample size of model......: 977
Missing data %............: 59.0871
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + GFR_MDRD + CAD_history +
Stroke_history + Peripheral.interv + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
-1.944179 0.043465 -0.008985 -0.147927 -0.358007
GFR_MDRD CAD_history Stroke_history Peripheral.interv stenose50-70%
-0.002963 -0.118982 0.153593 0.256277 0.609580
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
0.940725 1.100813 0.781036 0.786098 -0.113250
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.4811 -0.5217 0.1442 0.6521 2.9130
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.861309 0.772888 -2.408 0.01622 *
currentDF[, TRAIT] 0.042720 0.024761 1.725 0.08479 .
Age -0.008717 0.004564 -1.910 0.05646 .
Gendermale -0.016853 0.080912 -0.208 0.83505
Hypertension.compositeyes 0.031667 0.110631 0.286 0.77476
DiabetesStatusDiabetes -0.138529 0.088243 -1.570 0.11677
SmokerCurrentyes 0.036806 0.081052 0.454 0.64985
Med.Statin.LLDyes -0.360922 0.088737 -4.067 5.14e-05 ***
Med.all.antiplateletyes 0.025253 0.121171 0.208 0.83496
GFR_MDRD -0.002975 0.001966 -1.513 0.13049
BMI -0.006163 0.010272 -0.600 0.54867
CAD_history -0.112193 0.082810 -1.355 0.17579
Stroke_history 0.148217 0.077459 1.913 0.05598 .
Peripheral.interv 0.250446 0.096792 2.587 0.00981 **
stenose50-70% 0.623885 0.585257 1.066 0.28669
stenose70-90% 0.953389 0.568526 1.677 0.09388 .
stenose90-99% 1.110673 0.568374 1.954 0.05097 .
stenose100% (Occlusion) 0.795287 0.694155 1.146 0.25221
stenose50-99% 0.779812 0.798436 0.977 0.32897
stenose70-99% -0.111279 0.730667 -0.152 0.87898
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.126 on 968 degrees of freedom
Multiple R-squared: 0.06282, Adjusted R-squared: 0.04443
F-statistic: 3.415 on 19 and 968 DF, p-value: 1.128e-06
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.04272
Standard error............: 0.024761
Odds ratio (effect size)..: 1.044
Lower 95% CI..............: 0.994
Upper 95% CI..............: 1.096
T-value...................: 1.725318
P-value...................: 0.08478925
R^2.......................: 0.062822
Adjusted r^2..............: 0.044427
Sample size of AE DB......: 2388
Sample size of model......: 988
Missing data %............: 58.62647
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + GFR_MDRD + CAD_history +
Stroke_history + Peripheral.interv + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
-1.985548 0.085060 -0.011047 -0.191927 -0.382204
GFR_MDRD CAD_history Stroke_history Peripheral.interv stenose50-70%
-0.003247 -0.151232 0.134454 0.264760 0.670039
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
1.051640 1.182766 0.884950 0.827384 -0.050675
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.4644 -0.5178 0.1193 0.6264 2.8616
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.720513 0.805252 -2.137 0.0329 *
currentDF[, TRAIT] 0.084011 0.045007 1.867 0.0623 .
Age -0.011289 0.004793 -2.355 0.0187 *
Gendermale -0.043677 0.084990 -0.514 0.6074
Hypertension.compositeyes 0.029801 0.117703 0.253 0.8002
DiabetesStatusDiabetes -0.178220 0.095291 -1.870 0.0618 .
SmokerCurrentyes 0.015091 0.086217 0.175 0.8611
Med.Statin.LLDyes -0.386904 0.093850 -4.123 4.11e-05 ***
Med.all.antiplateletyes 0.009582 0.132680 0.072 0.9424
GFR_MDRD -0.003231 0.002111 -1.531 0.1262
BMI -0.009544 0.010931 -0.873 0.3828
CAD_history -0.141443 0.088663 -1.595 0.1110
Stroke_history 0.129125 0.082444 1.566 0.1177
Peripheral.interv 0.256497 0.104752 2.449 0.0145 *
stenose50-70% 0.665189 0.594432 1.119 0.2634
stenose70-90% 1.048265 0.573848 1.827 0.0681 .
stenose90-99% 1.176706 0.573255 2.053 0.0404 *
stenose100% (Occlusion) 0.872861 0.717166 1.217 0.2239
stenose50-99% 0.815870 0.804759 1.014 0.3110
stenose70-99% -0.040092 0.807060 -0.050 0.9604
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.135 on 869 degrees of freedom
Multiple R-squared: 0.06919, Adjusted R-squared: 0.04884
F-statistic: 3.4 on 19 and 869 DF, p-value: 1.328e-06
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: 0.084011
Standard error............: 0.045007
Odds ratio (effect size)..: 1.088
Lower 95% CI..............: 0.996
Upper 95% CI..............: 1.188
T-value...................: 1.8666
P-value...................: 0.0622941
R^2.......................: 0.069191
Adjusted r^2..............: 0.04884
Sample size of AE DB......: 2388
Sample size of model......: 889
Missing data %............: 62.77219
Analysis of MCP1_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Hypertension.composite +
Med.Statin.LLD + Stroke_history, data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Med.Statin.LLDyes Stroke_history
-0.8522 -0.2802 -0.2096 0.1486
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.7571 -0.7488 0.0930 0.8590 3.4920
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.925358 0.842505 -1.098 0.2723
currentDF[, TRAIT] -0.026271 0.022722 -1.156 0.2479
Age -0.001425 0.005170 -0.276 0.7830
Gendermale 0.097049 0.091595 1.060 0.2896
Hypertension.compositeyes -0.269214 0.128299 -2.098 0.0361 *
DiabetesStatusDiabetes -0.033010 0.100639 -0.328 0.7430
SmokerCurrentyes -0.009423 0.092386 -0.102 0.9188
Med.Statin.LLDyes -0.208582 0.102743 -2.030 0.0426 *
Med.all.antiplateletyes -0.027788 0.138284 -0.201 0.8408
GFR_MDRD -0.001712 0.002194 -0.780 0.4354
BMI -0.005436 0.011533 -0.471 0.6375
CAD_history -0.061333 0.093962 -0.653 0.5141
Stroke_history 0.140095 0.088863 1.577 0.1152
Peripheral.interv 0.017046 0.109534 0.156 0.8764
stenose50-70% 0.339845 0.610362 0.557 0.5778
stenose70-90% 0.471059 0.589413 0.799 0.4244
stenose90-99% 0.291657 0.589271 0.495 0.6207
stenose100% (Occlusion) -0.477681 0.770245 -0.620 0.5353
stenose50-99% 0.769852 0.878037 0.877 0.3808
stenose70-99% 0.638329 0.793977 0.804 0.4216
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.306 on 996 degrees of freedom
Multiple R-squared: 0.02457, Adjusted R-squared: 0.005962
F-statistic: 1.32 on 19 and 996 DF, p-value: 0.1609
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.026271
Standard error............: 0.022722
Odds ratio (effect size)..: 0.974
Lower 95% CI..............: 0.932
Upper 95% CI..............: 1.018
T-value...................: -1.156187
P-value...................: 0.2478818
R^2.......................: 0.02457
Adjusted r^2..............: 0.005962
Sample size of AE DB......: 2388
Sample size of model......: 1016
Missing data %............: 57.45394
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
Med.Statin.LLD + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes Med.Statin.LLDyes Stroke_history
-0.85457 -0.08447 -0.26329 -0.22108 0.12716
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.7696 -0.7530 0.0762 0.8597 3.5363
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.8994588 0.8361173 -1.076 0.28229
currentDF[, TRAIT] -0.0835184 0.0278491 -2.999 0.00278 **
Age -0.0026486 0.0051357 -0.516 0.60617
Gendermale 0.0664656 0.0912138 0.729 0.46637
Hypertension.compositeyes -0.2411143 0.1260696 -1.913 0.05609 .
DiabetesStatusDiabetes -0.0680869 0.0999108 -0.681 0.49573
SmokerCurrentyes -0.0088623 0.0916328 -0.097 0.92297
Med.Statin.LLDyes -0.2229455 0.1008775 -2.210 0.02733 *
Med.all.antiplateletyes -0.0224478 0.1370340 -0.164 0.86991
GFR_MDRD -0.0009749 0.0021921 -0.445 0.65659
BMI -0.0052354 0.0113634 -0.461 0.64510
CAD_history -0.0618465 0.0935719 -0.661 0.50879
Stroke_history 0.1220969 0.0880165 1.387 0.16569
Peripheral.interv 0.0617444 0.1089423 0.567 0.57100
stenose50-70% 0.3690008 0.6080728 0.607 0.54410
stenose70-90% 0.5043705 0.5875537 0.858 0.39086
stenose90-99% 0.3427729 0.5874487 0.583 0.55969
stenose100% (Occlusion) -0.2187628 0.7464469 -0.293 0.76953
stenose50-99% 0.8500869 0.8754372 0.971 0.33176
stenose70-99% 0.7158192 0.7916197 0.904 0.36608
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.302 on 1007 degrees of freedom
Multiple R-squared: 0.03067, Adjusted R-squared: 0.01238
F-statistic: 1.677 on 19 and 1007 DF, p-value: 0.03435
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.083518
Standard error............: 0.027849
Odds ratio (effect size)..: 0.92
Lower 95% CI..............: 0.871
Upper 95% CI..............: 0.971
T-value...................: -2.998965
P-value...................: 0.002775574
R^2.......................: 0.030672
Adjusted r^2..............: 0.012383
Sample size of AE DB......: 2388
Sample size of model......: 1027
Missing data %............: 56.9933
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
Med.Statin.LLD + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes Med.Statin.LLDyes Stroke_history
-0.5912 -0.1803 -0.2543 -0.2075 0.1558
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.6053 -0.7439 0.0709 0.8139 3.6085
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.463146 0.873520 -0.530 0.596099
currentDF[, TRAIT] -0.176119 0.050659 -3.477 0.000532 ***
Age -0.001246 0.005407 -0.230 0.817776
Gendermale 0.138756 0.096023 1.445 0.148796
Hypertension.compositeyes -0.245848 0.135031 -1.821 0.068985 .
DiabetesStatusDiabetes -0.059439 0.108067 -0.550 0.582439
SmokerCurrentyes -0.005477 0.097786 -0.056 0.955347
Med.Statin.LLDyes -0.205808 0.107190 -1.920 0.055167 .
Med.all.antiplateletyes 0.042184 0.150129 0.281 0.778788
GFR_MDRD -0.002446 0.002350 -1.041 0.298184
BMI -0.008293 0.012091 -0.686 0.492954
CAD_history -0.061503 0.100738 -0.611 0.541669
Stroke_history 0.144423 0.093922 1.538 0.124475
Peripheral.interv 0.016866 0.118344 0.143 0.886704
stenose50-70% 0.147602 0.621101 0.238 0.812209
stenose70-90% 0.318132 0.595921 0.534 0.593576
stenose90-99% 0.169478 0.595273 0.285 0.775934
stenose100% (Occlusion) -0.528418 0.778005 -0.679 0.497187
stenose50-99% 0.810463 0.886127 0.915 0.360638
stenose70-99% 0.234863 0.888016 0.264 0.791470
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.318 on 906 degrees of freedom
Multiple R-squared: 0.03654, Adjusted R-squared: 0.01634
F-statistic: 1.809 on 19 and 906 DF, p-value: 0.01817
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.176119
Standard error............: 0.050659
Odds ratio (effect size)..: 0.839
Lower 95% CI..............: 0.759
Upper 95% CI..............: 0.926
T-value...................: -3.476584
P-value...................: 0.0005319754
R^2.......................: 0.036541
Adjusted r^2..............: 0.016336
Sample size of AE DB......: 2388
Sample size of model......: 926
Missing data %............: 61.22278 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Multi.Protein.PlaquePhenotypes.MODEL2.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M2) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Stroke_history, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Stroke_history
0.06077 0.42883 -0.31558
Degrees of Freedom: 412 Total (i.e. Null); 410 Residual
Null Deviance: 561.6
Residual Deviance: 557.3 AIC: 563.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9040 -1.2441 0.8325 1.0410 1.5634
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.211560 2.100615 0.101 0.920
currentDF[, PROTEIN] 0.142733 0.098280 1.452 0.146
Age -0.009077 0.014097 -0.644 0.520
Gendermale -0.228810 0.242795 -0.942 0.346
Hypertension.compositeyes 0.506219 0.309468 1.636 0.102
DiabetesStatusDiabetes -0.355035 0.267598 -1.327 0.185
SmokerCurrentyes -0.078917 0.229881 -0.343 0.731
Med.Statin.LLDyes -0.145398 0.239118 -0.608 0.543
Med.all.antiplateletyes 0.309251 0.366705 0.843 0.399
GFR_MDRD -0.010044 0.006340 -1.584 0.113
BMI -0.020982 0.029020 -0.723 0.470
CAD_history 0.061271 0.233414 0.262 0.793
Stroke_history -0.329851 0.219902 -1.500 0.134
Peripheral.interv -0.250407 0.260258 -0.962 0.336
stenose50-70% 1.444119 1.377917 1.048 0.295
stenose70-90% 1.402594 1.268968 1.105 0.269
stenose90-99% 1.071288 1.262660 0.848 0.396
stenose100% (Occlusion) 1.414209 1.589178 0.890 0.374
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 561.62 on 412 degrees of freedom
Residual deviance: 544.61 on 395 degrees of freedom
AIC: 580.61
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.142733
Standard error............: 0.09828
Odds ratio (effect size)..: 1.153
Lower 95% CI..............: 0.951
Upper 95% CI..............: 1.398
Z-value...................: 1.452309
P-value...................: 0.1464158
Hosmer and Lemeshow r^2...: 0.030295
Cox and Snell r^2.........: 0.04036
Nagelkerke's pseudo r^2...: 0.054298
Sample size of AE DB......: 2388
Sample size of model......: 413
Missing data %............: 82.70519
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes stenose50-70% stenose70-90% stenose90-99%
1.642e+01 4.689e-01 3.571e-09 -1.515e+01 -1.547e+01
stenose100% (Occlusion)
-1.512e+01
Degrees of Freedom: 411 Total (i.e. Null); 406 Residual
Null Deviance: 427.4
Residual Deviance: 413.6 AIC: 425.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.12610 0.00028 0.62576 0.74886 1.10870
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.871e+01 2.248e+03 0.008 0.9934
currentDF[, PROTEIN] 1.060e-01 1.182e-01 0.897 0.3696
Age -1.050e-02 1.724e-02 -0.609 0.5426
Gendermale -4.748e-02 2.947e-01 -0.161 0.8720
Hypertension.compositeyes 4.265e-01 3.623e-01 1.177 0.2391
DiabetesStatusDiabetes 2.622e-01 3.339e-01 0.785 0.4323
SmokerCurrentyes 4.934e-01 2.862e-01 1.724 0.0847 .
Med.Statin.LLDyes -1.066e-01 2.892e-01 -0.368 0.7125
Med.all.antiplateletyes 4.696e-01 4.214e-01 1.115 0.2651
GFR_MDRD -1.124e-02 7.906e-03 -1.421 0.1553
BMI -4.181e-02 3.521e-02 -1.188 0.2350
CAD_history 8.257e-02 2.827e-01 0.292 0.7702
Stroke_history 1.151e-01 2.726e-01 0.422 0.6729
Peripheral.interv -4.408e-01 3.013e-01 -1.463 0.1435
stenose50-70% 2.979e-01 2.462e+03 0.000 0.9999
stenose70-90% -1.590e+01 2.248e+03 -0.007 0.9944
stenose90-99% -1.632e+01 2.248e+03 -0.007 0.9942
stenose100% (Occlusion) -1.561e+01 2.248e+03 -0.007 0.9945
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 427.39 on 411 degrees of freedom
Residual deviance: 404.07 on 394 degrees of freedom
AIC: 440.07
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.106009
Standard error............: 0.118157
Odds ratio (effect size)..: 1.112
Lower 95% CI..............: 0.882
Upper 95% CI..............: 1.402
Z-value...................: 0.897189
P-value...................: 0.3696183
Hosmer and Lemeshow r^2...: 0.054567
Cox and Snell r^2.........: 0.055034
Nagelkerke's pseudo r^2...: 0.085243
Sample size of AE DB......: 2388
Sample size of model......: 412
Missing data %............: 82.74707
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite +
Stroke_history, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes Stroke_history
0.1829 0.6076 0.7569 0.7206
Degrees of Freedom: 412 Total (i.e. Null); 409 Residual
Null Deviance: 403.2
Residual Deviance: 387.6 AIC: 395.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3279 0.3992 0.5515 0.6787 1.2810
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.522e+01 1.375e+03 0.011 0.9912
currentDF[, PROTEIN] 2.553e-02 1.198e-01 0.213 0.8313
Age -1.085e-02 1.794e-02 -0.605 0.5453
Gendermale 6.661e-01 2.899e-01 2.298 0.0216 *
Hypertension.compositeyes 8.268e-01 3.505e-01 2.359 0.0183 *
DiabetesStatusDiabetes -1.988e-01 3.316e-01 -0.599 0.5489
SmokerCurrentyes 3.269e-01 2.994e-01 1.092 0.2750
Med.Statin.LLDyes -1.057e-01 3.071e-01 -0.344 0.7307
Med.all.antiplateletyes 9.866e-02 4.636e-01 0.213 0.8315
GFR_MDRD -7.000e-03 8.346e-03 -0.839 0.4016
BMI 1.383e-02 3.676e-02 0.376 0.7067
CAD_history 1.454e-02 2.982e-01 0.049 0.9611
Stroke_history 6.934e-01 3.085e-01 2.248 0.0246 *
Peripheral.interv -3.647e-01 3.125e-01 -1.167 0.2432
stenose50-70% -1.505e+01 1.375e+03 -0.011 0.9913
stenose70-90% -1.426e+01 1.375e+03 -0.010 0.9917
stenose90-99% -1.446e+01 1.375e+03 -0.011 0.9916
stenose100% (Occlusion) 9.090e-01 1.736e+03 0.001 0.9996
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 403.15 on 412 degrees of freedom
Residual deviance: 377.76 on 395 degrees of freedom
AIC: 413.76
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.025535
Standard error............: 0.119833
Odds ratio (effect size)..: 1.026
Lower 95% CI..............: 0.811
Upper 95% CI..............: 1.297
Z-value...................: 0.213092
P-value...................: 0.8312552
Hosmer and Lemeshow r^2...: 0.062996
Cox and Snell r^2.........: 0.059642
Nagelkerke's pseudo r^2...: 0.095695
Sample size of AE DB......: 2388
Sample size of model......: 413
Missing data %............: 82.70519
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite +
DiabetesStatus + Med.all.antiplatelet, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes DiabetesStatusDiabetes Med.all.antiplateletyes
1.0660 0.5303 0.5860 -0.5228 -0.7202
Degrees of Freedom: 412 Total (i.e. Null); 408 Residual
Null Deviance: 454.9
Residual Deviance: 441.3 AIC: 451.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0621 0.3753 0.6288 0.7913 1.2205
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.145802 2.323801 -0.493 0.6220
currentDF[, PROTEIN] -0.060240 0.109513 -0.550 0.5823
Age 0.013977 0.015971 0.875 0.3815
Gendermale 0.549378 0.264555 2.077 0.0378 *
Hypertension.compositeyes 0.485556 0.335458 1.447 0.1478
DiabetesStatusDiabetes -0.635087 0.295408 -2.150 0.0316 *
SmokerCurrentyes 0.155838 0.269384 0.578 0.5629
Med.Statin.LLDyes 0.073143 0.275737 0.265 0.7908
Med.all.antiplateletyes -0.754014 0.523796 -1.440 0.1500
GFR_MDRD -0.005491 0.007373 -0.745 0.4565
BMI 0.026724 0.032835 0.814 0.4157
CAD_history 0.215890 0.279275 0.773 0.4395
Stroke_history 0.030560 0.255858 0.119 0.9049
Peripheral.interv 0.254194 0.314189 0.809 0.4185
stenose50-70% 1.153696 1.419822 0.813 0.4165
stenose70-90% 1.043858 1.278701 0.816 0.4143
stenose90-99% 1.146267 1.274104 0.900 0.3683
stenose100% (Occlusion) 1.034588 1.741930 0.594 0.5526
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 454.92 on 412 degrees of freedom
Residual deviance: 435.57 on 395 degrees of freedom
AIC: 471.57
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: IPH
Effect size...............: -0.06024
Standard error............: 0.109513
Odds ratio (effect size)..: 0.942
Lower 95% CI..............: 0.76
Upper 95% CI..............: 1.167
Z-value...................: -0.550072
P-value...................: 0.58227
Hosmer and Lemeshow r^2...: 0.042528
Cox and Snell r^2.........: 0.045764
Nagelkerke's pseudo r^2...: 0.068548
Sample size of AE DB......: 2388
Sample size of model......: 413
Missing data %............: 82.70519
Analysis of MCP1_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
DiabetesStatus + GFR_MDRD + Stroke_history + Peripheral.interv,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] DiabetesStatusDiabetes GFR_MDRD Stroke_history
2.3756 -0.2319 -0.4694 -0.0093 -0.3938
Peripheral.interv
-0.3572
Degrees of Freedom: 506 Total (i.e. Null); 501 Residual
Null Deviance: 687.8
Residual Deviance: 670.7 AIC: 682.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8298 -1.2494 0.8377 1.0142 1.5091
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.071917 1.970396 0.036 0.9709
currentDF[, PROTEIN] -0.216531 0.113735 -1.904 0.0569 .
Age 0.005647 0.012345 0.457 0.6474
Gendermale -0.098242 0.214322 -0.458 0.6467
Hypertension.compositeyes 0.390757 0.278309 1.404 0.1603
DiabetesStatusDiabetes -0.521749 0.236227 -2.209 0.0272 *
SmokerCurrentyes 0.164273 0.204971 0.801 0.4229
Med.Statin.LLDyes -0.113143 0.218309 -0.518 0.6043
Med.all.antiplateletyes 0.165116 0.336537 0.491 0.6237
GFR_MDRD -0.008601 0.005339 -1.611 0.1072
BMI 0.005842 0.025430 0.230 0.8183
CAD_history -0.010525 0.211439 -0.050 0.9603
Stroke_history -0.406136 0.197879 -2.052 0.0401 *
Peripheral.interv -0.334416 0.246904 -1.354 0.1756
stenose50-70% 1.282607 1.371998 0.935 0.3499
stenose70-90% 1.447780 1.284020 1.128 0.2595
stenose90-99% 1.153776 1.279820 0.902 0.3673
stenose100% (Occlusion) 1.265528 1.609157 0.786 0.4316
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 687.85 on 506 degrees of freedom
Residual deviance: 664.87 on 489 degrees of freedom
AIC: 700.87
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.216531
Standard error............: 0.113735
Odds ratio (effect size)..: 0.805
Lower 95% CI..............: 0.644
Upper 95% CI..............: 1.006
Z-value...................: -1.90382
P-value...................: 0.05693357
Hosmer and Lemeshow r^2...: 0.033411
Cox and Snell r^2.........: 0.044317
Nagelkerke's pseudo r^2...: 0.059687
Sample size of AE DB......: 2388
Sample size of model......: 507
Missing data %............: 78.76884
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + Med.all.antiplatelet + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes Med.all.antiplateletyes Peripheral.interv
18.6959 -0.7585 0.5419 0.6881 -0.5865
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
-13.1027 -14.0946 -14.5925 -14.1993
Degrees of Freedom: 504 Total (i.e. Null); 496 Residual
Null Deviance: 499.8
Residual Deviance: 456.3 AIC: 474.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5468 0.3210 0.5145 0.6873 1.3907
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 19.208916 778.940414 0.025 0.9803
currentDF[, PROTEIN] -0.747348 0.160259 -4.663 3.11e-06 ***
Age -0.002509 0.015925 -0.158 0.8748
Gendermale -0.101596 0.281344 -0.361 0.7180
Hypertension.compositeyes 0.242031 0.345102 0.701 0.4831
DiabetesStatusDiabetes 0.295815 0.320385 0.923 0.3558
SmokerCurrentyes 0.563563 0.272956 2.065 0.0390 *
Med.Statin.LLDyes 0.035280 0.270331 0.131 0.8962
Med.all.antiplateletyes 0.687607 0.396855 1.733 0.0832 .
GFR_MDRD -0.002168 0.006966 -0.311 0.7556
BMI -0.019309 0.034070 -0.567 0.5709
CAD_history 0.162940 0.269011 0.606 0.5447
Stroke_history 0.118618 0.258214 0.459 0.6460
Peripheral.interv -0.645900 0.299607 -2.156 0.0311 *
stenose50-70% -13.110963 778.938449 -0.017 0.9866
stenose70-90% -14.120405 778.937755 -0.018 0.9855
stenose90-99% -14.635370 778.937743 -0.019 0.9850
stenose100% (Occlusion) -14.102429 778.938684 -0.018 0.9856
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 499.81 on 504 degrees of freedom
Residual deviance: 453.59 on 487 degrees of freedom
AIC: 489.59
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.747348
Standard error............: 0.160259
Odds ratio (effect size)..: 0.474
Lower 95% CI..............: 0.346
Upper 95% CI..............: 0.648
Z-value...................: -4.663368
P-value...................: 3.110754e-06
Hosmer and Lemeshow r^2...: 0.092477
Cox and Snell r^2.........: 0.087463
Nagelkerke's pseudo r^2...: 0.139202
Sample size of AE DB......: 2388
Sample size of model......: 505
Missing data %............: 78.8526
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Hypertension.composite + SmokerCurrent + Stroke_history,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Hypertension.compositeyes SmokerCurrentyes
-3.3934 0.7741 0.5974 0.7455 0.3775
Stroke_history
0.7308
Degrees of Freedom: 506 Total (i.e. Null); 501 Residual
Null Deviance: 495
Residual Deviance: 444.7 AIC: 456.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5589 0.2924 0.4739 0.6631 1.5573
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 8.460e+00 8.131e+02 0.010 0.9917
currentDF[, PROTEIN] 7.856e-01 1.516e-01 5.183 2.18e-07 ***
Age 3.727e-03 1.615e-02 0.231 0.8175
Gendermale 6.253e-01 2.612e-01 2.394 0.0167 *
Hypertension.compositeyes 7.570e-01 3.445e-01 2.198 0.0280 *
DiabetesStatusDiabetes -2.620e-01 3.015e-01 -0.869 0.3848
SmokerCurrentyes 3.903e-01 2.746e-01 1.422 0.1552
Med.Statin.LLDyes -6.708e-02 2.965e-01 -0.226 0.8210
Med.all.antiplateletyes 1.913e-01 4.135e-01 0.463 0.6436
GFR_MDRD 1.764e-04 7.232e-03 0.024 0.9805
BMI 4.233e-02 3.303e-02 1.282 0.1999
CAD_history -2.006e-01 2.787e-01 -0.720 0.4716
Stroke_history 7.218e-01 2.857e-01 2.526 0.0115 *
Peripheral.interv -1.379e-01 3.055e-01 -0.451 0.6516
stenose50-70% -1.418e+01 8.131e+02 -0.017 0.9861
stenose70-90% -1.306e+01 8.131e+02 -0.016 0.9872
stenose90-99% -1.339e+01 8.131e+02 -0.016 0.9869
stenose100% (Occlusion) -1.285e+01 8.131e+02 -0.016 0.9874
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 494.97 on 506 degrees of freedom
Residual deviance: 435.54 on 489 degrees of freedom
AIC: 471.54
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.785582
Standard error............: 0.151558
Odds ratio (effect size)..: 2.194
Lower 95% CI..............: 1.63
Upper 95% CI..............: 2.952
Z-value...................: 5.183379
P-value...................: 2.179012e-07
Hosmer and Lemeshow r^2...: 0.120063
Cox and Snell r^2.........: 0.110605
Nagelkerke's pseudo r^2...: 0.177454
Sample size of AE DB......: 2388
Sample size of model......: 507
Missing data %............: 78.76884
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
DiabetesStatus + BMI + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale DiabetesStatusDiabetes BMI
-2.11972 0.02062 0.76552 -0.51884 0.05379
Peripheral.interv
0.43188
Degrees of Freedom: 506 Total (i.e. Null); 501 Residual
Null Deviance: 557.2
Residual Deviance: 535.1 AIC: 547.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1222 0.4422 0.6184 0.7615 1.5806
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -3.392924 2.168263 -1.565 0.1176
currentDF[, PROTEIN] 0.131376 0.130297 1.008 0.3133
Age 0.014973 0.014227 1.052 0.2926
Gendermale 0.749485 0.233010 3.217 0.0013 **
Hypertension.compositeyes 0.270763 0.311744 0.869 0.3851
DiabetesStatusDiabetes -0.530889 0.264110 -2.010 0.0444 *
SmokerCurrentyes 0.041490 0.239050 0.174 0.8622
Med.Statin.LLDyes -0.085328 0.258019 -0.331 0.7409
Med.all.antiplateletyes -0.097537 0.397652 -0.245 0.8062
GFR_MDRD -0.005021 0.006267 -0.801 0.4230
BMI 0.051515 0.029392 1.753 0.0797 .
CAD_history 0.187788 0.256176 0.733 0.4635
Stroke_history 0.118708 0.232940 0.510 0.6103
Peripheral.interv 0.418163 0.306767 1.363 0.1728
stenose50-70% 1.262123 1.380939 0.914 0.3607
stenose70-90% 1.184072 1.266946 0.935 0.3500
stenose90-99% 1.383535 1.264436 1.094 0.2739
stenose100% (Occlusion) 1.541946 1.722692 0.895 0.3707
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 557.22 on 506 degrees of freedom
Residual deviance: 529.66 on 489 degrees of freedom
AIC: 565.66
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: IPH
Effect size...............: 0.131376
Standard error............: 0.130297
Odds ratio (effect size)..: 1.14
Lower 95% CI..............: 0.883
Upper 95% CI..............: 1.472
Z-value...................: 1.008281
P-value...................: 0.3133197
Hosmer and Lemeshow r^2...: 0.049464
Cox and Snell r^2.........: 0.052912
Nagelkerke's pseudo r^2...: 0.079351
Sample size of AE DB......: 2388
Sample size of model......: 507
Missing data %............: 78.76884
Analysis of IL6_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + CAD_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes CAD_history
-1.44653 -0.07084 0.01994 0.39936 0.25473
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-1.00356 -0.50547 -0.26062 0.82473 -13.93339
stenose70-99%
-1.52574
Degrees of Freedom: 996 Total (i.e. Null); 986 Residual
Null Deviance: 1381
Residual Deviance: 1349 AIC: 1371
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6142 -1.1333 -0.7968 1.1560 1.6718
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.129798 1.325225 -0.853 0.39392
currentDF[, PROTEIN] -0.069823 0.045164 -1.546 0.12211
Age 0.016974 0.008100 2.095 0.03613 *
Gendermale -0.133605 0.144147 -0.927 0.35400
Hypertension.compositeyes 0.232025 0.202513 1.146 0.25191
DiabetesStatusDiabetes -0.174736 0.159528 -1.095 0.27337
SmokerCurrentyes 0.414304 0.146715 2.824 0.00474 **
Med.Statin.LLDyes -0.164594 0.159158 -1.034 0.30106
Med.all.antiplateletyes -0.223848 0.217190 -1.031 0.30270
GFR_MDRD -0.001882 0.003492 -0.539 0.58999
BMI 0.012407 0.018096 0.686 0.49295
CAD_history 0.263345 0.149976 1.756 0.07910 .
Stroke_history -0.138179 0.140751 -0.982 0.32623
Peripheral.interv -0.183211 0.172892 -1.060 0.28929
stenose50-70% -0.937991 0.962569 -0.974 0.32983
stenose70-90% -0.484572 0.928921 -0.522 0.60191
stenose90-99% -0.235047 0.928443 -0.253 0.80014
stenose100% (Occlusion) 0.820707 1.245138 0.659 0.50981
stenose50-99% -14.005575 368.450051 -0.038 0.96968
stenose70-99% -1.450206 1.253664 -1.157 0.24736
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1381.3 on 996 degrees of freedom
Residual deviance: 1340.1 on 977 degrees of freedom
AIC: 1380.1
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.069823
Standard error............: 0.045164
Odds ratio (effect size)..: 0.933
Lower 95% CI..............: 0.854
Upper 95% CI..............: 1.019
Z-value...................: -1.545965
P-value...................: 0.122113
Hosmer and Lemeshow r^2...: 0.029786
Cox and Snell r^2.........: 0.040427
Nagelkerke's pseudo r^2...: 0.053918
Sample size of AE DB......: 2388
Sample size of model......: 997
Missing data %............: 58.24958
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Hypertension.composite + SmokerCurrent + BMI + Stroke_history,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Hypertension.compositeyes SmokerCurrentyes BMI
-0.64730 -0.19549 0.33966 0.44766 0.03332
Stroke_history
0.25010
Degrees of Freedom: 999 Total (i.e. Null); 994 Residual
Null Deviance: 1017
Residual Deviance: 993.2 AIC: 1005
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2738 0.4496 0.6096 0.7198 1.1160
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.232e+01 6.478e+02 0.019 0.984826
currentDF[, PROTEIN] -1.901e-01 5.643e-02 -3.370 0.000753 ***
Age 8.224e-03 9.876e-03 0.833 0.405022
Gendermale -8.624e-02 1.781e-01 -0.484 0.628235
Hypertension.compositeyes 3.110e-01 2.330e-01 1.335 0.181998
DiabetesStatusDiabetes 2.110e-01 2.038e-01 1.035 0.300511
SmokerCurrentyes 4.928e-01 1.863e-01 2.645 0.008165 **
Med.Statin.LLDyes -1.679e-02 1.955e-01 -0.086 0.931556
Med.all.antiplateletyes 1.321e-01 2.616e-01 0.505 0.613723
GFR_MDRD 4.699e-03 4.301e-03 1.092 0.274655
BMI 3.343e-02 2.363e-02 1.415 0.157050
CAD_history 2.203e-01 1.882e-01 1.171 0.241696
Stroke_history 2.401e-01 1.765e-01 1.360 0.173700
Peripheral.interv -1.730e-02 2.154e-01 -0.080 0.935980
stenose50-70% -1.361e+01 6.478e+02 -0.021 0.983245
stenose70-90% -1.401e+01 6.478e+02 -0.022 0.982741
stenose90-99% -1.406e+01 6.478e+02 -0.022 0.982686
stenose100% (Occlusion) 5.521e-01 8.166e+02 0.001 0.999461
stenose50-99% 1.725e-02 1.208e+03 0.000 0.999989
stenose70-99% -1.372e+01 6.478e+02 -0.021 0.983109
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1017.22 on 999 degrees of freedom
Residual deviance: 980.22 on 980 degrees of freedom
AIC: 1020.2
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.190149
Standard error............: 0.056431
Odds ratio (effect size)..: 0.827
Lower 95% CI..............: 0.74
Upper 95% CI..............: 0.924
Z-value...................: -3.369571
P-value...................: 0.000752854
Hosmer and Lemeshow r^2...: 0.03637
Cox and Snell r^2.........: 0.036321
Nagelkerke's pseudo r^2...: 0.056893
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
1.5088 0.3120 0.8361 0.3705 -0.6128
Degrees of Freedom: 999 Total (i.e. Null); 995 Residual
Null Deviance: 1165
Residual Deviance: 1078 AIC: 1088
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2376 -1.0048 0.6046 0.8035 2.0522
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.416e+01 3.908e+02 0.036 0.971101
currentDF[, PROTEIN] 3.150e-01 5.445e-02 5.785 7.25e-09 ***
Age 9.863e-03 9.331e-03 1.057 0.290516
Gendermale 8.540e-01 1.612e-01 5.299 1.16e-07 ***
Hypertension.compositeyes 6.925e-02 2.349e-01 0.295 0.768118
DiabetesStatusDiabetes -1.188e-01 1.840e-01 -0.646 0.518436
SmokerCurrentyes 9.721e-02 1.711e-01 0.568 0.569863
Med.Statin.LLDyes -1.762e-01 1.905e-01 -0.925 0.354945
Med.all.antiplateletyes 6.857e-02 2.500e-01 0.274 0.783889
GFR_MDRD -2.444e-04 4.099e-03 -0.060 0.952452
BMI 4.105e-03 2.044e-02 0.201 0.840876
CAD_history 8.625e-02 1.753e-01 0.492 0.622789
Stroke_history 3.758e-01 1.703e-01 2.207 0.027313 *
Peripheral.interv -6.179e-01 1.860e-01 -3.322 0.000895 ***
stenose50-70% -1.354e+01 3.908e+02 -0.035 0.972374
stenose70-90% -1.348e+01 3.908e+02 -0.035 0.972476
stenose90-99% -1.333e+01 3.908e+02 -0.034 0.972791
stenose100% (Occlusion) -1.432e+01 3.908e+02 -0.037 0.970764
stenose50-99% -1.499e+01 3.908e+02 -0.038 0.969397
stenose70-99% -1.463e+01 3.908e+02 -0.037 0.970143
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1164.5 on 999 degrees of freedom
Residual deviance: 1066.6 on 980 degrees of freedom
AIC: 1106.6
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.314972
Standard error............: 0.054447
Odds ratio (effect size)..: 1.37
Lower 95% CI..............: 1.232
Upper 95% CI..............: 1.525
Z-value...................: 5.78494
P-value...................: 7.25384e-09
Hosmer and Lemeshow r^2...: 0.084067
Cox and Snell r^2.........: 0.093259
Nagelkerke's pseudo r^2...: 0.135564
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Med.Statin.LLD +
BMI + CAD_history + Stroke_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Med.Statin.LLDyes BMI CAD_history
0.16028 0.59271 -0.25963 0.02923 0.30318
Stroke_history stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.25028 -1.09743 -0.97086 -0.65159 -0.80087
stenose50-99% stenose70-99%
-15.27559 0.59126
Degrees of Freedom: 998 Total (i.e. Null); 987 Residual
Null Deviance: 1331
Residual Deviance: 1288 AIC: 1312
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9361 -1.2697 0.8098 0.9793 1.4501
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.257533 1.493884 0.172 0.8631
currentDF[, PROTEIN] 0.039778 0.046572 0.854 0.3930
Age 0.001667 0.008309 0.201 0.8410
Gendermale 0.639327 0.146514 4.364 1.28e-05 ***
Hypertension.compositeyes -0.107679 0.207227 -0.520 0.6033
DiabetesStatusDiabetes -0.123508 0.163543 -0.755 0.4501
SmokerCurrentyes 0.124348 0.151574 0.820 0.4120
Med.Statin.LLDyes -0.249362 0.167276 -1.491 0.1360
Med.all.antiplateletyes 0.162196 0.221065 0.734 0.4631
GFR_MDRD -0.004962 0.003614 -1.373 0.1698
BMI 0.033097 0.018698 1.770 0.0767 .
CAD_history 0.311877 0.157241 1.983 0.0473 *
Stroke_history 0.230077 0.146495 1.571 0.1163
Peripheral.interv 0.037229 0.178257 0.209 0.8346
stenose50-70% -1.012619 1.165333 -0.869 0.3849
stenose70-90% -0.905980 1.139839 -0.795 0.4267
stenose90-99% -0.591956 1.139857 -0.519 0.6035
stenose100% (Occlusion) -0.746506 1.357852 -0.550 0.5825
stenose50-99% -15.241325 376.943340 -0.040 0.9677
stenose70-99% 0.596010 1.581074 0.377 0.7062
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1331.0 on 998 degrees of freedom
Residual deviance: 1283.3 on 979 degrees of freedom
AIC: 1323.3
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.039778
Standard error............: 0.046572
Odds ratio (effect size)..: 1.041
Lower 95% CI..............: 0.95
Upper 95% CI..............: 1.14
Z-value...................: 0.85412
P-value...................: 0.3930386
Hosmer and Lemeshow r^2...: 0.035859
Cox and Snell r^2.........: 0.046653
Nagelkerke's pseudo r^2...: 0.063374
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
Analysis of IL6R_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Hypertension.composite +
DiabetesStatus + SmokerCurrent + CAD_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Hypertension.compositeyes DiabetesStatusDiabetes SmokerCurrentyes
-0.46167 0.01611 0.29114 -0.24729 0.32686
CAD_history stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.23621 -1.57544 -1.17320 -0.93369 0.08517
stenose50-99% stenose70-99%
-15.69463 -2.08381
Degrees of Freedom: 999 Total (i.e. Null); 988 Residual
Null Deviance: 1385
Residual Deviance: 1353 AIC: 1377
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.5698 -1.1312 -0.8315 1.1597 1.7348
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.176748 1.498941 0.118 0.9061
currentDF[, PROTEIN] -0.019047 0.057409 -0.332 0.7401
Age 0.012980 0.008150 1.593 0.1113
Gendermale -0.161581 0.144002 -1.122 0.2618
Hypertension.compositeyes 0.296356 0.200256 1.480 0.1389
DiabetesStatusDiabetes -0.255738 0.159973 -1.599 0.1099
SmokerCurrentyes 0.332542 0.145873 2.280 0.0226 *
Med.Statin.LLDyes -0.112715 0.160946 -0.700 0.4837
Med.all.antiplateletyes -0.254266 0.219349 -1.159 0.2464
GFR_MDRD -0.002446 0.003549 -0.689 0.4907
BMI 0.004983 0.018471 0.270 0.7873
CAD_history 0.257460 0.149355 1.724 0.0847 .
Stroke_history -0.156422 0.139963 -1.118 0.2637
Peripheral.interv -0.196360 0.172913 -1.136 0.2561
stenose50-70% -1.456245 1.195518 -1.218 0.2232
stenose70-90% -1.097761 1.168294 -0.940 0.3474
stenose90-99% -0.843707 1.168572 -0.722 0.4703
stenose100% (Occlusion) 0.133436 1.429817 0.093 0.9256
stenose50-99% -15.576906 435.896639 -0.036 0.9715
stenose70-99% -2.003314 1.437855 -1.393 0.1635
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1385.4 on 999 degrees of freedom
Residual deviance: 1346.1 on 980 degrees of freedom
AIC: 1386.1
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.019047
Standard error............: 0.057409
Odds ratio (effect size)..: 0.981
Lower 95% CI..............: 0.877
Upper 95% CI..............: 1.098
Z-value...................: -0.331779
P-value...................: 0.7400562
Hosmer and Lemeshow r^2...: 0.028387
Cox and Snell r^2.........: 0.038564
Nagelkerke's pseudo r^2...: 0.051434
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent +
CAD_history, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes CAD_history
1.1267 0.4109 0.3192
Degrees of Freedom: 1002 Total (i.e. Null); 1000 Residual
Null Deviance: 1019
Residual Deviance: 1010 AIC: 1016
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1355 0.4944 0.6318 0.7184 0.9827
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.278e+01 7.194e+02 0.018 0.9858
currentDF[, PROTEIN] -1.366e-02 7.120e-02 -0.192 0.8478
Age 9.559e-03 9.927e-03 0.963 0.3356
Gendermale 5.029e-02 1.749e-01 0.287 0.7737
Hypertension.compositeyes 2.868e-01 2.303e-01 1.245 0.2131
DiabetesStatusDiabetes 1.921e-01 2.028e-01 0.947 0.3435
SmokerCurrentyes 4.760e-01 1.852e-01 2.570 0.0102 *
Med.Statin.LLDyes 3.601e-02 1.950e-01 0.185 0.8535
Med.all.antiplateletyes 2.336e-01 2.584e-01 0.904 0.3661
GFR_MDRD 4.087e-03 4.360e-03 0.937 0.3486
BMI 2.855e-02 2.336e-02 1.222 0.2218
CAD_history 2.842e-01 1.881e-01 1.510 0.1310
Stroke_history 2.282e-01 1.750e-01 1.304 0.1921
Peripheral.interv 7.360e-02 2.159e-01 0.341 0.7332
stenose50-70% -1.364e+01 7.194e+02 -0.019 0.9849
stenose70-90% -1.408e+01 7.194e+02 -0.020 0.9844
stenose90-99% -1.407e+01 7.194e+02 -0.020 0.9844
stenose100% (Occlusion) 3.431e-01 8.801e+02 0.000 0.9997
stenose50-99% -1.324e-01 1.020e+03 0.000 0.9999
stenose70-99% -1.371e+01 7.194e+02 -0.019 0.9848
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1018.60 on 1002 degrees of freedom
Residual deviance: 992.95 on 983 degrees of freedom
AIC: 1032.9
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.013662
Standard error............: 0.071202
Odds ratio (effect size)..: 0.986
Lower 95% CI..............: 0.858
Upper 95% CI..............: 1.134
Z-value...................: -0.191877
P-value...................: 0.8478382
Hosmer and Lemeshow r^2...: 0.025181
Cox and Snell r^2.........: 0.025248
Nagelkerke's pseudo r^2...: 0.039586
Sample size of AE DB......: 2388
Sample size of model......: 1003
Missing data %............: 57.99833
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
0.6843 0.1101 0.7946 0.4350 -0.6186
Degrees of Freedom: 1002 Total (i.e. Null); 998 Residual
Null Deviance: 1170
Residual Deviance: 1121 AIC: 1131
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0766 -1.1267 0.6579 0.7991 1.8865
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.351e+01 4.411e+02 0.031 0.97557
currentDF[, PROTEIN] 9.090e-02 6.341e-02 1.433 0.15172
Age 1.139e-02 9.258e-03 1.230 0.21871
Gendermale 8.404e-01 1.584e-01 5.306 1.12e-07 ***
Hypertension.compositeyes 1.693e-03 2.298e-01 0.007 0.99412
DiabetesStatusDiabetes -1.098e-01 1.802e-01 -0.609 0.54239
SmokerCurrentyes 1.529e-01 1.676e-01 0.913 0.36148
Med.Statin.LLDyes -1.484e-01 1.900e-01 -0.781 0.43479
Med.all.antiplateletyes 4.453e-02 2.492e-01 0.179 0.85821
GFR_MDRD -5.368e-05 4.111e-03 -0.013 0.98958
BMI -5.117e-03 2.076e-02 -0.246 0.80532
CAD_history -6.419e-02 1.697e-01 -0.378 0.70522
Stroke_history 4.326e-01 1.662e-01 2.602 0.00927 **
Peripheral.interv -5.951e-01 1.842e-01 -3.230 0.00124 **
stenose50-70% -1.358e+01 4.411e+02 -0.031 0.97544
stenose70-90% -1.350e+01 4.411e+02 -0.031 0.97559
stenose90-99% -1.338e+01 4.411e+02 -0.030 0.97580
stenose100% (Occlusion) -1.416e+01 4.411e+02 -0.032 0.97438
stenose50-99% -1.588e+01 4.411e+02 -0.036 0.97129
stenose70-99% -1.469e+01 4.411e+02 -0.033 0.97343
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1170.4 on 1002 degrees of freedom
Residual deviance: 1106.1 on 983 degrees of freedom
AIC: 1146.1
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.090903
Standard error............: 0.063414
Odds ratio (effect size)..: 1.095
Lower 95% CI..............: 0.967
Upper 95% CI..............: 1.24
Z-value...................: 1.433489
P-value...................: 0.1517182
Hosmer and Lemeshow r^2...: 0.054893
Cox and Snell r^2.........: 0.062046
Nagelkerke's pseudo r^2...: 0.090095
Sample size of AE DB......: 2388
Sample size of model......: 1003
Missing data %............: 57.99833
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + GFR_MDRD + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale GFR_MDRD CAD_history
0.611874 0.124739 0.579682 -0.005085 0.226634
Degrees of Freedom: 1000 Total (i.e. Null); 996 Residual
Null Deviance: 1337
Residual Deviance: 1310 AIC: 1320
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9524 -1.2779 0.8266 0.9913 1.4676
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.935176 1.526049 0.613 0.5400
currentDF[, PROTEIN] 0.113747 0.058657 1.939 0.0525 .
Age -0.001143 0.008376 -0.136 0.8915
Gendermale 0.610108 0.146043 4.178 2.95e-05 ***
Hypertension.compositeyes -0.106511 0.204153 -0.522 0.6019
DiabetesStatusDiabetes -0.149178 0.162470 -0.918 0.3585
SmokerCurrentyes 0.117770 0.150419 0.783 0.4337
Med.Statin.LLDyes -0.155812 0.167235 -0.932 0.3515
Med.all.antiplateletyes 0.059226 0.223727 0.265 0.7912
GFR_MDRD -0.005411 0.003670 -1.474 0.1404
BMI 0.017802 0.018962 0.939 0.3478
CAD_history 0.287268 0.155377 1.849 0.0645 .
Stroke_history 0.144300 0.144433 0.999 0.3178
Peripheral.interv 0.008765 0.178089 0.049 0.9607
stenose50-70% -0.738454 1.209037 -0.611 0.5413
stenose70-90% -0.767764 1.183606 -0.649 0.5166
stenose90-99% -0.518359 1.184171 -0.438 0.6616
stenose100% (Occlusion) -0.611519 1.393871 -0.439 0.6609
stenose50-99% -1.116618 1.557598 -0.717 0.4734
stenose70-99% 0.867308 1.609921 0.539 0.5901
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1336.7 on 1000 degrees of freedom
Residual deviance: 1298.9 on 981 degrees of freedom
AIC: 1338.9
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.113747
Standard error............: 0.058657
Odds ratio (effect size)..: 1.12
Lower 95% CI..............: 0.999
Upper 95% CI..............: 1.257
Z-value...................: 1.93919
P-value...................: 0.05247816
Hosmer and Lemeshow r^2...: 0.028276
Cox and Snell r^2.........: 0.037054
Nagelkerke's pseudo r^2...: 0.050282
Sample size of AE DB......: 2388
Sample size of model......: 1001
Missing data %............: 58.08208
Analysis of MCP1_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + CAD_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes CAD_history
-1.82542 -0.36236 0.02094 0.40404 0.23730
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-0.89655 -0.37855 -0.19294 0.70403 -14.79800
stenose70-99%
-1.22893
Degrees of Freedom: 1038 Total (i.e. Null); 1028 Residual
Null Deviance: 1439
Residual Deviance: 1355 AIC: 1377
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1140 -1.0778 -0.6941 1.1204 1.9531
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.525276 1.332747 -1.144 0.25243
currentDF[, PROTEIN] -0.363190 0.052973 -6.856 7.08e-12 ***
Age 0.017999 0.008173 2.202 0.02764 *
Gendermale -0.140301 0.144212 -0.973 0.33061
Hypertension.compositeyes 0.225902 0.202442 1.116 0.26447
DiabetesStatusDiabetes -0.244282 0.160978 -1.517 0.12914
SmokerCurrentyes 0.414717 0.147104 2.819 0.00481 **
Med.Statin.LLDyes -0.181849 0.161109 -1.129 0.25901
Med.all.antiplateletyes -0.202162 0.218816 -0.924 0.35555
GFR_MDRD -0.001691 0.003523 -0.480 0.63129
BMI 0.012186 0.018168 0.671 0.50237
CAD_history 0.260080 0.149984 1.734 0.08291 .
Stroke_history -0.113342 0.140901 -0.804 0.42116
Peripheral.interv -0.188752 0.172455 -1.094 0.27374
stenose50-70% -0.823566 0.967587 -0.851 0.39468
stenose70-90% -0.342758 0.932281 -0.368 0.71313
stenose90-99% -0.156801 0.931886 -0.168 0.86638
stenose100% (Occlusion) 0.711485 1.256594 0.566 0.57126
stenose50-99% -14.778796 419.945743 -0.035 0.97193
stenose70-99% -1.153193 1.267900 -0.910 0.36307
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1439.2 on 1038 degrees of freedom
Residual deviance: 1346.1 on 1019 degrees of freedom
AIC: 1386.1
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.36319
Standard error............: 0.052973
Odds ratio (effect size)..: 0.695
Lower 95% CI..............: 0.627
Upper 95% CI..............: 0.772
Z-value...................: -6.856102
P-value...................: 7.076467e-12
Hosmer and Lemeshow r^2...: 0.064659
Cox and Snell r^2.........: 0.085669
Nagelkerke's pseudo r^2...: 0.114268
Sample size of AE DB......: 2388
Sample size of model......: 1039
Missing data %............: 56.49079
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + BMI, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes BMI
-0.01029 -0.19213 0.44318 0.03858
Degrees of Freedom: 1041 Total (i.e. Null); 1038 Residual
Null Deviance: 1055
Residual Deviance: 1036 AIC: 1044
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3056 0.4422 0.6185 0.7210 1.0417
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.324e+01 1.060e+03 0.012 0.99003
currentDF[, PROTEIN] -1.874e-01 6.331e-02 -2.961 0.00307 **
Age 1.043e-02 9.729e-03 1.072 0.28352
Gendermale 2.184e-02 1.728e-01 0.126 0.89942
Hypertension.compositeyes 2.349e-01 2.302e-01 1.020 0.30753
DiabetesStatusDiabetes 1.277e-01 1.982e-01 0.644 0.51942
SmokerCurrentyes 5.186e-01 1.837e-01 2.823 0.00475 **
Med.Statin.LLDyes 1.202e-02 1.924e-01 0.062 0.95021
Med.all.antiplateletyes 1.550e-01 2.563e-01 0.605 0.54545
GFR_MDRD 5.536e-03 4.245e-03 1.304 0.19220
BMI 4.039e-02 2.311e-02 1.748 0.08050 .
CAD_history 2.111e-01 1.839e-01 1.148 0.25100
Stroke_history 2.243e-01 1.728e-01 1.298 0.19424
Peripheral.interv 1.123e-01 2.127e-01 0.528 0.59749
stenose50-70% -1.453e+01 1.060e+03 -0.014 0.98906
stenose70-90% -1.499e+01 1.060e+03 -0.014 0.98872
stenose90-99% -1.505e+01 1.060e+03 -0.014 0.98867
stenose100% (Occlusion) 2.360e-01 1.350e+03 0.000 0.99986
stenose50-99% -6.401e-03 1.588e+03 0.000 1.00000
stenose70-99% -1.448e+01 1.060e+03 -0.014 0.98910
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1055.5 on 1041 degrees of freedom
Residual deviance: 1018.8 on 1022 degrees of freedom
AIC: 1058.8
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.187427
Standard error............: 0.063307
Odds ratio (effect size)..: 0.829
Lower 95% CI..............: 0.732
Upper 95% CI..............: 0.939
Z-value...................: -2.960631
P-value...................: 0.003070098
Hosmer and Lemeshow r^2...: 0.034718
Cox and Snell r^2.........: 0.034555
Nagelkerke's pseudo r^2...: 0.05426
Sample size of AE DB......: 2388
Sample size of model......: 1042
Missing data %............: 56.36516
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
14.0651 0.1331 0.8322 0.4430 -0.6200
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-13.6515 -13.5243 -13.3644 -14.0689 -15.9382
stenose70-99%
-14.7683
Degrees of Freedom: 1041 Total (i.e. Null); 1031 Residual
Null Deviance: 1225
Residual Deviance: 1154 AIC: 1176
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0991 -1.1400 0.6479 0.8098 1.7713
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.339e+01 3.919e+02 0.034 0.972738
currentDF[, PROTEIN] 1.285e-01 5.518e-02 2.328 0.019925 *
Age 7.929e-03 8.973e-03 0.884 0.376898
Gendermale 8.698e-01 1.541e-01 5.643 1.67e-08 ***
Hypertension.compositeyes 4.466e-02 2.266e-01 0.197 0.843736
DiabetesStatusDiabetes -1.596e-01 1.756e-01 -0.909 0.363550
SmokerCurrentyes 1.456e-01 1.637e-01 0.889 0.373964
Med.Statin.LLDyes -1.853e-01 1.862e-01 -0.995 0.319583
Med.all.antiplateletyes 8.146e-02 2.423e-01 0.336 0.736740
GFR_MDRD -5.399e-04 3.928e-03 -0.137 0.890678
BMI 4.117e-03 1.973e-02 0.209 0.834748
CAD_history -3.684e-02 1.661e-01 -0.222 0.824449
Stroke_history 4.317e-01 1.633e-01 2.643 0.008213 **
Peripheral.interv -5.934e-01 1.791e-01 -3.313 0.000923 ***
stenose50-70% -1.358e+01 3.919e+02 -0.035 0.972348
stenose70-90% -1.346e+01 3.919e+02 -0.034 0.972607
stenose90-99% -1.331e+01 3.919e+02 -0.034 0.972907
stenose100% (Occlusion) -1.405e+01 3.919e+02 -0.036 0.971411
stenose50-99% -1.592e+01 3.919e+02 -0.041 0.967601
stenose70-99% -1.478e+01 3.919e+02 -0.038 0.969917
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1224.7 on 1041 degrees of freedom
Residual deviance: 1150.0 on 1022 degrees of freedom
AIC: 1190
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.128452
Standard error............: 0.055183
Odds ratio (effect size)..: 1.137
Lower 95% CI..............: 1.021
Upper 95% CI..............: 1.267
Z-value...................: 2.327761
P-value...................: 0.01992479
Hosmer and Lemeshow r^2...: 0.060989
Cox and Snell r^2.........: 0.069173
Nagelkerke's pseudo r^2...: 0.100065
Sample size of AE DB......: 2388
Sample size of model......: 1042
Missing data %............: 56.36516
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Med.Statin.LLD + BMI + CAD_history + Stroke_history,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Med.Statin.LLDyes BMI CAD_history
-0.68313 -0.09602 0.54823 -0.26886 0.02693 0.26525
Stroke_history
0.23930
Degrees of Freedom: 1039 Total (i.e. Null); 1033 Residual
Null Deviance: 1389
Residual Deviance: 1358 AIC: 1372
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9553 -1.2805 0.8149 0.9916 1.5235
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.1754155 1.4836591 0.118 0.9059
currentDF[, PROTEIN] -0.0953309 0.0507963 -1.877 0.0606 .
Age 0.0002349 0.0081421 0.029 0.9770
Gendermale 0.6158358 0.1429276 4.309 1.64e-05 ***
Hypertension.compositeyes -0.1314574 0.2022681 -0.650 0.5157
DiabetesStatusDiabetes -0.1324652 0.1596057 -0.830 0.4066
SmokerCurrentyes 0.1353568 0.1475791 0.917 0.3590
Med.Statin.LLDyes -0.2565402 0.1644513 -1.560 0.1188
Med.all.antiplateletyes 0.1480708 0.2179980 0.679 0.4970
GFR_MDRD -0.0049268 0.0035325 -1.395 0.1631
BMI 0.0315725 0.0183189 1.723 0.0848 .
CAD_history 0.2686674 0.1520378 1.767 0.0772 .
Stroke_history 0.2381253 0.1426755 1.669 0.0951 .
Peripheral.interv 0.0540398 0.1736594 0.311 0.7557
stenose50-70% -0.9864070 1.1701913 -0.843 0.3993
stenose70-90% -0.8577626 1.1446041 -0.749 0.4536
stenose90-99% -0.6037415 1.1445931 -0.527 0.5979
stenose100% (Occlusion) -0.7476970 1.3616375 -0.549 0.5829
stenose50-99% -1.2390402 1.5273473 -0.811 0.4172
stenose70-99% 0.6388947 1.5823481 0.404 0.6864
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1388.6 on 1039 degrees of freedom
Residual deviance: 1345.2 on 1020 degrees of freedom
AIC: 1385.2
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: -0.095331
Standard error............: 0.050796
Odds ratio (effect size)..: 0.909
Lower 95% CI..............: 0.823
Upper 95% CI..............: 1.004
Z-value...................: -1.876731
P-value...................: 0.06055499
Hosmer and Lemeshow r^2...: 0.031257
Cox and Snell r^2.........: 0.040876
Nagelkerke's pseudo r^2...: 0.05547
Sample size of AE DB......: 2388
Sample size of model......: 1040
Missing data %............: 56.44891 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.PlaquePhenotypes.MODEL2.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON.RANK)) {
TRAIT = TRAITS.CON.RANK[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M2) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
CAD_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes CAD_history
0.06578 -0.06829 -0.15943 0.17897
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.18012 -0.68054 0.01814 0.64545 3.12461
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.0235458 0.8716104 2.322 0.0207 *
currentDF[, TRAIT] -0.0685416 0.0417359 -1.642 0.1012
Age -0.0066245 0.0057643 -1.149 0.2510
Gendermale -0.1469518 0.1015109 -1.448 0.1484
Hypertension.compositeyes 0.0462797 0.1352200 0.342 0.7323
DiabetesStatusDiabetes -0.0287032 0.1144777 -0.251 0.8021
SmokerCurrentyes 0.0296470 0.0980327 0.302 0.7625
Med.Statin.LLDyes -0.1940609 0.1023977 -1.895 0.0587 .
Med.all.antiplateletyes -0.2470769 0.1608439 -1.536 0.1252
GFR_MDRD 0.0005454 0.0025737 0.212 0.8323
BMI -0.0165307 0.0123925 -1.334 0.1829
CAD_history 0.2248719 0.1011374 2.223 0.0267 *
Stroke_history 0.0695885 0.0961747 0.724 0.4697
Peripheral.interv -0.0107614 0.1147908 -0.094 0.9254
stenose50-70% -0.8489816 0.6177818 -1.374 0.1700
stenose70-90% -0.8371936 0.5706953 -1.467 0.1431
stenose90-99% -0.8337094 0.5690414 -1.465 0.1436
stenose100% (Occlusion) -1.3089080 0.6810469 -1.922 0.0552 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9653 on 462 degrees of freedom
Multiple R-squared: 0.03962, Adjusted R-squared: 0.004284
F-statistic: 1.121 on 17 and 462 DF, p-value: 0.3297
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.068542
Standard error............: 0.041736
Odds ratio (effect size)..: 0.934
Lower 95% CI..............: 0.86
Upper 95% CI..............: 1.013
T-value...................: -1.64227
P-value...................: 0.1012144
R^2.......................: 0.039622
Adjusted r^2..............: 0.004284
Sample size of AE DB......: 2388
Sample size of model......: 480
Missing data %............: 79.8995
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender + Med.Statin.LLD +
BMI + CAD_history, data = currentDF)
Coefficients:
(Intercept) Gendermale Med.Statin.LLDyes BMI CAD_history
0.62797 -0.14791 -0.17078 -0.01678 0.18459
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.10464 -0.69874 0.03157 0.67237 3.02975
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.0177233 0.8817683 2.288 0.0226 *
currentDF[, TRAIT] 0.0247937 0.0442872 0.560 0.5759
Age -0.0062426 0.0059358 -1.052 0.2935
Gendermale -0.1471284 0.1039038 -1.416 0.1575
Hypertension.compositeyes 0.0194356 0.1356093 0.143 0.8861
DiabetesStatusDiabetes -0.0182235 0.1157824 -0.157 0.8750
SmokerCurrentyes 0.0278929 0.0989731 0.282 0.7782
Med.Statin.LLDyes -0.1848209 0.1040135 -1.777 0.0762 .
Med.all.antiplateletyes -0.2376107 0.1622751 -1.464 0.1438
GFR_MDRD 0.0005086 0.0026001 0.196 0.8450
BMI -0.0174703 0.0124984 -1.398 0.1628
CAD_history 0.1915058 0.1021081 1.876 0.0614 .
Stroke_history 0.0570212 0.0971729 0.587 0.5576
Peripheral.interv 0.0059065 0.1162497 0.051 0.9595
stenose50-70% -0.8228165 0.6236546 -1.319 0.1877
stenose70-90% -0.8299597 0.5757742 -1.441 0.1501
stenose90-99% -0.7914493 0.5736687 -1.380 0.1684
stenose100% (Occlusion) -1.2535737 0.6865446 -1.826 0.0685 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9735 on 459 degrees of freedom
Multiple R-squared: 0.03312, Adjusted R-squared: -0.002686
F-statistic: 0.925 on 17 and 459 DF, p-value: 0.5443
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.024794
Standard error............: 0.044287
Odds ratio (effect size)..: 1.025
Lower 95% CI..............: 0.94
Upper 95% CI..............: 1.118
T-value...................: 0.55984
P-value...................: 0.5758615
R^2.......................: 0.033124
Adjusted r^2..............: -0.002686
Sample size of AE DB......: 2388
Sample size of model......: 477
Missing data %............: 80.02513
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Med.Statin.LLD + Med.all.antiplatelet +
CAD_history, data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes Med.all.antiplateletyes CAD_history
0.2792 -0.1532 -0.2243 0.1419
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.09803 -0.68750 0.01001 0.67790 3.09629
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.9561136 0.8855768 2.209 0.0277 *
currentDF[, TRAIT] -0.0323443 0.0567070 -0.570 0.5687
Age -0.0071652 0.0058979 -1.215 0.2250
Gendermale -0.1413460 0.1036164 -1.364 0.1732
Hypertension.compositeyes 0.0500332 0.1385484 0.361 0.7182
DiabetesStatusDiabetes -0.0297531 0.1175472 -0.253 0.8003
SmokerCurrentyes 0.0287580 0.0998963 0.288 0.7736
Med.Statin.LLDyes -0.1881625 0.1043566 -1.803 0.0720 .
Med.all.antiplateletyes -0.2581952 0.1641560 -1.573 0.1164
GFR_MDRD 0.0006495 0.0026302 0.247 0.8051
BMI -0.0144740 0.0127453 -1.136 0.2567
CAD_history 0.1948838 0.1024046 1.903 0.0577 .
Stroke_history 0.0843472 0.0983333 0.858 0.3915
Peripheral.interv 0.0036368 0.1168602 0.031 0.9752
stenose50-70% -0.7800714 0.6238008 -1.251 0.2118
stenose70-90% -0.8067160 0.5767651 -1.399 0.1626
stenose90-99% -0.7793910 0.5748524 -1.356 0.1758
stenose100% (Occlusion) -0.9176088 0.7281714 -1.260 0.2083
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9754 on 452 degrees of freedom
Multiple R-squared: 0.03081, Adjusted R-squared: -0.005638
F-statistic: 0.8453 on 17 and 452 DF, p-value: 0.64
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.032344
Standard error............: 0.056707
Odds ratio (effect size)..: 0.968
Lower 95% CI..............: 0.866
Upper 95% CI..............: 1.082
T-value...................: -0.570376
P-value...................: 0.5687063
R^2.......................: 0.030814
Adjusted r^2..............: -0.005638
Sample size of AE DB......: 2388
Sample size of model......: 470
Missing data %............: 80.31826
Analysis of MCP1_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.Statin.LLD + Med.all.antiplatelet,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
0.371369 0.098495 -0.007782 0.304434 -0.224359
Med.Statin.LLDyes Med.all.antiplateletyes
-0.214084 0.325933
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.04992 -0.67471 0.01276 0.66488 2.76675
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.175752 0.858226 1.370 0.17131
currentDF[, TRAIT] 0.091886 0.040985 2.242 0.02541 *
Age -0.011585 0.005692 -2.035 0.04237 *
Gendermale 0.290308 0.098872 2.936 0.00348 **
Hypertension.compositeyes -0.233518 0.132648 -1.760 0.07895 .
DiabetesStatusDiabetes -0.121623 0.110871 -1.097 0.27318
SmokerCurrentyes -0.062330 0.095859 -0.650 0.51585
Med.Statin.LLDyes -0.220521 0.101730 -2.168 0.03066 *
Med.all.antiplateletyes 0.301211 0.154422 1.951 0.05167 .
GFR_MDRD -0.001676 0.002477 -0.677 0.49899
BMI -0.012215 0.011885 -1.028 0.30455
CAD_history 0.110540 0.099554 1.110 0.26739
Stroke_history 0.115056 0.093287 1.233 0.21803
Peripheral.interv -0.150917 0.117008 -1.290 0.19772
stenose50-70% -0.280324 0.622960 -0.450 0.65292
stenose70-90% -0.054810 0.578053 -0.095 0.92450
stenose90-99% -0.042985 0.576571 -0.075 0.94060
stenose100% (Occlusion) -0.487945 0.729821 -0.669 0.50407
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9798 on 495 degrees of freedom
Multiple R-squared: 0.07266, Adjusted R-squared: 0.04081
F-statistic: 2.282 on 17 and 495 DF, p-value: 0.002535
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.091886
Standard error............: 0.040985
Odds ratio (effect size)..: 1.096
Lower 95% CI..............: 1.012
Upper 95% CI..............: 1.188
T-value...................: 2.241938
P-value...................: 0.02540749
R^2.......................: 0.072662
Adjusted r^2..............: 0.040814
Sample size of AE DB......: 2388
Sample size of model......: 513
Missing data %............: 78.51759
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.Statin.LLD + Med.all.antiplatelet +
CAD_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
0.79555 -0.18754 -0.01327 0.22987 -0.22144
Med.Statin.LLDyes Med.all.antiplateletyes CAD_history
-0.22763 0.32134 0.13508
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.82157 -0.67164 -0.01232 0.64680 2.51654
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.516767 0.843745 1.798 0.07284 .
currentDF[, TRAIT] -0.184221 0.041848 -4.402 1.32e-05 ***
Age -0.016216 0.005685 -2.853 0.00452 **
Gendermale 0.227577 0.098012 2.322 0.02064 *
Hypertension.compositeyes -0.217011 0.129139 -1.680 0.09351 .
DiabetesStatusDiabetes -0.111461 0.108990 -1.023 0.30697
SmokerCurrentyes -0.064436 0.093923 -0.686 0.49300
Med.Statin.LLDyes -0.226750 0.100142 -2.264 0.02399 *
Med.all.antiplateletyes 0.292797 0.151249 1.936 0.05346 .
GFR_MDRD -0.001337 0.002428 -0.551 0.58211
BMI -0.011722 0.011633 -1.008 0.31411
CAD_history 0.166154 0.097613 1.702 0.08935 .
Stroke_history 0.113839 0.091470 1.245 0.21389
Peripheral.interv -0.131918 0.115289 -1.144 0.25308
stenose50-70% -0.246421 0.610039 -0.404 0.68643
stenose70-90% -0.055765 0.566182 -0.098 0.92158
stenose90-99% -0.067374 0.564421 -0.119 0.90503
stenose100% (Occlusion) -0.599452 0.714404 -0.839 0.40182
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9594 on 492 degrees of freedom
Multiple R-squared: 0.09563, Adjusted R-squared: 0.06438
F-statistic: 3.06 on 17 and 492 DF, p-value: 3.937e-05
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.184221
Standard error............: 0.041848
Odds ratio (effect size)..: 0.832
Lower 95% CI..............: 0.766
Upper 95% CI..............: 0.903
T-value...................: -4.402188
P-value...................: 1.315371e-05
R^2.......................: 0.095625
Adjusted r^2..............: 0.064376
Sample size of AE DB......: 2388
Sample size of model......: 510
Missing data %............: 78.64322
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Med.Statin.LLD + Med.all.antiplatelet, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Med.Statin.LLDyes
0.30680 -0.09313 -0.00927 0.32989 -0.22147
Med.all.antiplateletyes
0.32424
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.08723 -0.66290 -0.00982 0.64415 2.61016
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.081798 0.865574 1.250 0.21197
currentDF[, TRAIT] -0.098755 0.054234 -1.821 0.06924 .
Age -0.012056 0.005761 -2.093 0.03690 *
Gendermale 0.311368 0.100077 3.111 0.00197 **
Hypertension.compositeyes -0.171260 0.135231 -1.266 0.20597
DiabetesStatusDiabetes -0.094615 0.112880 -0.838 0.40234
SmokerCurrentyes -0.067259 0.097251 -0.692 0.48951
Med.Statin.LLDyes -0.226120 0.102933 -2.197 0.02851 *
Med.all.antiplateletyes 0.297676 0.156807 1.898 0.05824 .
GFR_MDRD -0.001178 0.002544 -0.463 0.64359
BMI -0.009717 0.012040 -0.807 0.42001
CAD_history 0.136143 0.100924 1.349 0.17798
Stroke_history 0.120457 0.094866 1.270 0.20478
Peripheral.interv -0.133039 0.118703 -1.121 0.26294
stenose50-70% -0.359473 0.625133 -0.575 0.56553
stenose70-90% -0.053904 0.580427 -0.093 0.92605
stenose90-99% -0.062723 0.578764 -0.108 0.91374
stenose100% (Occlusion) -0.550773 0.732645 -0.752 0.45256
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9835 on 485 degrees of freedom
Multiple R-squared: 0.06824, Adjusted R-squared: 0.03558
F-statistic: 2.089 on 17 and 485 DF, p-value: 0.006596
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.098755
Standard error............: 0.054234
Odds ratio (effect size)..: 0.906
Lower 95% CI..............: 0.815
Upper 95% CI..............: 1.008
T-value...................: -1.820907
P-value...................: 0.06923707
R^2.......................: 0.068242
Adjusted r^2..............: 0.035582
Sample size of AE DB......: 2388
Sample size of model......: 503
Missing data %............: 78.93635
Analysis of IL6_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + CAD_history +
Stroke_history + Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] CAD_history Stroke_history Peripheral.interv
0.01886 0.09601 -0.14506 0.18452 -0.14721
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.1909 -0.6764 0.0049 0.6426 3.4119
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.598104 0.634370 0.943 0.34600
currentDF[, TRAIT] 0.093832 0.031754 2.955 0.00320 **
Age -0.003879 0.003906 -0.993 0.32090
Gendermale 0.009744 0.069831 0.140 0.88906
Hypertension.compositeyes -0.100809 0.097138 -1.038 0.29962
DiabetesStatusDiabetes -0.008597 0.076764 -0.112 0.91086
SmokerCurrentyes 0.064296 0.070471 0.912 0.36179
Med.Statin.LLDyes -0.064710 0.076835 -0.842 0.39988
Med.all.antiplateletyes 0.011430 0.104312 0.110 0.91277
GFR_MDRD -0.002656 0.001676 -1.585 0.11323
BMI -0.008334 0.008727 -0.955 0.33981
CAD_history -0.108752 0.072191 -1.506 0.13228
Stroke_history 0.188239 0.067608 2.784 0.00547 **
Peripheral.interv -0.149582 0.083267 -1.796 0.07274 .
stenose50-70% -0.037014 0.459362 -0.081 0.93579
stenose70-90% 0.226650 0.444258 0.510 0.61004
stenose90-99% 0.173795 0.444035 0.391 0.69559
stenose100% (Occlusion) 0.562595 0.564475 0.997 0.31917
stenose50-99% 0.021481 0.824910 0.026 0.97923
stenose70-99% -0.186502 0.598315 -0.312 0.75533
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.984 on 976 degrees of freedom
Multiple R-squared: 0.04085, Adjusted R-squared: 0.02218
F-statistic: 2.188 on 19 and 976 DF, p-value: 0.002371
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.093832
Standard error............: 0.031754
Odds ratio (effect size)..: 1.098
Lower 95% CI..............: 1.032
Upper 95% CI..............: 1.169
T-value...................: 2.954983
P-value...................: 0.003201987
R^2.......................: 0.040848
Adjusted r^2..............: 0.022176
Sample size of AE DB......: 2388
Sample size of model......: 996
Missing data %............: 58.29146
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
CAD_history + Stroke_history + Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age CAD_history Stroke_history Peripheral.interv
0.510465 -0.157509 -0.007324 -0.123126 0.197685 -0.159919
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.93275 -0.66240 0.01907 0.64346 2.96767
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.786671 0.630026 1.249 0.21210
currentDF[, TRAIT] -0.162944 0.032868 -4.958 8.42e-07 ***
Age -0.008232 0.003918 -2.101 0.03587 *
Gendermale -0.033556 0.070213 -0.478 0.63282
Hypertension.compositeyes -0.086195 0.096425 -0.894 0.37159
DiabetesStatusDiabetes -0.004985 0.076199 -0.065 0.94785
SmokerCurrentyes 0.060184 0.069997 0.860 0.39011
Med.Statin.LLDyes -0.065859 0.076396 -0.862 0.38886
Med.all.antiplateletyes -0.016292 0.103511 -0.157 0.87497
GFR_MDRD -0.002233 0.001666 -1.341 0.18034
BMI -0.007551 0.008672 -0.871 0.38410
CAD_history -0.090057 0.071752 -1.255 0.20974
Stroke_history 0.197606 0.067061 2.947 0.00329 **
Peripheral.interv -0.161279 0.083037 -1.942 0.05240 .
stenose50-70% 0.023861 0.455875 0.052 0.95827
stenose70-90% 0.318075 0.440924 0.721 0.47085
stenose90-99% 0.277050 0.440793 0.629 0.52981
stenose100% (Occlusion) 0.626538 0.560171 1.118 0.26364
stenose50-99% 0.198613 0.819108 0.242 0.80846
stenose70-99% -0.083839 0.593759 -0.141 0.88774
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9761 on 972 degrees of freedom
Multiple R-squared: 0.05658, Adjusted R-squared: 0.03814
F-statistic: 3.068 on 19 and 972 DF, p-value: 1.101e-05
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.162944
Standard error............: 0.032868
Odds ratio (effect size)..: 0.85
Lower 95% CI..............: 0.797
Upper 95% CI..............: 0.906
T-value...................: -4.957502
P-value...................: 8.422128e-07
R^2.......................: 0.056578
Adjusted r^2..............: 0.038137
Sample size of AE DB......: 2388
Sample size of model......: 992
Missing data %............: 58.45896
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + SmokerCurrent +
GFR_MDRD + CAD_history + Stroke_history + Peripheral.interv,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] SmokerCurrentyes GFR_MDRD CAD_history Stroke_history
0.146966 -0.066091 0.105951 -0.002514 -0.129845 0.190585
Peripheral.interv
-0.173758
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.1508 -0.6383 0.0036 0.6501 3.2094
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.665290 0.649313 1.025 0.30582
currentDF[, TRAIT] -0.068097 0.033572 -2.028 0.04281 *
Age -0.004320 0.004054 -1.066 0.28681
Gendermale 0.003466 0.072569 0.048 0.96192
Hypertension.compositeyes -0.106848 0.100976 -1.058 0.29026
DiabetesStatusDiabetes -0.050711 0.081619 -0.621 0.53454
SmokerCurrentyes 0.062220 0.073689 0.844 0.39869
Med.Statin.LLDyes -0.055150 0.079291 -0.696 0.48690
Med.all.antiplateletyes -0.017531 0.109861 -0.160 0.87325
GFR_MDRD -0.003260 0.001759 -1.853 0.06418 .
BMI -0.005782 0.009030 -0.640 0.52214
CAD_history -0.094898 0.075609 -1.255 0.20976
Stroke_history 0.207070 0.070464 2.939 0.00338 **
Peripheral.interv -0.166293 0.088420 -1.881 0.06033 .
stenose50-70% -0.128577 0.465413 -0.276 0.78241
stenose70-90% 0.179173 0.448315 0.400 0.68950
stenose90-99% 0.140252 0.447728 0.313 0.75416
stenose100% (Occlusion) 0.489070 0.569196 0.859 0.39044
stenose50-99% 0.015460 0.830783 0.019 0.98516
stenose70-99% -0.455543 0.667542 -0.682 0.49515
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9909 on 910 degrees of freedom
Multiple R-squared: 0.03919, Adjusted R-squared: 0.01913
F-statistic: 1.953 on 19 and 910 DF, p-value: 0.008611
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.068097
Standard error............: 0.033572
Odds ratio (effect size)..: 0.934
Lower 95% CI..............: 0.875
Upper 95% CI..............: 0.998
T-value...................: -2.02839
P-value...................: 0.04281124
R^2.......................: 0.039187
Adjusted r^2..............: 0.019126
Sample size of AE DB......: 2388
Sample size of model......: 930
Missing data %............: 61.05528
Analysis of IL6R_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + GFR_MDRD + CAD_history + Peripheral.interv +
stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes GFR_MDRD
0.254402 0.138291 -0.008368 -0.371568 -0.003134
CAD_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
-0.099103 0.233323 0.518699 0.800413 0.942022
stenose100% (Occlusion) stenose50-99% stenose70-99%
0.655301 0.565404 -0.108615
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.1926 -0.6496 -0.0011 0.6198 3.0610
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.274225 0.663148 0.414 0.67932
currentDF[, TRAIT] 0.139450 0.030997 4.499 7.65e-06 ***
Age -0.007934 0.003880 -2.045 0.04117 *
Gendermale -0.058157 0.068901 -0.844 0.39884
Hypertension.compositeyes 0.055508 0.095193 0.583 0.55996
DiabetesStatusDiabetes -0.077646 0.075649 -1.026 0.30496
SmokerCurrentyes 0.059294 0.069374 0.855 0.39293
Med.Statin.LLDyes -0.373281 0.076205 -4.898 1.13e-06 ***
Med.all.antiplateletyes 0.038778 0.103983 0.373 0.70928
GFR_MDRD -0.003053 0.001682 -1.815 0.06981 .
BMI -0.005349 0.008797 -0.608 0.54328
CAD_history -0.074440 0.070919 -1.050 0.29414
Stroke_history 0.067980 0.066451 1.023 0.30656
Peripheral.interv 0.233457 0.082462 2.831 0.00473 **
stenose50-70% 0.533224 0.503840 1.058 0.29017
stenose70-90% 0.814412 0.489795 1.663 0.09668 .
stenose90-99% 0.950282 0.489612 1.941 0.05256 .
stenose100% (Occlusion) 0.670810 0.598031 1.122 0.26227
stenose50-99% 0.538437 0.687643 0.783 0.43381
stenose70-99% -0.113878 0.629316 -0.181 0.85644
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9703 on 979 degrees of freedom
Multiple R-squared: 0.08311, Adjusted R-squared: 0.06531
F-statistic: 4.67 on 19 and 979 DF, p-value: 1.919e-10
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.13945
Standard error............: 0.030997
Odds ratio (effect size)..: 1.15
Lower 95% CI..............: 1.082
Upper 95% CI..............: 1.222
T-value...................: 4.498795
P-value...................: 7.653324e-06
R^2.......................: 0.083108
Adjusted r^2..............: 0.065313
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + GFR_MDRD + Stroke_history + Peripheral.interv +
stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes GFR_MDRD
0.190698 0.062823 -0.008893 -0.373218 -0.002728
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
0.096206 0.210013 0.503849 0.820847 0.949222
stenose100% (Occlusion) stenose50-99% stenose70-99%
0.641657 0.513585 -0.128979
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3384 -0.6634 0.0112 0.6148 3.0952
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.231609 0.669488 0.346 0.72945
currentDF[, TRAIT] 0.063184 0.032805 1.926 0.05439 .
Age -0.008096 0.003958 -2.046 0.04107 *
Gendermale -0.011671 0.070307 -0.166 0.86819
Hypertension.compositeyes 0.055446 0.096058 0.577 0.56393
DiabetesStatusDiabetes -0.086441 0.076316 -1.133 0.25763
SmokerCurrentyes 0.041023 0.070053 0.586 0.55828
Med.Statin.LLDyes -0.358662 0.077004 -4.658 3.64e-06 ***
Med.all.antiplateletyes 0.027783 0.104869 0.265 0.79111
GFR_MDRD -0.003029 0.001699 -1.782 0.07499 .
BMI -0.005242 0.008888 -0.590 0.55546
CAD_history -0.074743 0.071673 -1.043 0.29728
Stroke_history 0.082865 0.067031 1.236 0.21668
Peripheral.interv 0.221438 0.083614 2.648 0.00822 **
stenose50-70% 0.529972 0.508326 1.043 0.29740
stenose70-90% 0.840789 0.494103 1.702 0.08914 .
stenose90-99% 0.964938 0.494012 1.953 0.05107 .
stenose100% (Occlusion) 0.633483 0.603460 1.050 0.29409
stenose50-99% 0.515776 0.693804 0.743 0.45742
stenose70-99% -0.098253 0.634854 -0.155 0.87704
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9785 on 975 degrees of freedom
Multiple R-squared: 0.06621, Adjusted R-squared: 0.04801
F-statistic: 3.638 on 19 and 975 DF, p-value: 2.505e-07
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.063184
Standard error............: 0.032805
Odds ratio (effect size)..: 1.065
Lower 95% CI..............: 0.999
Upper 95% CI..............: 1.136
T-value...................: 1.926004
P-value...................: 0.05439434
R^2.......................: 0.066208
Adjusted r^2..............: 0.048011
Sample size of AE DB......: 2388
Sample size of model......: 995
Missing data %............: 58.33333
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + GFR_MDRD + CAD_history +
Peripheral.interv + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
0.320815 0.075290 -0.010262 -0.132040 -0.344402
GFR_MDRD CAD_history Peripheral.interv stenose50-70% stenose70-90%
-0.003693 -0.111030 0.215654 0.616697 0.932206
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
1.048426 0.702021 0.580092 0.024660
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3853 -0.6424 -0.0008 0.5946 3.0704
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.373101 0.681739 0.547 0.58432
currentDF[, TRAIT] 0.072980 0.033447 2.182 0.02937 *
Age -0.010508 0.004055 -2.591 0.00971 **
Gendermale -0.045887 0.071954 -0.638 0.52381
Hypertension.compositeyes 0.058845 0.099784 0.590 0.55552
DiabetesStatusDiabetes -0.127065 0.080829 -1.572 0.11629
SmokerCurrentyes 0.028334 0.072970 0.388 0.69789
Med.Statin.LLDyes -0.349043 0.079153 -4.410 1.16e-05 ***
Med.all.antiplateletyes -0.007124 0.110152 -0.065 0.94844
GFR_MDRD -0.003437 0.001780 -1.931 0.05382 .
BMI -0.003941 0.009220 -0.427 0.66914
CAD_history -0.096726 0.074536 -1.298 0.19472
Stroke_history 0.080324 0.069644 1.153 0.24907
Peripheral.interv 0.214445 0.087779 2.443 0.01475 *
stenose50-70% 0.614862 0.512332 1.200 0.23040
stenose70-90% 0.932201 0.496101 1.879 0.06056 .
stenose90-99% 1.047922 0.495616 2.114 0.03475 *
stenose100% (Occlusion) 0.712439 0.605740 1.176 0.23984
stenose50-99% 0.549565 0.695939 0.790 0.42992
stenose70-99% 0.027142 0.697472 0.039 0.96897
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9817 on 912 degrees of freedom
Multiple R-squared: 0.06911, Adjusted R-squared: 0.04972
F-statistic: 3.564 on 19 and 912 DF, p-value: 4.323e-07
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: 0.07298
Standard error............: 0.033447
Odds ratio (effect size)..: 1.076
Lower 95% CI..............: 1.007
Upper 95% CI..............: 1.149
T-value...................: 2.181987
P-value...................: 0.02936508
R^2.......................: 0.069115
Adjusted r^2..............: 0.049721
Sample size of AE DB......: 2388
Sample size of model......: 932
Missing data %............: 60.97152
Analysis of MCP1_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
Med.Statin.LLD + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes Med.Statin.LLDyes Stroke_history
0.26759 -0.05375 -0.20588 -0.15187 0.10863
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3648 -0.6660 -0.0273 0.6576 3.2393
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.2124414 0.6391679 0.332 0.7397
currentDF[, TRAIT] -0.0594184 0.0313284 -1.897 0.0582 .
Age -0.0020052 0.0038961 -0.515 0.6069
Gendermale 0.0857202 0.0691441 1.240 0.2154
Hypertension.compositeyes -0.1946501 0.0966828 -2.013 0.0443 *
DiabetesStatusDiabetes -0.0356636 0.0763648 -0.467 0.6406
SmokerCurrentyes -0.0229331 0.0699413 -0.328 0.7431
Med.Statin.LLDyes -0.1530759 0.0772298 -1.982 0.0477 *
Med.all.antiplateletyes -0.0060653 0.1048021 -0.058 0.9539
GFR_MDRD -0.0007891 0.0016718 -0.472 0.6370
BMI -0.0033761 0.0086790 -0.389 0.6974
CAD_history -0.0429034 0.0715219 -0.600 0.5487
Stroke_history 0.1049280 0.0673948 1.557 0.1198
Peripheral.interv 0.0201952 0.0827808 0.244 0.8073
stenose50-70% 0.2746486 0.4665000 0.589 0.5562
stenose70-90% 0.3718106 0.4510306 0.824 0.4099
stenose90-99% 0.2388238 0.4508856 0.530 0.5965
stenose100% (Occlusion) -0.1876128 0.5732084 -0.327 0.7435
stenose50-99% 0.5643377 0.6719949 0.840 0.4012
stenose70-99% 0.5005227 0.6075952 0.824 0.4103
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9995 on 1017 degrees of freedom
Multiple R-squared: 0.02434, Adjusted R-squared: 0.006109
F-statistic: 1.335 on 19 and 1017 DF, p-value: 0.152
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.059418
Standard error............: 0.031328
Odds ratio (effect size)..: 0.942
Lower 95% CI..............: 0.886
Upper 95% CI..............: 1.002
T-value...................: -1.896633
P-value...................: 0.05815957
R^2.......................: 0.024337
Adjusted r^2..............: 0.006109
Sample size of AE DB......: 2388
Sample size of model......: 1037
Missing data %............: 56.57454
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
Med.Statin.LLD + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes Med.Statin.LLDyes Stroke_history
0.27925 -0.10750 -0.20781 -0.15930 0.09907
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3724 -0.6767 -0.0304 0.6444 3.2770
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.290952 0.638800 0.455 0.64887
currentDF[, TRAIT] -0.107077 0.032598 -3.285 0.00106 **
Age -0.003437 0.003929 -0.875 0.38199
Gendermale 0.040662 0.069945 0.581 0.56115
Hypertension.compositeyes -0.190633 0.096558 -1.974 0.04862 *
DiabetesStatusDiabetes -0.029269 0.076250 -0.384 0.70116
SmokerCurrentyes -0.017656 0.069895 -0.253 0.80062
Med.Statin.LLDyes -0.166237 0.077217 -2.153 0.03157 *
Med.all.antiplateletyes -0.011125 0.104641 -0.106 0.91535
GFR_MDRD -0.000614 0.001672 -0.367 0.71354
BMI -0.003254 0.008677 -0.375 0.70773
CAD_history -0.036723 0.071522 -0.513 0.60775
Stroke_history 0.097831 0.067275 1.454 0.14620
Peripheral.interv 0.024988 0.083042 0.301 0.76354
stenose50-70% 0.320528 0.465811 0.688 0.49154
stenose70-90% 0.410560 0.450412 0.912 0.36224
stenose90-99% 0.287171 0.450366 0.638 0.52385
stenose100% (Occlusion) -0.118251 0.572338 -0.207 0.83636
stenose50-99% 0.632607 0.670986 0.943 0.34601
stenose70-99% 0.549146 0.606689 0.905 0.36560
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9976 on 1013 degrees of freedom
Multiple R-squared: 0.031, Adjusted R-squared: 0.01282
F-statistic: 1.705 on 19 and 1013 DF, p-value: 0.02996
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.107077
Standard error............: 0.032598
Odds ratio (effect size)..: 0.898
Lower 95% CI..............: 0.843
Upper 95% CI..............: 0.958
T-value...................: -3.284785
P-value...................: 0.001055572
R^2.......................: 0.030996
Adjusted r^2..............: 0.012821
Sample size of AE DB......: 2388
Sample size of model......: 1033
Missing data %............: 56.74204
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
Med.Statin.LLD + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes Med.Statin.LLDyes Stroke_history
0.2520 -0.1458 -0.1882 -0.1728 0.1253
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2433 -0.6661 -0.0246 0.6386 3.3145
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.211623 0.650353 0.325 0.7450
currentDF[, TRAIT] -0.142888 0.033041 -4.325 1.69e-05 ***
Age -0.001066 0.004023 -0.265 0.7910
Gendermale 0.102130 0.071463 1.429 0.1533
Hypertension.compositeyes -0.184342 0.100225 -1.839 0.0662 .
DiabetesStatusDiabetes -0.041305 0.080612 -0.512 0.6085
SmokerCurrentyes -0.012813 0.072721 -0.176 0.8602
Med.Statin.LLDyes -0.172532 0.079341 -2.175 0.0299 *
Med.all.antiplateletyes 0.032519 0.109658 0.297 0.7669
GFR_MDRD -0.001284 0.001744 -0.736 0.4619
BMI -0.002257 0.008979 -0.251 0.8016
CAD_history -0.038172 0.074308 -0.514 0.6076
Stroke_history 0.119804 0.069831 1.716 0.0866 .
Peripheral.interv 0.002460 0.087239 0.028 0.9775
stenose50-70% 0.112862 0.469976 0.240 0.8103
stenose70-90% 0.252067 0.452625 0.557 0.5777
stenose90-99% 0.135540 0.452129 0.300 0.7644
stenose100% (Occlusion) -0.268393 0.574820 -0.467 0.6407
stenose50-99% 0.600081 0.673103 0.892 0.3729
stenose70-99% 0.162929 0.674146 0.242 0.8091
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.001 on 949 degrees of freedom
Multiple R-squared: 0.0426, Adjusted R-squared: 0.02343
F-statistic: 2.222 on 19 and 949 DF, p-value: 0.001956
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.142888
Standard error............: 0.033041
Odds ratio (effect size)..: 0.867
Lower 95% CI..............: 0.812
Upper 95% CI..............: 0.925
T-value...................: -4.324596
P-value...................: 1.689717e-05
R^2.......................: 0.0426
Adjusted r^2..............: 0.023432
Sample size of AE DB......: 2388
Sample size of model......: 969
Missing data %............: 59.42211 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Multi.Protein.PlaquePhenotypes.RANK.MODEL2.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M2) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
GFR_MDRD + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] GFR_MDRD Stroke_history
1.13102 0.16676 -0.01009 -0.39756
Degrees of Freedom: 480 Total (i.e. Null); 477 Residual
Null Deviance: 656.9
Residual Deviance: 646.2 AIC: 654.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8778 -1.2477 0.8434 1.0452 1.6363
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.142674 1.894433 -0.603 0.5464
currentDF[, PROTEIN] 0.187641 0.099762 1.881 0.0600 .
Age 0.005528 0.012359 0.447 0.6547
Gendermale -0.115162 0.218320 -0.527 0.5979
Hypertension.compositeyes 0.476111 0.285756 1.666 0.0957 .
DiabetesStatusDiabetes -0.321528 0.244112 -1.317 0.1878
SmokerCurrentyes 0.107466 0.208795 0.515 0.6068
Med.Statin.LLDyes 0.116419 0.219777 0.530 0.5963
Med.all.antiplateletyes 0.394578 0.343182 1.150 0.2502
GFR_MDRD -0.010480 0.005580 -1.878 0.0603 .
BMI -0.004079 0.026551 -0.154 0.8779
CAD_history -0.050297 0.216490 -0.232 0.8163
Stroke_history -0.449958 0.205657 -2.188 0.0287 *
Peripheral.interv -0.283628 0.243087 -1.167 0.2433
stenose50-70% 1.612811 1.359371 1.186 0.2354
stenose70-90% 1.574761 1.264171 1.246 0.2129
stenose90-99% 1.246104 1.258956 0.990 0.3223
stenose100% (Occlusion) 1.636060 1.495055 1.094 0.2738
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 656.88 on 480 degrees of freedom
Residual deviance: 635.08 on 463 degrees of freedom
AIC: 671.08
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.187641
Standard error............: 0.099762
Odds ratio (effect size)..: 1.206
Lower 95% CI..............: 0.992
Upper 95% CI..............: 1.467
Z-value...................: 1.880896
P-value...................: 0.05998602
Hosmer and Lemeshow r^2...: 0.033177
Cox and Snell r^2.........: 0.044296
Nagelkerke's pseudo r^2...: 0.059475
Sample size of AE DB......: 2388
Sample size of model......: 481
Missing data %............: 79.85762
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent +
Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes Peripheral.interv stenose50-70% stenose70-90%
16.6172 0.5118 -0.5187 -0.1656 -15.0805
stenose90-99% stenose100% (Occlusion)
-15.4792 -14.7976
Degrees of Freedom: 479 Total (i.e. Null); 473 Residual
Null Deviance: 474.8
Residual Deviance: 455.6 AIC: 469.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1410 0.4147 0.5880 0.7112 1.1491
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.833e+01 2.202e+03 0.008 0.9934
currentDF[, PROTEIN] -1.131e-01 1.218e-01 -0.928 0.3532
Age -5.156e-03 1.583e-02 -0.326 0.7447
Gendermale -1.905e-01 2.800e-01 -0.680 0.4962
Hypertension.compositeyes 3.476e-01 3.454e-01 1.006 0.3142
DiabetesStatusDiabetes 1.851e-01 3.131e-01 0.591 0.5545
SmokerCurrentyes 5.231e-01 2.725e-01 1.920 0.0549 .
Med.Statin.LLDyes -1.921e-02 2.739e-01 -0.070 0.9441
Med.all.antiplateletyes 5.197e-01 3.990e-01 1.303 0.1927
GFR_MDRD -4.836e-03 7.078e-03 -0.683 0.4945
BMI -2.662e-02 3.364e-02 -0.791 0.4287
CAD_history 9.202e-02 2.697e-01 0.341 0.7330
Stroke_history 1.321e-01 2.634e-01 0.502 0.6159
Peripheral.interv -5.602e-01 2.846e-01 -1.969 0.0490 *
stenose50-70% -1.090e-01 2.395e+03 0.000 1.0000
stenose70-90% -1.607e+01 2.202e+03 -0.007 0.9942
stenose90-99% -1.653e+01 2.202e+03 -0.008 0.9940
stenose100% (Occlusion) -1.556e+01 2.202e+03 -0.007 0.9944
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 474.79 on 479 degrees of freedom
Residual deviance: 449.41 on 462 degrees of freedom
AIC: 485.41
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.113087
Standard error............: 0.121798
Odds ratio (effect size)..: 0.893
Lower 95% CI..............: 0.703
Upper 95% CI..............: 1.134
Z-value...................: -0.928484
P-value...................: 0.3531568
Hosmer and Lemeshow r^2...: 0.053459
Cox and Snell r^2.........: 0.051505
Nagelkerke's pseudo r^2...: 0.082
Sample size of AE DB......: 2388
Sample size of model......: 480
Missing data %............: 79.8995
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite +
DiabetesStatus + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes DiabetesStatusDiabetes Stroke_history
0.2536 0.7695 0.6023 -0.5270 0.7668
Degrees of Freedom: 480 Total (i.e. Null); 476 Residual
Null Deviance: 483.6
Residual Deviance: 459.4 AIC: 469.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4561 0.3832 0.5522 0.7048 1.3298
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 13.557573 833.530464 0.016 0.987023
currentDF[, PROTEIN] 0.105467 0.121292 0.870 0.384555
Age -0.008356 0.015529 -0.538 0.590504
Gendermale 0.854341 0.255518 3.344 0.000827 ***
Hypertension.compositeyes 0.653898 0.331496 1.973 0.048545 *
DiabetesStatusDiabetes -0.535682 0.288011 -1.860 0.062894 .
SmokerCurrentyes 0.235127 0.266099 0.884 0.376909
Med.Statin.LLDyes -0.270417 0.289334 -0.935 0.349985
Med.all.antiplateletyes 0.332141 0.405082 0.820 0.412253
GFR_MDRD -0.004346 0.007159 -0.607 0.543790
BMI 0.025693 0.033034 0.778 0.436702
CAD_history -0.100692 0.271063 -0.371 0.710285
Stroke_history 0.725302 0.285075 2.544 0.010951 *
Peripheral.interv -0.253404 0.288452 -0.878 0.379674
stenose50-70% -14.083308 833.528719 -0.017 0.986520
stenose70-90% -13.205044 833.528557 -0.016 0.987360
stenose90-99% -13.322823 833.528546 -0.016 0.987247
stenose100% (Occlusion) -12.920301 833.529308 -0.016 0.987633
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 483.60 on 480 degrees of freedom
Residual deviance: 450.33 on 463 degrees of freedom
AIC: 486.33
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.105467
Standard error............: 0.121292
Odds ratio (effect size)..: 1.111
Lower 95% CI..............: 0.876
Upper 95% CI..............: 1.409
Z-value...................: 0.869535
P-value...................: 0.3845546
Hosmer and Lemeshow r^2...: 0.068787
Cox and Snell r^2.........: 0.066821
Nagelkerke's pseudo r^2...: 0.105379
Sample size of AE DB......: 2388
Sample size of model......: 481
Missing data %............: 79.85762
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
DiabetesStatus + BMI + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale DiabetesStatusDiabetes BMI
-2.71906 0.03306 0.64772 -0.58799 0.04663
Peripheral.interv
0.47594
Degrees of Freedom: 480 Total (i.e. Null); 475 Residual
Null Deviance: 538.2
Residual Deviance: 514.6 AIC: 526.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1197 0.3817 0.6180 0.7868 1.3147
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -3.724347 2.077712 -1.793 0.07305 .
currentDF[, PROTEIN] 0.031883 0.112786 0.283 0.77742
Age 0.029801 0.014081 2.116 0.03431 *
Gendermale 0.677626 0.239517 2.829 0.00467 **
Hypertension.compositeyes 0.362423 0.313321 1.157 0.24739
DiabetesStatusDiabetes -0.638623 0.268045 -2.383 0.01719 *
SmokerCurrentyes 0.133395 0.241854 0.552 0.58125
Med.Statin.LLDyes 0.051499 0.255894 0.201 0.84050
Med.all.antiplateletyes -0.278418 0.430917 -0.646 0.51821
GFR_MDRD -0.004065 0.006460 -0.629 0.52923
BMI 0.046769 0.030726 1.522 0.12797
CAD_history 0.176307 0.258493 0.682 0.49520
Stroke_history 0.049418 0.239972 0.206 0.83685
Peripheral.interv 0.442713 0.300800 1.472 0.14108
stenose50-70% 1.305170 1.391394 0.938 0.34823
stenose70-90% 1.209027 1.271245 0.951 0.34158
stenose90-99% 1.359738 1.267498 1.073 0.28337
stenose100% (Occlusion) 1.878451 1.699793 1.105 0.26911
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 538.20 on 480 degrees of freedom
Residual deviance: 509.11 on 463 degrees of freedom
AIC: 545.11
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: IPH
Effect size...............: 0.031883
Standard error............: 0.112786
Odds ratio (effect size)..: 1.032
Lower 95% CI..............: 0.828
Upper 95% CI..............: 1.288
Z-value...................: 0.282686
P-value...................: 0.7774176
Hosmer and Lemeshow r^2...: 0.054057
Cox and Snell r^2.........: 0.058693
Nagelkerke's pseudo r^2...: 0.087163
Sample size of AE DB......: 2388
Sample size of model......: 481
Missing data %............: 79.85762
Analysis of MCP1_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
DiabetesStatus + GFR_MDRD + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] DiabetesStatusDiabetes GFR_MDRD Stroke_history
1.192770 -0.151103 -0.450022 -0.009032 -0.335659
Degrees of Freedom: 513 Total (i.e. Null); 509 Residual
Null Deviance: 698.1
Residual Deviance: 685.4 AIC: 695.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6902 -1.2563 0.8474 1.0134 1.4941
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.341239 1.847433 -0.726 0.4678
currentDF[, PROTEIN] -0.143925 0.094902 -1.517 0.1294
Age 0.008539 0.012074 0.707 0.4794
Gendermale -0.133609 0.211820 -0.631 0.5282
Hypertension.compositeyes 0.421229 0.275933 1.527 0.1269
DiabetesStatusDiabetes -0.491397 0.233262 -2.107 0.0351 *
SmokerCurrentyes 0.190422 0.202282 0.941 0.3465
Med.Statin.LLDyes -0.065611 0.216144 -0.304 0.7615
Med.all.antiplateletyes 0.294148 0.328102 0.897 0.3700
GFR_MDRD -0.008637 0.005278 -1.636 0.1018
BMI 0.006020 0.025217 0.239 0.8113
CAD_history -0.019955 0.210077 -0.095 0.9243
Stroke_history -0.382267 0.196922 -1.941 0.0522 .
Peripheral.interv -0.296732 0.245678 -1.208 0.2271
stenose50-70% 1.345003 1.366009 0.985 0.3248
stenose70-90% 1.474735 1.278492 1.153 0.2487
stenose90-99% 1.183503 1.274224 0.929 0.3530
stenose100% (Occlusion) 1.433390 1.603296 0.894 0.3713
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 698.10 on 513 degrees of freedom
Residual deviance: 676.62 on 496 degrees of freedom
AIC: 712.62
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.143925
Standard error............: 0.094902
Odds ratio (effect size)..: 0.866
Lower 95% CI..............: 0.719
Upper 95% CI..............: 1.043
Z-value...................: -1.516566
P-value...................: 0.1293764
Hosmer and Lemeshow r^2...: 0.030769
Cox and Snell r^2.........: 0.040928
Nagelkerke's pseudo r^2...: 0.055094
Sample size of AE DB......: 2388
Sample size of model......: 514
Missing data %............: 78.47571
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + Med.all.antiplatelet + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes Med.all.antiplateletyes Peripheral.interv
15.0605 -0.6325 0.5715 0.8102 -0.5723
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
-13.0595 -14.0415 -14.5745 -14.0760
Degrees of Freedom: 511 Total (i.e. Null); 503 Residual
Null Deviance: 505.7
Residual Deviance: 459.5 AIC: 477.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5465 0.3165 0.5104 0.6799 1.4542
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 15.999553 778.354658 0.021 0.9836
currentDF[, PROTEIN] -0.622928 0.128740 -4.839 1.31e-06 ***
Age -0.005270 0.015877 -0.332 0.7399
Gendermale -0.109271 0.281106 -0.389 0.6975
Hypertension.compositeyes 0.232635 0.346594 0.671 0.5021
DiabetesStatusDiabetes 0.322371 0.320516 1.006 0.3145
SmokerCurrentyes 0.569775 0.272057 2.094 0.0362 *
Med.Statin.LLDyes 0.069345 0.268917 0.258 0.7965
Med.all.antiplateletyes 0.802899 0.388040 2.069 0.0385 *
GFR_MDRD -0.002382 0.006955 -0.343 0.7320
BMI -0.025431 0.033840 -0.752 0.4523
CAD_history 0.128771 0.267709 0.481 0.6305
Stroke_history 0.133460 0.258321 0.517 0.6054
Peripheral.interv -0.629923 0.299489 -2.103 0.0354 *
stenose50-70% -13.094548 778.353270 -0.017 0.9866
stenose70-90% -14.077384 778.352576 -0.018 0.9856
stenose90-99% -14.620319 778.352564 -0.019 0.9850
stenose100% (Occlusion) -14.008097 778.353486 -0.018 0.9856
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 505.69 on 511 degrees of freedom
Residual deviance: 456.43 on 494 degrees of freedom
AIC: 492.43
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.622928
Standard error............: 0.12874
Odds ratio (effect size)..: 0.536
Lower 95% CI..............: 0.417
Upper 95% CI..............: 0.69
Z-value...................: -4.83865
P-value...................: 1.307237e-06
Hosmer and Lemeshow r^2...: 0.097413
Cox and Snell r^2.........: 0.091729
Nagelkerke's pseudo r^2...: 0.146168
Sample size of AE DB......: 2388
Sample size of model......: 512
Missing data %............: 78.55946
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Hypertension.composite + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Hypertension.compositeyes Stroke_history
0.4409 0.6533 0.5583 0.6017 0.6751
Degrees of Freedom: 513 Total (i.e. Null); 509 Residual
Null Deviance: 506.6
Residual Deviance: 459.5 AIC: 469.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5740 0.2922 0.4930 0.6720 1.5683
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 12.661734 817.641489 0.015 0.9876
currentDF[, PROTEIN] 0.656649 0.132397 4.960 7.06e-07 ***
Age 0.001732 0.015546 0.111 0.9113
Gendermale 0.612693 0.256582 2.388 0.0169 *
Hypertension.compositeyes 0.685985 0.341187 2.011 0.0444 *
DiabetesStatusDiabetes -0.262261 0.294365 -0.891 0.3730
SmokerCurrentyes 0.363236 0.268874 1.351 0.1767
Med.Statin.LLDyes -0.147175 0.293177 -0.502 0.6157
Med.all.antiplateletyes 0.038168 0.411206 0.093 0.9260
GFR_MDRD -0.001070 0.007032 -0.152 0.8790
BMI 0.041989 0.032506 1.292 0.1965
CAD_history -0.184485 0.275017 -0.671 0.5023
Stroke_history 0.635540 0.279528 2.274 0.0230 *
Peripheral.interv -0.174872 0.301205 -0.581 0.5615
stenose50-70% -14.255551 817.639782 -0.017 0.9861
stenose70-90% -13.148729 817.639612 -0.016 0.9872
stenose90-99% -13.458669 817.639598 -0.016 0.9869
stenose100% (Occlusion) -13.167887 817.640432 -0.016 0.9872
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 506.55 on 513 degrees of freedom
Residual deviance: 448.02 on 496 degrees of freedom
AIC: 484.02
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.656649
Standard error............: 0.132397
Odds ratio (effect size)..: 1.928
Lower 95% CI..............: 1.488
Upper 95% CI..............: 2.5
Z-value...................: 4.959683
P-value...................: 7.060839e-07
Hosmer and Lemeshow r^2...: 0.115562
Cox and Snell r^2.........: 0.107642
Nagelkerke's pseudo r^2...: 0.171745
Sample size of AE DB......: 2388
Sample size of model......: 514
Missing data %............: 78.47571
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
DiabetesStatus + BMI + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale DiabetesStatusDiabetes BMI
-2.41015 0.02549 0.72976 -0.55880 0.05326
Peripheral.interv
0.46653
Degrees of Freedom: 513 Total (i.e. Null); 508 Residual
Null Deviance: 568
Residual Deviance: 544 AIC: 556
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1812 0.4279 0.6129 0.7610 1.5453
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -3.337489 2.007482 -1.663 0.09641 .
currentDF[, PROTEIN] 0.114993 0.110404 1.042 0.29761
Age 0.021692 0.013848 1.566 0.11724
Gendermale 0.699221 0.231008 3.027 0.00247 **
Hypertension.compositeyes 0.332762 0.307165 1.083 0.27866
DiabetesStatusDiabetes -0.570391 0.259801 -2.195 0.02813 *
SmokerCurrentyes 0.111871 0.236363 0.473 0.63600
Med.Statin.LLDyes -0.055247 0.255070 -0.217 0.82852
Med.all.antiplateletyes -0.189324 0.397135 -0.477 0.63356
GFR_MDRD -0.003295 0.006174 -0.534 0.59352
BMI 0.051262 0.029169 1.757 0.07884 .
CAD_history 0.218815 0.255681 0.856 0.39210
Stroke_history 0.130905 0.232489 0.563 0.57339
Peripheral.interv 0.448115 0.306829 1.460 0.14416
stenose50-70% 1.269161 1.380367 0.919 0.35787
stenose70-90% 1.185950 1.267384 0.936 0.34940
stenose90-99% 1.355527 1.264520 1.072 0.28373
stenose100% (Occlusion) 1.465751 1.720671 0.852 0.39430
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 567.98 on 513 degrees of freedom
Residual deviance: 538.07 on 496 degrees of freedom
AIC: 574.07
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: IPH
Effect size...............: 0.114993
Standard error............: 0.110404
Odds ratio (effect size)..: 1.122
Lower 95% CI..............: 0.904
Upper 95% CI..............: 1.393
Z-value...................: 1.041567
P-value...................: 0.2976126
Hosmer and Lemeshow r^2...: 0.052662
Cox and Snell r^2.........: 0.056532
Nagelkerke's pseudo r^2...: 0.084528
Sample size of AE DB......: 2388
Sample size of model......: 514
Missing data %............: 78.47571
Analysis of IL6_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + CAD_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes CAD_history
-1.21906 -0.10139 0.01999 0.39841 0.25581
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-1.00567 -0.50697 -0.26246 0.80569 -13.93538
stenose70-99%
-1.53003
Degrees of Freedom: 996 Total (i.e. Null); 986 Residual
Null Deviance: 1381
Residual Deviance: 1349 AIC: 1371
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6147 -1.1333 -0.7964 1.1564 1.6722
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.909944 1.321284 -0.689 0.49102
currentDF[, PROTEIN] -0.099976 0.066163 -1.511 0.13077
Age 0.017028 0.008100 2.102 0.03552 *
Gendermale -0.132850 0.144146 -0.922 0.35672
Hypertension.compositeyes 0.232383 0.202519 1.147 0.25119
DiabetesStatusDiabetes -0.175024 0.159524 -1.097 0.27257
SmokerCurrentyes 0.413549 0.146703 2.819 0.00482 **
Med.Statin.LLDyes -0.164639 0.159153 -1.034 0.30092
Med.all.antiplateletyes -0.223519 0.217193 -1.029 0.30342
GFR_MDRD -0.001873 0.003492 -0.536 0.59169
BMI 0.012482 0.018095 0.690 0.49034
CAD_history 0.264314 0.149945 1.763 0.07795 .
Stroke_history -0.138429 0.140758 -0.983 0.32538
Peripheral.interv -0.183619 0.172919 -1.062 0.28829
stenose50-70% -0.939975 0.962505 -0.977 0.32877
stenose70-90% -0.485844 0.928836 -0.523 0.60093
stenose90-99% -0.236697 0.928355 -0.255 0.79875
stenose100% (Occlusion) 0.801826 1.244197 0.644 0.51928
stenose50-99% -14.007873 368.424975 -0.038 0.96967
stenose70-99% -1.453878 1.253623 -1.160 0.24615
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1381.3 on 996 degrees of freedom
Residual deviance: 1340.3 on 977 degrees of freedom
AIC: 1380.3
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.099976
Standard error............: 0.066163
Odds ratio (effect size)..: 0.905
Lower 95% CI..............: 0.795
Upper 95% CI..............: 1.03
Z-value...................: -1.511065
P-value...................: 0.1307718
Hosmer and Lemeshow r^2...: 0.029706
Cox and Snell r^2.........: 0.04032
Nagelkerke's pseudo r^2...: 0.053776
Sample size of AE DB......: 2388
Sample size of model......: 997
Missing data %............: 58.24958
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Hypertension.composite + SmokerCurrent + BMI + Stroke_history,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Hypertension.compositeyes SmokerCurrentyes BMI
-0.01981 -0.29027 0.34009 0.44475 0.03349
Stroke_history
0.25226
Degrees of Freedom: 999 Total (i.e. Null); 994 Residual
Null Deviance: 1017
Residual Deviance: 993 AIC: 1005
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2838 0.4520 0.6083 0.7205 1.0945
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.292e+01 6.481e+02 0.020 0.984089
currentDF[, PROTEIN] -2.788e-01 8.257e-02 -3.376 0.000735 ***
Age 8.333e-03 9.876e-03 0.844 0.398752
Gendermale -8.397e-02 1.781e-01 -0.471 0.637300
Hypertension.compositeyes 3.107e-01 2.330e-01 1.334 0.182365
DiabetesStatusDiabetes 2.105e-01 2.039e-01 1.033 0.301764
SmokerCurrentyes 4.917e-01 1.863e-01 2.639 0.008305 **
Med.Statin.LLDyes -1.661e-02 1.955e-01 -0.085 0.932280
Med.all.antiplateletyes 1.316e-01 2.617e-01 0.503 0.615014
GFR_MDRD 4.714e-03 4.302e-03 1.096 0.273176
BMI 3.356e-02 2.363e-02 1.420 0.155532
CAD_history 2.203e-01 1.882e-01 1.171 0.241679
Stroke_history 2.405e-01 1.765e-01 1.363 0.172966
Peripheral.interv -1.820e-02 2.155e-01 -0.084 0.932671
stenose50-70% -1.361e+01 6.481e+02 -0.021 0.983249
stenose70-90% -1.401e+01 6.481e+02 -0.022 0.982747
stenose90-99% -1.406e+01 6.481e+02 -0.022 0.982690
stenose100% (Occlusion) 4.945e-01 8.183e+02 0.001 0.999518
stenose50-99% 1.313e-02 1.208e+03 0.000 0.999991
stenose70-99% -1.373e+01 6.481e+02 -0.021 0.983103
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1017.22 on 999 degrees of freedom
Residual deviance: 980.18 on 980 degrees of freedom
AIC: 1020.2
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.278762
Standard error............: 0.08257
Odds ratio (effect size)..: 0.757
Lower 95% CI..............: 0.644
Upper 95% CI..............: 0.89
Z-value...................: -3.376059
P-value...................: 0.0007353204
Hosmer and Lemeshow r^2...: 0.036411
Cox and Snell r^2.........: 0.036361
Nagelkerke's pseudo r^2...: 0.056956
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
0.5014 0.4505 0.8327 0.3722 -0.6087
Degrees of Freedom: 999 Total (i.e. Null); 995 Residual
Null Deviance: 1165
Residual Deviance: 1079 AIC: 1089
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2290 -1.0455 0.6047 0.8064 2.0491
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.317e+01 3.905e+02 0.034 0.973093
currentDF[, PROTEIN] 4.532e-01 7.890e-02 5.744 9.26e-09 ***
Age 9.621e-03 9.328e-03 1.031 0.302330
Gendermale 8.512e-01 1.611e-01 5.282 1.27e-07 ***
Hypertension.compositeyes 6.829e-02 2.349e-01 0.291 0.771250
DiabetesStatusDiabetes -1.155e-01 1.839e-01 -0.628 0.529991
SmokerCurrentyes 1.014e-01 1.710e-01 0.593 0.553366
Med.Statin.LLDyes -1.768e-01 1.904e-01 -0.928 0.353200
Med.all.antiplateletyes 6.371e-02 2.501e-01 0.255 0.798916
GFR_MDRD -2.636e-04 4.098e-03 -0.064 0.948718
BMI 3.776e-03 2.044e-02 0.185 0.853460
CAD_history 7.889e-02 1.751e-01 0.451 0.652297
Stroke_history 3.768e-01 1.703e-01 2.213 0.026912 *
Peripheral.interv -6.136e-01 1.860e-01 -3.299 0.000972 ***
stenose50-70% -1.353e+01 3.905e+02 -0.035 0.972366
stenose70-90% -1.348e+01 3.905e+02 -0.035 0.972456
stenose90-99% -1.333e+01 3.905e+02 -0.034 0.972772
stenose100% (Occlusion) -1.427e+01 3.905e+02 -0.037 0.970836
stenose50-99% -1.498e+01 3.905e+02 -0.038 0.969387
stenose70-99% -1.461e+01 3.905e+02 -0.037 0.970150
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1164.5 on 999 degrees of freedom
Residual deviance: 1067.6 on 980 degrees of freedom
AIC: 1107.6
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.453209
Standard error............: 0.078905
Odds ratio (effect size)..: 1.573
Lower 95% CI..............: 1.348
Upper 95% CI..............: 1.837
Z-value...................: 5.743761
P-value...................: 9.259659e-09
Hosmer and Lemeshow r^2...: 0.083261
Cox and Snell r^2.........: 0.092407
Nagelkerke's pseudo r^2...: 0.134327
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Med.Statin.LLD +
BMI + CAD_history + Stroke_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Med.Statin.LLDyes BMI CAD_history
0.16028 0.59271 -0.25963 0.02923 0.30318
Stroke_history stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.25028 -1.09743 -0.97086 -0.65159 -0.80087
stenose50-99% stenose70-99%
-15.27559 0.59126
Degrees of Freedom: 998 Total (i.e. Null); 987 Residual
Null Deviance: 1331
Residual Deviance: 1288 AIC: 1312
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9367 -1.2695 0.8101 0.9793 1.4492
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.134237 1.491544 0.090 0.9283
currentDF[, PROTEIN] 0.054522 0.068254 0.799 0.4244
Age 0.001619 0.008307 0.195 0.8455
Gendermale 0.638876 0.146508 4.361 1.3e-05 ***
Hypertension.compositeyes -0.108080 0.207201 -0.522 0.6019
DiabetesStatusDiabetes -0.123290 0.163538 -0.754 0.4509
SmokerCurrentyes 0.124934 0.151554 0.824 0.4097
Med.Statin.LLDyes -0.249499 0.167274 -1.492 0.1358
Med.all.antiplateletyes 0.161931 0.221057 0.733 0.4638
GFR_MDRD -0.004974 0.003614 -1.376 0.1687
BMI 0.033028 0.018696 1.767 0.0773 .
CAD_history 0.310960 0.157200 1.978 0.0479 *
Stroke_history 0.230621 0.146500 1.574 0.1154
Peripheral.interv 0.037076 0.178283 0.208 0.8353
stenose50-70% -1.011322 1.165248 -0.868 0.3854
stenose70-90% -0.904406 1.139736 -0.794 0.4275
stenose90-99% -0.590355 1.139754 -0.518 0.6045
stenose100% (Occlusion) -0.735447 1.357428 -0.542 0.5880
stenose50-99% -15.239630 376.951258 -0.040 0.9678
stenose70-99% 0.597045 1.580966 0.378 0.7057
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1331.0 on 998 degrees of freedom
Residual deviance: 1283.4 on 979 degrees of freedom
AIC: 1323.4
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.054522
Standard error............: 0.068254
Odds ratio (effect size)..: 1.056
Lower 95% CI..............: 0.924
Upper 95% CI..............: 1.207
Z-value...................: 0.798812
P-value...................: 0.4243993
Hosmer and Lemeshow r^2...: 0.03579
Cox and Snell r^2.........: 0.046565
Nagelkerke's pseudo r^2...: 0.063256
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
Analysis of IL6R_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Hypertension.composite +
DiabetesStatus + SmokerCurrent + CAD_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Hypertension.compositeyes DiabetesStatusDiabetes SmokerCurrentyes
-0.47387 0.01628 0.29007 -0.24352 0.33077
CAD_history stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.22888 -1.57353 -1.17165 -0.93734 0.08563
stenose50-99% stenose70-99%
-15.69452 -2.08325
Degrees of Freedom: 1000 Total (i.e. Null); 989 Residual
Null Deviance: 1387
Residual Deviance: 1354 AIC: 1378
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.5705 -1.1316 -0.8359 1.1617 1.7412
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.212109 1.495726 0.142 0.8872
currentDF[, PROTEIN] -0.002449 0.066213 -0.037 0.9705
Age 0.013336 0.008150 1.636 0.1018
Gendermale -0.162994 0.143965 -1.132 0.2576
Hypertension.compositeyes 0.294333 0.200281 1.470 0.1417
DiabetesStatusDiabetes -0.249693 0.159825 -1.562 0.1182
SmokerCurrentyes 0.336013 0.145847 2.304 0.0212 *
Med.Statin.LLDyes -0.108235 0.161265 -0.671 0.5021
Med.all.antiplateletyes -0.255972 0.219348 -1.167 0.2432
GFR_MDRD -0.002395 0.003551 -0.674 0.5000
BMI 0.004821 0.018465 0.261 0.7940
CAD_history 0.251978 0.149114 1.690 0.0911 .
Stroke_history -0.166730 0.139636 -1.194 0.2325
Peripheral.interv -0.196876 0.172959 -1.138 0.2550
stenose50-70% -1.465448 1.195541 -1.226 0.2203
stenose70-90% -1.113704 1.168398 -0.953 0.3405
stenose90-99% -0.867558 1.168634 -0.742 0.4579
stenose100% (Occlusion) 0.118872 1.429842 0.083 0.9337
stenose50-99% -15.589875 435.856093 -0.036 0.9715
stenose70-99% -1.997577 1.438041 -1.389 0.1648
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1386.7 on 1000 degrees of freedom
Residual deviance: 1347.6 on 981 degrees of freedom
AIC: 1387.6
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.002449
Standard error............: 0.066213
Odds ratio (effect size)..: 0.998
Lower 95% CI..............: 0.876
Upper 95% CI..............: 1.136
Z-value...................: -0.036981
P-value...................: 0.9704999
Hosmer and Lemeshow r^2...: 0.028198
Cox and Snell r^2.........: 0.03831
Nagelkerke's pseudo r^2...: 0.051096
Sample size of AE DB......: 2388
Sample size of model......: 1001
Missing data %............: 58.08208
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent +
CAD_history, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes CAD_history
1.1251 0.4158 0.3017
Degrees of Freedom: 1003 Total (i.e. Null); 1001 Residual
Null Deviance: 1022
Residual Deviance: 1014 AIC: 1020
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1265 0.4975 0.6343 0.7205 0.9708
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.282e+01 7.188e+02 0.018 0.98577
currentDF[, PROTEIN] 8.155e-03 8.142e-02 0.100 0.92022
Age 1.014e-02 9.909e-03 1.023 0.30614
Gendermale 4.618e-02 1.747e-01 0.264 0.79159
Hypertension.compositeyes 2.825e-01 2.303e-01 1.227 0.21991
DiabetesStatusDiabetes 2.034e-01 2.026e-01 1.004 0.31533
SmokerCurrentyes 4.830e-01 1.850e-01 2.610 0.00905 **
Med.Statin.LLDyes 3.976e-02 1.953e-01 0.204 0.83865
Med.all.antiplateletyes 2.293e-01 2.583e-01 0.888 0.37472
GFR_MDRD 4.130e-03 4.355e-03 0.948 0.34288
BMI 2.798e-02 2.331e-02 1.200 0.23000
CAD_history 2.663e-01 1.871e-01 1.423 0.15476
Stroke_history 2.061e-01 1.740e-01 1.184 0.23622
Peripheral.interv 7.680e-02 2.159e-01 0.356 0.72202
stenose50-70% -1.365e+01 7.188e+02 -0.019 0.98485
stenose70-90% -1.411e+01 7.188e+02 -0.020 0.98434
stenose90-99% -1.411e+01 7.188e+02 -0.020 0.98434
stenose100% (Occlusion) 3.208e-01 8.796e+02 0.000 0.99971
stenose50-99% -1.451e-01 1.020e+03 0.000 0.99989
stenose70-99% -1.370e+01 7.188e+02 -0.019 0.98479
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1021.76 on 1003 degrees of freedom
Residual deviance: 996.48 on 984 degrees of freedom
AIC: 1036.5
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.008155
Standard error............: 0.081415
Odds ratio (effect size)..: 1.008
Lower 95% CI..............: 0.859
Upper 95% CI..............: 1.183
Z-value...................: 0.100161
P-value...................: 0.9202161
Hosmer and Lemeshow r^2...: 0.024745
Cox and Snell r^2.........: 0.024868
Nagelkerke's pseudo r^2...: 0.038943
Sample size of AE DB......: 2388
Sample size of model......: 1004
Missing data %............: 57.95645
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
0.4550 0.1229 0.7952 0.4442 -0.6211
Degrees of Freedom: 1003 Total (i.e. Null); 999 Residual
Null Deviance: 1171
Residual Deviance: 1122 AIC: 1132
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0862 -1.1264 0.6590 0.7969 1.8542
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.332e+01 4.411e+02 0.030 0.97591
currentDF[, PROTEIN] 9.800e-02 7.527e-02 1.302 0.19292
Age 1.132e-02 9.265e-03 1.222 0.22178
Gendermale 8.405e-01 1.583e-01 5.308 1.11e-07 ***
Hypertension.compositeyes -1.069e-03 2.299e-01 -0.005 0.99629
DiabetesStatusDiabetes -1.151e-01 1.801e-01 -0.639 0.52259
SmokerCurrentyes 1.497e-01 1.676e-01 0.894 0.37152
Med.Statin.LLDyes -1.464e-01 1.904e-01 -0.769 0.44205
Med.all.antiplateletyes 4.523e-02 2.493e-01 0.181 0.85603
GFR_MDRD 5.281e-06 4.114e-03 0.001 0.99898
BMI -5.235e-03 2.075e-02 -0.252 0.80084
CAD_history -6.362e-02 1.695e-01 -0.375 0.70743
Stroke_history 4.412e-01 1.660e-01 2.658 0.00787 **
Peripheral.interv -5.960e-01 1.843e-01 -3.234 0.00122 **
stenose50-70% -1.358e+01 4.411e+02 -0.031 0.97545
stenose70-90% -1.349e+01 4.411e+02 -0.031 0.97560
stenose90-99% -1.338e+01 4.411e+02 -0.030 0.97581
stenose100% (Occlusion) -1.416e+01 4.411e+02 -0.032 0.97440
stenose50-99% -1.586e+01 4.411e+02 -0.036 0.97132
stenose70-99% -1.470e+01 4.411e+02 -0.033 0.97341
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1171.0 on 1003 degrees of freedom
Residual deviance: 1106.8 on 984 degrees of freedom
AIC: 1146.8
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.097997
Standard error............: 0.075268
Odds ratio (effect size)..: 1.103
Lower 95% CI..............: 0.952
Upper 95% CI..............: 1.278
Z-value...................: 1.301985
P-value...................: 0.1929215
Hosmer and Lemeshow r^2...: 0.054819
Cox and Snell r^2.........: 0.061938
Nagelkerke's pseudo r^2...: 0.08996
Sample size of AE DB......: 2388
Sample size of model......: 1004
Missing data %............: 57.95645
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + GFR_MDRD + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale GFR_MDRD CAD_history
0.347137 0.149195 0.581414 -0.004984 0.228735
Degrees of Freedom: 1001 Total (i.e. Null); 997 Residual
Null Deviance: 1338
Residual Deviance: 1311 AIC: 1321
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9319 -1.2821 0.8263 0.9878 1.4773
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.693593 1.522867 0.455 0.6488
currentDF[, PROTEIN] 0.136420 0.068451 1.993 0.0463 *
Age -0.001134 0.008382 -0.135 0.8924
Gendermale 0.611644 0.146076 4.187 2.82e-05 ***
Hypertension.compositeyes -0.110197 0.204287 -0.539 0.5896
DiabetesStatusDiabetes -0.154479 0.162386 -0.951 0.3414
SmokerCurrentyes 0.113081 0.150460 0.752 0.4523
Med.Statin.LLDyes -0.148415 0.167690 -0.885 0.3761
Med.all.antiplateletyes 0.060511 0.223809 0.270 0.7869
GFR_MDRD -0.005323 0.003674 -1.449 0.1474
BMI 0.017774 0.018965 0.937 0.3486
CAD_history 0.289601 0.155217 1.866 0.0621 .
Stroke_history 0.153900 0.144197 1.067 0.2858
Peripheral.interv 0.004085 0.178235 0.023 0.9817
stenose50-70% -0.739569 1.207855 -0.612 0.5403
stenose70-90% -0.772461 1.182418 -0.653 0.5136
stenose90-99% -0.519486 1.182942 -0.439 0.6606
stenose100% (Occlusion) -0.605786 1.393142 -0.435 0.6637
stenose50-99% -1.096639 1.556511 -0.705 0.4811
stenose70-99% 0.852030 1.607425 0.530 0.5961
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1337.7 on 1001 degrees of freedom
Residual deviance: 1299.2 on 982 degrees of freedom
AIC: 1339.2
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.13642
Standard error............: 0.068451
Odds ratio (effect size)..: 1.146
Lower 95% CI..............: 1.002
Upper 95% CI..............: 1.311
Z-value...................: 1.992945
P-value...................: 0.04626743
Hosmer and Lemeshow r^2...: 0.028723
Cox and Snell r^2.........: 0.037619
Nagelkerke's pseudo r^2...: 0.051055
Sample size of AE DB......: 2388
Sample size of model......: 1002
Missing data %............: 58.0402
Analysis of MCP1_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + CAD_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes CAD_history
-1.37299 -0.47406 0.02058 0.40394 0.24014
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-0.88314 -0.37300 -0.18504 0.71187 -14.80113
stenose70-99%
-1.21694
Degrees of Freedom: 1038 Total (i.e. Null); 1028 Residual
Null Deviance: 1439
Residual Deviance: 1354 AIC: 1376
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8920 -1.0857 -0.6854 1.1100 2.0741
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.111475 1.329496 -0.836 0.40315
currentDF[, PROTEIN] -0.474349 0.068483 -6.927 4.31e-12 ***
Age 0.017814 0.008172 2.180 0.02927 *
Gendermale -0.141964 0.144258 -0.984 0.32507
Hypertension.compositeyes 0.223348 0.202733 1.102 0.27060
DiabetesStatusDiabetes -0.239143 0.160905 -1.486 0.13722
SmokerCurrentyes 0.415158 0.147167 2.821 0.00479 **
Med.Statin.LLDyes -0.180621 0.161314 -1.120 0.26285
Med.all.antiplateletyes -0.196875 0.219018 -0.899 0.36871
GFR_MDRD -0.001495 0.003520 -0.425 0.67110
BMI 0.012799 0.018157 0.705 0.48087
CAD_history 0.263913 0.150066 1.759 0.07864 .
Stroke_history -0.113515 0.140974 -0.805 0.42069
Peripheral.interv -0.192409 0.172486 -1.116 0.26463
stenose50-70% -0.816931 0.965795 -0.846 0.39763
stenose70-90% -0.342436 0.930578 -0.368 0.71289
stenose90-99% -0.154316 0.930195 -0.166 0.86824
stenose100% (Occlusion) 0.718982 1.255767 0.573 0.56695
stenose50-99% -14.791163 417.958374 -0.035 0.97177
stenose70-99% -1.145147 1.267273 -0.904 0.36619
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1439.2 on 1038 degrees of freedom
Residual deviance: 1345.5 on 1019 degrees of freedom
AIC: 1385.5
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.474349
Standard error............: 0.068483
Odds ratio (effect size)..: 0.622
Lower 95% CI..............: 0.544
Upper 95% CI..............: 0.712
Z-value...................: -6.926517
P-value...................: 4.313271e-12
Hosmer and Lemeshow r^2...: 0.065099
Cox and Snell r^2.........: 0.086227
Nagelkerke's pseudo r^2...: 0.115013
Sample size of AE DB......: 2388
Sample size of model......: 1039
Missing data %............: 56.49079
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + BMI, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes BMI
0.20733 -0.23235 0.44405 0.03906
Degrees of Freedom: 1041 Total (i.e. Null); 1038 Residual
Null Deviance: 1055
Residual Deviance: 1037 AIC: 1045
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2648 0.4510 0.6178 0.7190 1.0442
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.346e+01 1.061e+03 0.013 0.98988
currentDF[, PROTEIN] -2.260e-01 7.941e-02 -2.846 0.00443 **
Age 1.026e-02 9.723e-03 1.055 0.29133
Gendermale 2.043e-02 1.727e-01 0.118 0.90585
Hypertension.compositeyes 2.367e-01 2.301e-01 1.029 0.30368
DiabetesStatusDiabetes 1.304e-01 1.981e-01 0.658 0.51029
SmokerCurrentyes 5.189e-01 1.836e-01 2.826 0.00472 **
Med.Statin.LLDyes 1.422e-02 1.924e-01 0.074 0.94111
Med.all.antiplateletyes 1.565e-01 2.563e-01 0.611 0.54149
GFR_MDRD 5.598e-03 4.241e-03 1.320 0.18688
BMI 4.070e-02 2.308e-02 1.763 0.07787 .
CAD_history 2.143e-01 1.838e-01 1.166 0.24353
Stroke_history 2.224e-01 1.727e-01 1.288 0.19786
Peripheral.interv 1.098e-01 2.127e-01 0.516 0.60574
stenose50-70% -1.453e+01 1.061e+03 -0.014 0.98907
stenose70-90% -1.499e+01 1.061e+03 -0.014 0.98873
stenose90-99% -1.505e+01 1.061e+03 -0.014 0.98869
stenose100% (Occlusion) 2.439e-01 1.351e+03 0.000 0.99986
stenose50-99% -1.824e-02 1.589e+03 0.000 0.99999
stenose70-99% -1.449e+01 1.061e+03 -0.014 0.98911
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1055.5 on 1041 degrees of freedom
Residual deviance: 1019.7 on 1022 degrees of freedom
AIC: 1059.7
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.225966
Standard error............: 0.079411
Odds ratio (effect size)..: 0.798
Lower 95% CI..............: 0.683
Upper 95% CI..............: 0.932
Z-value...................: -2.845529
P-value...................: 0.00443377
Hosmer and Lemeshow r^2...: 0.033878
Cox and Snell r^2.........: 0.033733
Nagelkerke's pseudo r^2...: 0.052969
Sample size of AE DB......: 2388
Sample size of model......: 1042
Missing data %............: 56.36516
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
13.9001 0.1685 0.8324 0.4438 -0.6179
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-13.6499 -13.5208 -13.3630 -14.0674 -15.9302
stenose70-99%
-14.7641
Degrees of Freedom: 1041 Total (i.e. Null); 1031 Residual
Null Deviance: 1225
Residual Deviance: 1154 AIC: 1176
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1038 -1.1336 0.6504 0.8116 1.7658
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.325e+01 3.926e+02 0.034 0.973076
currentDF[, PROTEIN] 1.633e-01 7.323e-02 2.230 0.025771 *
Age 7.988e-03 8.972e-03 0.890 0.373294
Gendermale 8.706e-01 1.541e-01 5.650 1.6e-08 ***
Hypertension.compositeyes 4.406e-02 2.265e-01 0.194 0.845801
DiabetesStatusDiabetes -1.615e-01 1.756e-01 -0.920 0.357650
SmokerCurrentyes 1.448e-01 1.637e-01 0.885 0.376349
Med.Statin.LLDyes -1.876e-01 1.861e-01 -1.008 0.313562
Med.all.antiplateletyes 7.910e-02 2.423e-01 0.327 0.744039
GFR_MDRD -6.075e-04 3.926e-03 -0.155 0.877040
BMI 3.774e-03 1.972e-02 0.191 0.848251
CAD_history -3.938e-02 1.660e-01 -0.237 0.812467
Stroke_history 4.320e-01 1.633e-01 2.645 0.008160 **
Peripheral.interv -5.908e-01 1.790e-01 -3.300 0.000965 ***
stenose50-70% -1.358e+01 3.926e+02 -0.035 0.972398
stenose70-90% -1.345e+01 3.926e+02 -0.034 0.972660
stenose90-99% -1.331e+01 3.926e+02 -0.034 0.972956
stenose100% (Occlusion) -1.405e+01 3.926e+02 -0.036 0.971459
stenose50-99% -1.591e+01 3.926e+02 -0.041 0.967674
stenose70-99% -1.478e+01 3.926e+02 -0.038 0.969972
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1224.7 on 1041 degrees of freedom
Residual deviance: 1150.4 on 1022 degrees of freedom
AIC: 1190.4
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.163285
Standard error............: 0.073234
Odds ratio (effect size)..: 1.177
Lower 95% CI..............: 1.02
Upper 95% CI..............: 1.359
Z-value...................: 2.22964
P-value...................: 0.02577136
Hosmer and Lemeshow r^2...: 0.060666
Cox and Snell r^2.........: 0.068819
Nagelkerke's pseudo r^2...: 0.099553
Sample size of AE DB......: 2388
Sample size of model......: 1042
Missing data %............: 56.36516
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Med.Statin.LLD + BMI + CAD_history + Stroke_history,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Med.Statin.LLDyes BMI CAD_history
-0.57216 -0.13871 0.54948 -0.27048 0.02716 0.26512
Stroke_history
0.24072
Degrees of Freedom: 1039 Total (i.e. Null); 1033 Residual
Null Deviance: 1389
Residual Deviance: 1357 AIC: 1371
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9631 -1.2808 0.8129 0.9902 1.5437
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.2859982 1.4840343 0.193 0.8472
currentDF[, PROTEIN] -0.1379693 0.0658565 -2.095 0.0362 *
Age 0.0001424 0.0081461 0.017 0.9860
Gendermale 0.6169887 0.1429940 4.315 1.6e-05 ***
Hypertension.compositeyes -0.1347125 0.2023482 -0.666 0.5056
DiabetesStatusDiabetes -0.1318405 0.1596422 -0.826 0.4089
SmokerCurrentyes 0.1353045 0.1476443 0.916 0.3594
Med.Statin.LLDyes -0.2582250 0.1645153 -1.570 0.1165
Med.all.antiplateletyes 0.1499145 0.2180924 0.687 0.4918
GFR_MDRD -0.0048941 0.0035333 -1.385 0.1660
BMI 0.0318061 0.0183315 1.735 0.0827 .
CAD_history 0.2693138 0.1520944 1.771 0.0766 .
Stroke_history 0.2396462 0.1427314 1.679 0.0932 .
Peripheral.interv 0.0531500 0.1737461 0.306 0.7597
stenose50-70% -0.9815249 1.1707234 -0.838 0.4018
stenose70-90% -0.8530624 1.1451377 -0.745 0.4563
stenose90-99% -0.5996543 1.1451261 -0.524 0.6005
stenose100% (Occlusion) -0.7495926 1.3619788 -0.550 0.5821
stenose50-99% -1.2353440 1.5277375 -0.809 0.4187
stenose70-99% 0.6521140 1.5833657 0.412 0.6804
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1388.6 on 1039 degrees of freedom
Residual deviance: 1344.4 on 1020 degrees of freedom
AIC: 1384.4
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: -0.137969
Standard error............: 0.065856
Odds ratio (effect size)..: 0.871
Lower 95% CI..............: 0.766
Upper 95% CI..............: 0.991
Z-value...................: -2.095
P-value...................: 0.03617101
Hosmer and Lemeshow r^2...: 0.031873
Cox and Snell r^2.........: 0.041665
Nagelkerke's pseudo r^2...: 0.056541
Sample size of AE DB......: 2388
Sample size of model......: 1040
Missing data %............: 56.44891 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.PlaquePhenotypes.RANK.MODEL2.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Model 3
In this model we correct for Age, Gender, Hypertension status, Diabetes status, current smoker status, lipid-lowering drugs (LLDs), antiplatelet medication, eGFR (MDRD), BMI, CAD history, stroke history, peripheral interventions, stenosis, and LDL.
Natural log-transformed data
First we use the natural-log transformed data.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON)) {
TRAIT = TRAITS.CON[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M3) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + LDL_final,
data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing Macrophages_LNNote: Using an external vector in selections is ambiguous.
[34mℹ[39m Use `all_of(COVARIATES_M3)` instead of `COVARIATES_M3` to silence this message.
[34mℹ[39m See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
[90mThis message is displayed once per session.[39m
Call:
lm(formula = currentDF[, PROTEIN] ~ 1, data = currentDF)
Coefficients:
(Intercept)
4
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.9759 -0.7033 -0.0034 0.6905 4.2713
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 7.740947 1.579448 4.901 1.68e-06 ***
currentDF[, TRAIT] -0.025743 0.034058 -0.756 0.4504
Age -0.004751 0.009140 -0.520 0.6037
Gendermale -0.272080 0.157730 -1.725 0.0857 .
Hypertension.compositeyes 0.037631 0.209430 0.180 0.8575
DiabetesStatusDiabetes -0.090890 0.182293 -0.499 0.6185
SmokerCurrentyes 0.081890 0.146903 0.557 0.5777
Med.Statin.LLDyes -0.249783 0.162381 -1.538 0.1252
Med.all.antiplateletyes -0.239031 0.281515 -0.849 0.3966
GFR_MDRD 0.004160 0.004033 1.031 0.3033
BMI -0.010546 0.018853 -0.559 0.5764
CAD_history 0.175663 0.150932 1.164 0.2456
Stroke_history 0.078636 0.144235 0.545 0.5861
Peripheral.interv -0.149698 0.168586 -0.888 0.3754
stenose50-70% -2.622359 1.182113 -2.218 0.0274 *
stenose70-90% -2.484979 1.121013 -2.217 0.0275 *
stenose90-99% -2.587512 1.120320 -2.310 0.0217 *
stenose100% (Occlusion) -3.253230 1.268663 -2.564 0.0109 *
LDL_final -0.144230 0.071090 -2.029 0.0435 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.093 on 259 degrees of freedom
Multiple R-squared: 0.06051, Adjusted R-squared: -0.004781
F-statistic: 0.9268 on 18 and 259 DF, p-value: 0.5466
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.025743
Standard error............: 0.034058
Odds ratio (effect size)..: 0.975
Lower 95% CI..............: 0.912
Upper 95% CI..............: 1.042
T-value...................: -0.75585
P-value...................: 0.4504262
R^2.......................: 0.060512
Adjusted r^2..............: -0.004781
Sample size of AE DB......: 2388
Sample size of model......: 278
Missing data %............: 88.35846
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ 1, data = currentDF)
Coefficients:
(Intercept)
4.02
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.0261 -0.6910 0.0053 0.6562 4.2703
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 8.045022 1.559939 5.157 4.94e-07 ***
currentDF[, TRAIT] 0.006083 0.044333 0.137 0.8910
Age -0.007760 0.008928 -0.869 0.3856
Gendermale -0.256524 0.155255 -1.652 0.0997 .
Hypertension.compositeyes -0.003596 0.198882 -0.018 0.9856
DiabetesStatusDiabetes -0.118621 0.178749 -0.664 0.5075
SmokerCurrentyes 0.002381 0.143389 0.017 0.9868
Med.Statin.LLDyes -0.219813 0.159597 -1.377 0.1696
Med.all.antiplateletyes -0.210099 0.279758 -0.751 0.4533
GFR_MDRD 0.003900 0.004023 0.969 0.3333
BMI -0.017825 0.018090 -0.985 0.3254
CAD_history 0.136209 0.149997 0.908 0.3647
Stroke_history 0.057146 0.141989 0.402 0.6877
Peripheral.interv -0.073426 0.169840 -0.432 0.6659
stenose50-70% -2.558450 1.175260 -2.177 0.0304 *
stenose70-90% -2.413938 1.114671 -2.166 0.0312 *
stenose90-99% -2.467474 1.112675 -2.218 0.0274 *
stenose100% (Occlusion) -3.172581 1.259270 -2.519 0.0123 *
LDL_final -0.119656 0.071964 -1.663 0.0976 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.086 on 263 degrees of freedom
Multiple R-squared: 0.05194, Adjusted R-squared: -0.01295
F-statistic: 0.8004 on 18 and 263 DF, p-value: 0.6994
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.006083
Standard error............: 0.044333
Odds ratio (effect size)..: 1.006
Lower 95% CI..............: 0.922
Upper 95% CI..............: 1.097
T-value...................: 0.137207
P-value...................: 0.8909723
R^2.......................: 0.051935
Adjusted r^2..............: -0.012951
Sample size of AE DB......: 2388
Sample size of model......: 282
Missing data %............: 88.19096
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ GFR_MDRD + LDL_final, data = currentDF)
Coefficients:
(Intercept) GFR_MDRD LDL_final
3.925179 0.005269 -0.093708
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.9394 -0.6969 -0.0003 0.6700 4.3763
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 8.186084 1.618862 5.057 8.14e-07 ***
currentDF[, TRAIT] -0.071900 0.102862 -0.699 0.4852
Age -0.009714 0.009121 -1.065 0.2879
Gendermale -0.207723 0.157206 -1.321 0.1876
Hypertension.compositeyes 0.032540 0.206556 0.158 0.8749
DiabetesStatusDiabetes -0.093555 0.187795 -0.498 0.6188
SmokerCurrentyes 0.027341 0.147137 0.186 0.8527
Med.Statin.LLDyes -0.210534 0.161866 -1.301 0.1945
Med.all.antiplateletyes -0.127005 0.297437 -0.427 0.6697
GFR_MDRD 0.004613 0.004119 1.120 0.2638
BMI -0.017017 0.018372 -0.926 0.3552
CAD_history 0.158145 0.153266 1.032 0.3031
Stroke_history 0.070817 0.143918 0.492 0.6231
Peripheral.interv -0.087139 0.171114 -0.509 0.6110
stenose50-70% -2.634075 1.189079 -2.215 0.0276 *
stenose70-90% -2.461712 1.128624 -2.181 0.0301 *
stenose90-99% -2.542068 1.126823 -2.256 0.0249 *
stenose100% (Occlusion) -2.745285 1.332360 -2.060 0.0404 *
LDL_final -0.139731 0.071674 -1.950 0.0523 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.096 on 256 degrees of freedom
Multiple R-squared: 0.05537, Adjusted R-squared: -0.01105
F-statistic: 0.8337 on 18 and 256 DF, p-value: 0.6596
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.0719
Standard error............: 0.102862
Odds ratio (effect size)..: 0.931
Lower 95% CI..............: 0.761
Upper 95% CI..............: 1.138
T-value...................: -0.698998
P-value...................: 0.4851877
R^2.......................: 0.055374
Adjusted r^2..............: -0.011045
Sample size of AE DB......: 2388
Sample size of model......: 275
Missing data %............: 88.48409
Analysis of MCP1_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.Statin.LLD + CAD_history,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
5.433871 0.052907 -0.008419 0.283822 -0.246632
Med.Statin.LLDyes CAD_history
-0.245394 0.148189
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3408 -0.5120 0.1051 0.5632 1.9179
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.575157 1.149922 5.718 2.42e-08 ***
currentDF[, TRAIT] 0.051202 0.024271 2.110 0.03565 *
Age -0.010344 0.006135 -1.686 0.09275 .
Gendermale 0.283093 0.108417 2.611 0.00944 **
Hypertension.compositeyes -0.233293 0.140032 -1.666 0.09667 .
DiabetesStatusDiabetes -0.052638 0.125203 -0.420 0.67445
SmokerCurrentyes -0.070866 0.100373 -0.706 0.48067
Med.Statin.LLDyes -0.200910 0.114627 -1.753 0.08058 .
Med.all.antiplateletyes 0.037672 0.198929 0.189 0.84992
GFR_MDRD -0.001374 0.002743 -0.501 0.61668
BMI -0.009776 0.012528 -0.780 0.43574
CAD_history 0.180157 0.106974 1.684 0.09311 .
Stroke_history 0.050938 0.100817 0.505 0.61372
Peripheral.interv -0.146160 0.121478 -1.203 0.22977
stenose50-70% -0.799688 0.914165 -0.875 0.38234
stenose70-90% -0.882827 0.875230 -1.009 0.31387
stenose90-99% -0.864213 0.875215 -0.987 0.32416
stenose100% (Occlusion) -1.846010 0.984886 -1.874 0.06177 .
LDL_final 0.059863 0.048325 1.239 0.21632
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8575 on 329 degrees of freedom
Multiple R-squared: 0.09616, Adjusted R-squared: 0.04671
F-statistic: 1.945 on 18 and 329 DF, p-value: 0.01237
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.051202
Standard error............: 0.024271
Odds ratio (effect size)..: 1.053
Lower 95% CI..............: 1.004
Upper 95% CI..............: 1.104
T-value...................: 2.10957
P-value...................: 0.03565039
R^2.......................: 0.096164
Adjusted r^2..............: 0.046714
Sample size of AE DB......: 2388
Sample size of model......: 348
Missing data %............: 85.42714
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + CAD_history + LDL_final,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
4.91085 -0.11828 -0.01118 0.31926 -0.20731
CAD_history LDL_final
0.20467 0.14057
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2139 -0.5490 0.0567 0.5531 1.8562
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.577965 1.115427 5.897 9.08e-09 ***
currentDF[, TRAIT] -0.115466 0.029928 -3.858 0.000137 ***
Age -0.014634 0.005906 -2.478 0.013716 *
Gendermale 0.293683 0.104952 2.798 0.005437 **
Hypertension.compositeyes -0.219243 0.132334 -1.657 0.098514 .
DiabetesStatusDiabetes -0.037367 0.121647 -0.307 0.758903
SmokerCurrentyes -0.061230 0.096647 -0.634 0.526814
Med.Statin.LLDyes -0.135829 0.110810 -1.226 0.221149
Med.all.antiplateletyes 0.015496 0.193719 0.080 0.936290
GFR_MDRD -0.001360 0.002667 -0.510 0.610531
BMI -0.006503 0.011921 -0.546 0.585774
CAD_history 0.229533 0.104305 2.201 0.028450 *
Stroke_history 0.072505 0.097399 0.744 0.457152
Peripheral.interv -0.141222 0.119345 -1.183 0.237528
stenose50-70% -0.850207 0.890508 -0.955 0.340400
stenose70-90% -0.964299 0.852952 -1.131 0.259061
stenose90-99% -0.945819 0.852072 -1.110 0.267791
stenose100% (Occlusion) -1.982611 0.958701 -2.068 0.039410 *
LDL_final 0.114283 0.048010 2.380 0.017856 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8357 on 333 degrees of freedom
Multiple R-squared: 0.1366, Adjusted R-squared: 0.0899
F-statistic: 2.926 on 18 and 333 DF, p-value: 7.408e-05
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.115466
Standard error............: 0.029928
Odds ratio (effect size)..: 0.891
Lower 95% CI..............: 0.84
Upper 95% CI..............: 0.945
T-value...................: -3.858177
P-value...................: 0.0001371672
R^2.......................: 0.136572
Adjusted r^2..............: 0.0899
Sample size of AE DB......: 2388
Sample size of model......: 352
Missing data %............: 85.25963
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Gender + Hypertension.composite +
Med.Statin.LLD + CAD_history, data = currentDF)
Coefficients:
(Intercept) Age Gendermale Hypertension.compositeyes Med.Statin.LLDyes
5.411787 -0.009824 0.346534 -0.231090 -0.247329
CAD_history
0.171992
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3025 -0.5216 0.0801 0.5662 1.9158
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.5990903 1.1774762 5.604 4.44e-08 ***
currentDF[, TRAIT] -0.0452791 0.0674970 -0.671 0.50280
Age -0.0109509 0.0060958 -1.796 0.07334 .
Gendermale 0.3402105 0.1089102 3.124 0.00195 **
Hypertension.compositeyes -0.2187995 0.1395317 -1.568 0.11783
DiabetesStatusDiabetes -0.0149288 0.1275963 -0.117 0.90693
SmokerCurrentyes -0.0647504 0.1007582 -0.643 0.52091
Med.Statin.LLDyes -0.2091982 0.1151857 -1.816 0.07026 .
Med.all.antiplateletyes 0.0262592 0.2037972 0.129 0.89756
GFR_MDRD -0.0004959 0.0027971 -0.177 0.85939
BMI -0.0081593 0.0124271 -0.657 0.51192
CAD_history 0.1953042 0.1090301 1.791 0.07417 .
Stroke_history 0.0600427 0.1009723 0.595 0.55249
Peripheral.interv -0.1222098 0.1239640 -0.986 0.32494
stenose50-70% -0.9307527 0.9190688 -1.013 0.31195
stenose70-90% -0.9661136 0.8811480 -1.096 0.27370
stenose90-99% -0.9411412 0.8803146 -1.069 0.28581
stenose100% (Occlusion) -1.9654537 0.9917186 -1.982 0.04833 *
LDL_final 0.0510253 0.0491298 1.039 0.29977
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8609 on 327 degrees of freedom
Multiple R-squared: 0.09072, Adjusted R-squared: 0.04067
F-statistic: 1.813 on 18 and 327 DF, p-value: 0.0229
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.045279
Standard error............: 0.067497
Odds ratio (effect size)..: 0.956
Lower 95% CI..............: 0.837
Upper 95% CI..............: 1.091
T-value...................: -0.670831
P-value...................: 0.5028019
R^2.......................: 0.090722
Adjusted r^2..............: 0.04067
Sample size of AE DB......: 2388
Sample size of model......: 346
Missing data %............: 85.51089
Analysis of IL6_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + SmokerCurrent +
BMI + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] SmokerCurrentyes BMI Stroke_history
-2.43206 0.09645 0.21278 -0.02995 0.32429
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.8604 -0.9047 0.0230 0.8359 4.8386
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.557747 1.218463 -1.278 0.20159
currentDF[, TRAIT] 0.094228 0.033001 2.855 0.00445 **
Age -0.005006 0.007368 -0.679 0.49711
Gendermale -0.046955 0.133198 -0.353 0.72458
Hypertension.compositeyes -0.122887 0.185203 -0.664 0.50725
DiabetesStatusDiabetes -0.095874 0.149517 -0.641 0.52163
SmokerCurrentyes 0.199220 0.129973 1.533 0.12586
Med.Statin.LLDyes -0.133702 0.151115 -0.885 0.37664
Med.all.antiplateletyes -0.032443 0.210849 -0.154 0.87777
GFR_MDRD -0.005327 0.003190 -1.670 0.09546 .
BMI -0.033230 0.016260 -2.044 0.04143 *
CAD_history -0.080693 0.137498 -0.587 0.55752
Stroke_history 0.294319 0.129450 2.274 0.02335 *
Peripheral.interv -0.073667 0.157291 -0.468 0.63971
stenose50-70% 0.043122 0.896119 0.048 0.96164
stenose70-90% 0.421831 0.854836 0.493 0.62187
stenose90-99% 0.194343 0.853986 0.228 0.82006
stenose100% (Occlusion) 0.199915 1.046672 0.191 0.84859
stenose70-99% -1.262844 1.353912 -0.933 0.35134
LDL_final -0.002720 0.060284 -0.045 0.96403
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.46 on 590 degrees of freedom
Multiple R-squared: 0.05558, Adjusted R-squared: 0.02517
F-statistic: 1.828 on 19 and 590 DF, p-value: 0.01729
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.094228
Standard error............: 0.033001
Odds ratio (effect size)..: 1.099
Lower 95% CI..............: 1.03
Upper 95% CI..............: 1.172
T-value...................: 2.85531
P-value...................: 0.004450697
R^2.......................: 0.055584
Adjusted r^2..............: 0.025171
Sample size of AE DB......: 2388
Sample size of model......: 610
Missing data %............: 74.45561
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + SmokerCurrent +
BMI + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] SmokerCurrentyes BMI Stroke_history
-2.70073 -0.16624 0.24106 -0.02353 0.27785
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.5367 -0.9049 0.0226 0.8649 4.3823
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.655561 1.203986 -1.375 0.1696
currentDF[, TRAIT] -0.172293 0.041530 -4.149 3.83e-05 ***
Age -0.010475 0.007294 -1.436 0.1515
Gendermale -0.080710 0.132821 -0.608 0.5436
Hypertension.compositeyes -0.059646 0.180561 -0.330 0.7413
DiabetesStatusDiabetes -0.078541 0.148335 -0.529 0.5967
SmokerCurrentyes 0.195491 0.128526 1.521 0.1288
Med.Statin.LLDyes -0.128654 0.148731 -0.865 0.3874
Med.all.antiplateletyes -0.047780 0.207507 -0.230 0.8180
GFR_MDRD -0.004567 0.003173 -1.440 0.1505
BMI -0.027125 0.015913 -1.705 0.0888 .
CAD_history -0.079941 0.136513 -0.586 0.5584
Stroke_history 0.268793 0.128036 2.099 0.0362 *
Peripheral.interv -0.051546 0.157517 -0.327 0.7436
stenose50-70% 0.064469 0.888583 0.073 0.9422
stenose70-90% 0.480430 0.847963 0.567 0.5712
stenose90-99% 0.261853 0.846882 0.309 0.7573
stenose100% (Occlusion) 0.357215 1.010357 0.354 0.7238
stenose70-99% -0.949383 1.343326 -0.707 0.4800
LDL_final 0.021597 0.060074 0.360 0.7193
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.448 on 593 degrees of freedom
Multiple R-squared: 0.06707, Adjusted R-squared: 0.03717
F-statistic: 2.244 on 19 and 593 DF, p-value: 0.001915
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.172293
Standard error............: 0.04153
Odds ratio (effect size)..: 0.842
Lower 95% CI..............: 0.776
Upper 95% CI..............: 0.913
T-value...................: -4.148622
P-value...................: 3.834173e-05
R^2.......................: 0.067066
Adjusted r^2..............: 0.037174
Sample size of AE DB......: 2388
Sample size of model......: 613
Missing data %............: 74.32998
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ SmokerCurrent + GFR_MDRD +
BMI + Stroke_history, data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes GFR_MDRD BMI Stroke_history
-2.344005 0.259757 -0.004498 -0.028325 0.352416
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.7750 -0.8639 0.0090 0.8596 4.6815
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.790409 1.260654 -1.420 0.1561
currentDF[, TRAIT] -0.066015 0.076053 -0.868 0.3858
Age -0.003151 0.007664 -0.411 0.6812
Gendermale -0.009092 0.138905 -0.065 0.9478
Hypertension.compositeyes -0.118670 0.194865 -0.609 0.5428
DiabetesStatusDiabetes -0.044101 0.160394 -0.275 0.7835
SmokerCurrentyes 0.234773 0.136162 1.724 0.0852 .
Med.Statin.LLDyes -0.119714 0.158225 -0.757 0.4496
Med.all.antiplateletyes -0.042429 0.229876 -0.185 0.8536
GFR_MDRD -0.005754 0.003392 -1.696 0.0904 .
BMI -0.029793 0.016765 -1.777 0.0761 .
CAD_history -0.091576 0.146623 -0.625 0.5325
Stroke_history 0.324994 0.136565 2.380 0.0177 *
Peripheral.interv -0.092246 0.169383 -0.545 0.5863
stenose50-70% -0.074196 0.908935 -0.082 0.9350
stenose70-90% 0.295609 0.863719 0.342 0.7323
stenose90-99% 0.102435 0.862536 0.119 0.9055
stenose100% (Occlusion) 0.128583 1.056678 0.122 0.9032
stenose70-99% -1.344224 1.735406 -0.775 0.4389
LDL_final 0.016792 0.065246 0.257 0.7970
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.471 on 542 degrees of freedom
Multiple R-squared: 0.04595, Adjusted R-squared: 0.01251
F-statistic: 1.374 on 19 and 542 DF, p-value: 0.1332
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.066015
Standard error............: 0.076053
Odds ratio (effect size)..: 0.936
Lower 95% CI..............: 0.806
Upper 95% CI..............: 1.087
T-value...................: -0.868014
P-value...................: 0.3857707
R^2.......................: 0.045953
Adjusted r^2..............: 0.012509
Sample size of AE DB......: 2388
Sample size of model......: 562
Missing data %............: 76.46566
Analysis of IL6R_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + GFR_MDRD + Peripheral.interv,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
-0.758425 0.061200 -0.007761 -0.173464 -0.263146
GFR_MDRD Peripheral.interv
-0.004980 0.315321
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.5997 -0.4916 0.1033 0.6403 2.7135
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.282532 1.033781 -0.273 0.78472
currentDF[, TRAIT] 0.064192 0.024826 2.586 0.00996 **
Age -0.007926 0.005731 -1.383 0.16718
Gendermale -0.070614 0.101607 -0.695 0.48735
Hypertension.compositeyes 0.024561 0.138756 0.177 0.85956
DiabetesStatusDiabetes -0.167687 0.115198 -1.456 0.14603
SmokerCurrentyes 0.006786 0.099727 0.068 0.94577
Med.Statin.LLDyes -0.258587 0.116721 -2.215 0.02712 *
Med.all.antiplateletyes -0.161527 0.163593 -0.987 0.32387
GFR_MDRD -0.004904 0.002499 -1.962 0.05024 .
BMI -0.017520 0.012739 -1.375 0.16955
CAD_history -0.055607 0.105034 -0.529 0.59672
Stroke_history 0.056941 0.099170 0.574 0.56607
Peripheral.interv 0.298235 0.120881 2.467 0.01390 *
stenose50-70% -0.144222 0.822263 -0.175 0.86083
stenose70-90% 0.098077 0.795684 0.123 0.90194
stenose90-99% 0.174778 0.794935 0.220 0.82605
stenose100% (Occlusion) -0.277654 0.917836 -0.303 0.76237
stenose70-99% -1.386821 1.125420 -1.232 0.21834
LDL_final 0.016695 0.046789 0.357 0.72136
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.109 on 584 degrees of freedom
Multiple R-squared: 0.06059, Adjusted R-squared: 0.03002
F-statistic: 1.982 on 19 and 584 DF, p-value: 0.007875
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.064192
Standard error............: 0.024826
Odds ratio (effect size)..: 1.066
Lower 95% CI..............: 1.016
Upper 95% CI..............: 1.119
T-value...................: 2.585637
P-value...................: 0.009960997
R^2.......................: 0.060586
Adjusted r^2..............: 0.030023
Sample size of AE DB......: 2388
Sample size of model......: 604
Missing data %............: 74.70687
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + DiabetesStatus + Med.Statin.LLD +
GFR_MDRD + Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) Age DiabetesStatusDiabetes Med.Statin.LLDyes GFR_MDRD
-0.645427 -0.010345 -0.159295 -0.283019 -0.004953
Peripheral.interv
0.307515
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.6508 -0.4774 0.1193 0.6125 2.7379
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.571572 1.028428 -0.556 0.5786
currentDF[, TRAIT] 0.028425 0.032160 0.884 0.3771
Age -0.009415 0.005714 -1.648 0.0999 .
Gendermale -0.009854 0.101751 -0.097 0.9229
Hypertension.compositeyes 0.047185 0.136267 0.346 0.7293
DiabetesStatusDiabetes -0.159308 0.115018 -1.385 0.1666
SmokerCurrentyes 0.018075 0.099297 0.182 0.8556
Med.Statin.LLDyes -0.265016 0.115598 -2.293 0.0222 *
Med.all.antiplateletyes -0.144961 0.162054 -0.895 0.3714
GFR_MDRD -0.004824 0.002503 -1.928 0.0544 .
BMI -0.010965 0.012533 -0.875 0.3820
CAD_history -0.071840 0.105008 -0.684 0.4942
Stroke_history 0.082184 0.098712 0.833 0.4054
Peripheral.interv 0.299575 0.121917 2.457 0.0143 *
stenose50-70% -0.129023 0.821241 -0.157 0.8752
stenose70-90% 0.126408 0.794746 0.159 0.8737
stenose90-99% 0.210391 0.793876 0.265 0.7911
stenose100% (Occlusion) -0.293635 0.899684 -0.326 0.7443
stenose70-99% -1.262022 1.124404 -1.122 0.2622
LDL_final 0.023878 0.046958 0.508 0.6113
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.107 on 587 degrees of freedom
Multiple R-squared: 0.05271, Adjusted R-squared: 0.02205
F-statistic: 1.719 on 19 and 587 DF, p-value: 0.02935
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.028425
Standard error............: 0.03216
Odds ratio (effect size)..: 1.029
Lower 95% CI..............: 0.966
Upper 95% CI..............: 1.096
T-value...................: 0.88386
P-value...................: 0.3771337
R^2.......................: 0.052709
Adjusted r^2..............: 0.022047
Sample size of AE DB......: 2388
Sample size of model......: 607
Missing data %............: 74.58124
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Med.Statin.LLD + GFR_MDRD +
Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) Age Med.Statin.LLDyes GFR_MDRD Peripheral.interv
-0.623263 -0.010168 -0.321089 -0.005272 0.269837
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.6588 -0.4881 0.1029 0.6320 2.6591
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.409939 1.076240 -0.381 0.7034
currentDF[, TRAIT] 0.051036 0.060112 0.849 0.3963
Age -0.010250 0.006021 -1.702 0.0892 .
Gendermale -0.023004 0.107103 -0.215 0.8300
Hypertension.compositeyes -0.013676 0.148086 -0.092 0.9265
DiabetesStatusDiabetes -0.139140 0.125480 -1.109 0.2680
SmokerCurrentyes -0.031038 0.105613 -0.294 0.7690
Med.Statin.LLDyes -0.289430 0.123728 -2.339 0.0197 *
Med.all.antiplateletyes -0.128154 0.180604 -0.710 0.4783
GFR_MDRD -0.005528 0.002700 -2.048 0.0411 *
BMI -0.014719 0.013397 -1.099 0.2724
CAD_history -0.068964 0.113307 -0.609 0.5430
Stroke_history 0.043365 0.105700 0.410 0.6818
Peripheral.interv 0.268876 0.131623 2.043 0.0416 *
stenose50-70% -0.129415 0.840865 -0.154 0.8777
stenose70-90% 0.154123 0.810665 0.190 0.8493
stenose90-99% 0.225741 0.809735 0.279 0.7805
stenose100% (Occlusion) -0.238605 0.935267 -0.255 0.7987
stenose70-99% -1.686131 1.410283 -1.196 0.2324
LDL_final 0.034234 0.051289 0.667 0.5048
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.128 on 534 degrees of freedom
Multiple R-squared: 0.05257, Adjusted R-squared: 0.01886
F-statistic: 1.559 on 19 and 534 DF, p-value: 0.06155
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: 0.051036
Standard error............: 0.060112
Odds ratio (effect size)..: 1.052
Lower 95% CI..............: 0.935
Upper 95% CI..............: 1.184
T-value...................: 0.849019
P-value...................: 0.396251
R^2.......................: 0.052566
Adjusted r^2..............: 0.018856
Sample size of AE DB......: 2388
Sample size of model......: 554
Missing data %............: 76.80067
Analysis of MCP1_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender + Hypertension.composite +
Stroke_history + LDL_final, data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes Stroke_history LDL_final
-1.5707 0.1726 -0.3481 0.3069 0.1504
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.0660 -0.7930 0.0067 0.8502 3.5632
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.929404 1.105948 -0.840 0.40103
currentDF[, TRAIT] -0.006916 0.029359 -0.236 0.81385
Age -0.003860 0.006678 -0.578 0.56345
Gendermale 0.177357 0.119206 1.488 0.13732
Hypertension.compositeyes -0.333981 0.164211 -2.034 0.04240 *
DiabetesStatusDiabetes -0.088384 0.134409 -0.658 0.51106
SmokerCurrentyes -0.072973 0.116824 -0.625 0.53244
Med.Statin.LLDyes -0.183941 0.136585 -1.347 0.17858
Med.all.antiplateletyes -0.177579 0.188679 -0.941 0.34700
GFR_MDRD -0.003332 0.002879 -1.157 0.24760
BMI -0.011705 0.014568 -0.803 0.42202
CAD_history 0.075332 0.122823 0.613 0.53988
Stroke_history 0.317516 0.116987 2.714 0.00683 **
Peripheral.interv 0.064670 0.141725 0.456 0.64833
stenose50-70% 0.194101 0.815272 0.238 0.81190
stenose70-90% 0.607022 0.777643 0.781 0.43535
stenose90-99% 0.447575 0.776967 0.576 0.56479
stenose100% (Occlusion) -0.665847 0.952000 -0.699 0.48456
stenose70-99% 0.775391 1.231567 0.630 0.52920
LDL_final 0.135784 0.054445 2.494 0.01290 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.328 on 606 degrees of freedom
Multiple R-squared: 0.05948, Adjusted R-squared: 0.02999
F-statistic: 2.017 on 19 and 606 DF, p-value: 0.006522
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.006916
Standard error............: 0.029359
Odds ratio (effect size)..: 0.993
Lower 95% CI..............: 0.938
Upper 95% CI..............: 1.052
T-value...................: -0.235562
P-value...................: 0.8138524
R^2.......................: 0.059478
Adjusted r^2..............: 0.029989
Sample size of AE DB......: 2388
Sample size of model......: 626
Missing data %............: 73.7856
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
Stroke_history + LDL_final, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes Stroke_history LDL_final
-1.4877 -0.1145 -0.3259 0.2511 0.1689
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-4.8298 -0.7851 -0.0041 0.8556 3.5190
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.959118 1.098926 -0.873 0.38313
currentDF[, TRAIT] -0.105998 0.037524 -2.825 0.00489 **
Age -0.005301 0.006643 -0.798 0.42518
Gendermale 0.146474 0.119488 1.226 0.22073
Hypertension.compositeyes -0.310950 0.161119 -1.930 0.05408 .
DiabetesStatusDiabetes -0.126107 0.134058 -0.941 0.34724
SmokerCurrentyes -0.073389 0.116179 -0.632 0.52783
Med.Statin.LLDyes -0.180246 0.135211 -1.333 0.18301
Med.all.antiplateletyes -0.197609 0.186793 -1.058 0.29052
GFR_MDRD -0.002675 0.002879 -0.929 0.35322
BMI -0.010517 0.014344 -0.733 0.46372
CAD_history 0.067123 0.122608 0.547 0.58426
Stroke_history 0.276835 0.116332 2.380 0.01763 *
Peripheral.interv 0.115307 0.142703 0.808 0.41940
stenose50-70% 0.224709 0.812884 0.276 0.78231
stenose70-90% 0.642432 0.775621 0.828 0.40784
stenose90-99% 0.513547 0.774793 0.663 0.50770
stenose100% (Occlusion) -0.304064 0.924098 -0.329 0.74224
stenose70-99% 0.907983 1.228759 0.739 0.46023
LDL_final 0.154355 0.054558 2.829 0.00482 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.324 on 609 degrees of freedom
Multiple R-squared: 0.07024, Adjusted R-squared: 0.04124
F-statistic: 2.422 on 19 and 609 DF, p-value: 0.0006923
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.105998
Standard error............: 0.037524
Odds ratio (effect size)..: 0.899
Lower 95% CI..............: 0.836
Upper 95% CI..............: 0.968
T-value...................: -2.824808
P-value...................: 0.004885846
R^2.......................: 0.070244
Adjusted r^2..............: 0.041237
Sample size of AE DB......: 2388
Sample size of model......: 629
Missing data %............: 73.65997
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Gender +
Hypertension.composite + Stroke_history + LDL_final, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Gendermale Hypertension.compositeyes Stroke_history
-1.5191 -0.1567 0.2528 -0.2838 0.3058
LDL_final
0.1790
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-4.8851 -0.7703 0.0065 0.8631 3.5802
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.523924 1.144057 -0.458 0.6472
currentDF[, TRAIT] -0.150564 0.068731 -2.191 0.0289 *
Age -0.004199 0.006947 -0.604 0.5458
Gendermale 0.247989 0.124551 1.991 0.0470 *
Hypertension.compositeyes -0.260669 0.174608 -1.493 0.1360
DiabetesStatusDiabetes -0.080503 0.144545 -0.557 0.5778
SmokerCurrentyes -0.038813 0.122667 -0.316 0.7518
Med.Statin.LLDyes -0.172549 0.143615 -1.201 0.2301
Med.all.antiplateletyes -0.151041 0.205188 -0.736 0.4620
GFR_MDRD -0.003511 0.003061 -1.147 0.2519
BMI -0.018790 0.015167 -1.239 0.2159
CAD_history 0.081761 0.131532 0.622 0.5345
Stroke_history 0.312108 0.123405 2.529 0.0117 *
Peripheral.interv 0.010985 0.152518 0.072 0.9426
stenose50-70% -0.056253 0.827227 -0.068 0.9458
stenose70-90% 0.437868 0.785986 0.557 0.5777
stenose90-99% 0.309260 0.785037 0.394 0.6938
stenose100% (Occlusion) -0.769104 0.961372 -0.800 0.4240
stenose70-99% 0.904530 1.579083 0.573 0.5670
LDL_final 0.159352 0.058973 2.702 0.0071 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.339 on 555 degrees of freedom
Multiple R-squared: 0.07268, Adjusted R-squared: 0.04094
F-statistic: 2.29 on 19 and 555 DF, p-value: 0.001509
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.150564
Standard error............: 0.068731
Odds ratio (effect size)..: 0.86
Lower 95% CI..............: 0.752
Upper 95% CI..............: 0.984
T-value...................: -2.190616
P-value...................: 0.0288948
R^2.......................: 0.072685
Adjusted r^2..............: 0.040939
Sample size of AE DB......: 2388
Sample size of model......: 575
Missing data %............: 75.92127 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Multi.Protein.PlaquePhenotypes.MODEL3.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M3) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + LDL_final,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes
-0.4964 0.8687
Degrees of Freedom: 286 Total (i.e. Null); 285 Residual
Null Deviance: 393.1
Residual Deviance: 387.1 AIC: 391.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8203 -1.2203 0.7912 1.0267 1.6584
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -14.286196 882.746445 -0.016 0.9871
currentDF[, PROTEIN] 0.127711 0.117619 1.086 0.2776
Age -0.007405 0.017177 -0.431 0.6664
Gendermale -0.107807 0.294894 -0.366 0.7147
Hypertension.compositeyes 0.943344 0.388474 2.428 0.0152 *
DiabetesStatusDiabetes -0.282098 0.340209 -0.829 0.4070
SmokerCurrentyes -0.158885 0.271685 -0.585 0.5587
Med.Statin.LLDyes -0.387047 0.306268 -1.264 0.2063
Med.all.antiplateletyes 0.693695 0.541645 1.281 0.2003
GFR_MDRD -0.009341 0.007815 -1.195 0.2320
BMI -0.009798 0.034417 -0.285 0.7759
CAD_history 0.267935 0.287363 0.932 0.3511
Stroke_history -0.132062 0.271241 -0.487 0.6263
Peripheral.interv -0.396651 0.313421 -1.266 0.2057
stenose50-70% 15.622260 882.743866 0.018 0.9859
stenose70-90% 15.078260 882.743546 0.017 0.9864
stenose90-99% 14.713152 882.743540 0.017 0.9867
stenose100% (Occlusion) 16.300162 882.744474 0.018 0.9853
LDL_final -0.134622 0.134950 -0.998 0.3185
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 393.08 on 286 degrees of freedom
Residual deviance: 372.59 on 268 degrees of freedom
AIC: 410.59
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.127711
Standard error............: 0.117619
Odds ratio (effect size)..: 1.136
Lower 95% CI..............: 0.902
Upper 95% CI..............: 1.431
Z-value...................: 1.085796
P-value...................: 0.2775691
Hosmer and Lemeshow r^2...: 0.052141
Cox and Snell r^2.........: 0.068924
Nagelkerke's pseudo r^2...: 0.092416
Sample size of AE DB......: 2388
Sample size of model......: 287
Missing data %............: 87.98158
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Med.all.antiplatelet +
GFR_MDRD + stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Med.all.antiplateletyes GFR_MDRD stenose50-70% stenose70-90%
17.50951 0.82920 -0.01174 0.26966 -16.02111
stenose90-99% stenose100% (Occlusion)
-16.41110 0.85461
Degrees of Freedom: 285 Total (i.e. Null); 279 Residual
Null Deviance: 304.1
Residual Deviance: 291.8 AIC: 305.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.00491 0.00023 0.63115 0.76535 1.18759
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.755e+01 3.956e+03 0.004 0.996
currentDF[, PROTEIN] 6.100e-02 1.397e-01 0.437 0.662
Age 8.498e-03 2.038e-02 0.417 0.677
Gendermale -2.791e-01 3.615e-01 -0.772 0.440
Hypertension.compositeyes 4.528e-01 4.345e-01 1.042 0.297
DiabetesStatusDiabetes 4.050e-01 4.292e-01 0.944 0.345
SmokerCurrentyes 3.410e-01 3.259e-01 1.046 0.295
Med.Statin.LLDyes -2.690e-01 3.648e-01 -0.737 0.461
Med.all.antiplateletyes 8.442e-01 5.714e-01 1.477 0.140
GFR_MDRD -1.028e-02 9.278e-03 -1.108 0.268
BMI -3.652e-02 4.094e-02 -0.892 0.372
CAD_history -1.245e-02 3.377e-01 -0.037 0.971
Stroke_history 2.234e-01 3.336e-01 0.670 0.503
Peripheral.interv -2.317e-01 3.598e-01 -0.644 0.519
stenose50-70% 1.679e-01 4.163e+03 0.000 1.000
stenose70-90% -1.614e+01 3.956e+03 -0.004 0.997
stenose90-99% -1.661e+01 3.956e+03 -0.004 0.997
stenose100% (Occlusion) 6.788e-01 4.417e+03 0.000 1.000
LDL_final -1.338e-02 1.608e-01 -0.083 0.934
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 304.10 on 285 degrees of freedom
Residual deviance: 285.69 on 267 degrees of freedom
AIC: 323.69
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.060996
Standard error............: 0.139671
Odds ratio (effect size)..: 1.063
Lower 95% CI..............: 0.808
Upper 95% CI..............: 1.398
Z-value...................: 0.43671
P-value...................: 0.6623216
Hosmer and Lemeshow r^2...: 0.060544
Cox and Snell r^2.........: 0.062348
Nagelkerke's pseudo r^2...: 0.095233
Sample size of AE DB......: 2388
Sample size of model......: 286
Missing data %............: 88.02345
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes
0.1798 0.6324 1.0185
Degrees of Freedom: 286 Total (i.e. Null); 284 Residual
Null Deviance: 277.5
Residual Deviance: 267.3 AIC: 273.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4640 0.3869 0.5163 0.6631 1.2321
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.331e+01 2.400e+03 0.006 0.9956
currentDF[, PROTEIN] 5.848e-02 1.460e-01 0.401 0.6887
Age -6.607e-03 2.259e-02 -0.292 0.7699
Gendermale 8.909e-01 3.638e-01 2.449 0.0143 *
Hypertension.compositeyes 1.129e+00 4.236e-01 2.665 0.0077 **
DiabetesStatusDiabetes -1.347e-01 4.364e-01 -0.309 0.7577
SmokerCurrentyes 3.119e-01 3.609e-01 0.864 0.3875
Med.Statin.LLDyes 7.371e-02 3.929e-01 0.188 0.8512
Med.all.antiplateletyes 6.757e-01 6.391e-01 1.057 0.2904
GFR_MDRD -8.549e-03 1.040e-02 -0.822 0.4111
BMI 3.147e-02 4.539e-02 0.693 0.4881
CAD_history -2.786e-02 3.702e-01 -0.075 0.9400
Stroke_history 2.389e-01 3.632e-01 0.658 0.5107
Peripheral.interv -3.988e-01 3.797e-01 -1.050 0.2937
stenose50-70% -1.608e+01 2.400e+03 -0.007 0.9947
stenose70-90% -1.460e+01 2.400e+03 -0.006 0.9951
stenose90-99% -1.495e+01 2.400e+03 -0.006 0.9950
stenose100% (Occlusion) 9.700e-01 2.666e+03 0.000 0.9997
LDL_final 2.326e-01 1.886e-01 1.233 0.2176
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 277.55 on 286 degrees of freedom
Residual deviance: 254.25 on 268 degrees of freedom
AIC: 292.25
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.058484
Standard error............: 0.146006
Odds ratio (effect size)..: 1.06
Lower 95% CI..............: 0.796
Upper 95% CI..............: 1.412
Z-value...................: 0.400559
P-value...................: 0.6887448
Hosmer and Lemeshow r^2...: 0.083927
Cox and Snell r^2.........: 0.077957
Nagelkerke's pseudo r^2...: 0.125777
Sample size of AE DB......: 2388
Sample size of model......: 287
Missing data %............: 87.98158
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Hypertension.composite +
DiabetesStatus, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age Hypertension.compositeyes DiabetesStatusDiabetes
-1.60096 0.03481 0.61722 -0.58861
Degrees of Freedom: 286 Total (i.e. Null); 283 Residual
Null Deviance: 323.3
Residual Deviance: 313.4 AIC: 321.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9750 -0.5510 0.6402 0.7877 1.2400
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 11.218363 882.747304 0.013 0.9899
currentDF[, PROTEIN] -0.088057 0.127517 -0.691 0.4898
Age 0.034226 0.019081 1.794 0.0729 .
Gendermale 0.371138 0.322752 1.150 0.2502
Hypertension.compositeyes 0.644421 0.400128 1.611 0.1073
DiabetesStatusDiabetes -0.578214 0.362096 -1.597 0.1103
SmokerCurrentyes 0.176265 0.309514 0.569 0.5690
Med.Statin.LLDyes 0.045481 0.344011 0.132 0.8948
Med.all.antiplateletyes -0.109971 0.637921 -0.172 0.8631
GFR_MDRD -0.002540 0.008826 -0.288 0.7735
BMI 0.007721 0.038101 0.203 0.8394
CAD_history 0.066670 0.328960 0.203 0.8394
Stroke_history 0.118372 0.311575 0.380 0.7040
Peripheral.interv 0.143803 0.361519 0.398 0.6908
stenose50-70% -12.563912 882.744016 -0.014 0.9886
stenose70-90% -12.969217 882.743594 -0.015 0.9883
stenose90-99% -13.023753 882.743587 -0.015 0.9882
stenose100% (Occlusion) -12.810939 882.744556 -0.015 0.9884
LDL_final 0.054494 0.155443 0.351 0.7259
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 323.33 on 286 degrees of freedom
Residual deviance: 310.07 on 268 degrees of freedom
AIC: 348.07
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: IPH
Effect size...............: -0.088057
Standard error............: 0.127517
Odds ratio (effect size)..: 0.916
Lower 95% CI..............: 0.713
Upper 95% CI..............: 1.176
Z-value...................: -0.69055
P-value...................: 0.4898483
Hosmer and Lemeshow r^2...: 0.041014
Cox and Snell r^2.........: 0.045154
Nagelkerke's pseudo r^2...: 0.06681
Sample size of AE DB......: 2388
Sample size of model......: 287
Missing data %............: 87.98158
Analysis of MCP1_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
DiabetesStatus + Stroke_history + Peripheral.interv + LDL_final,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes DiabetesStatusDiabetes Stroke_history Peripheral.interv
0.6107 0.6170 -0.5058 -0.3380 -0.5331
LDL_final
-0.1784
Degrees of Freedom: 356 Total (i.e. Null); 351 Residual
Null Deviance: 487
Residual Deviance: 473 AIC: 485
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9077 -1.1891 0.8111 1.0314 1.6747
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -13.508653 535.415008 -0.025 0.9799
currentDF[, PROTEIN] -0.117467 0.133102 -0.883 0.3775
Age 0.011647 0.014663 0.794 0.4270
Gendermale 0.050964 0.261515 0.195 0.8455
Hypertension.compositeyes 0.633766 0.327723 1.934 0.0531 .
DiabetesStatusDiabetes -0.551528 0.299781 -1.840 0.0658 .
SmokerCurrentyes 0.228471 0.242198 0.943 0.3455
Med.Statin.LLDyes -0.370960 0.278127 -1.334 0.1823
Med.all.antiplateletyes 0.476326 0.480376 0.992 0.3214
GFR_MDRD -0.004611 0.006700 -0.688 0.4914
BMI 0.017891 0.029667 0.603 0.5465
CAD_history 0.054534 0.260587 0.209 0.8342
Stroke_history -0.372281 0.242884 -1.533 0.1253
Peripheral.interv -0.502538 0.290451 -1.730 0.0836 .
stenose50-70% 14.016330 535.411739 0.026 0.9791
stenose70-90% 13.744409 535.411344 0.026 0.9795
stenose90-99% 13.371687 535.411338 0.025 0.9801
stenose100% (Occlusion) 14.603558 535.412918 0.027 0.9782
LDL_final -0.215662 0.117549 -1.835 0.0666 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 487.01 on 356 degrees of freedom
Residual deviance: 463.02 on 338 degrees of freedom
AIC: 501.02
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.117467
Standard error............: 0.133102
Odds ratio (effect size)..: 0.889
Lower 95% CI..............: 0.685
Upper 95% CI..............: 1.154
Z-value...................: -0.88253
P-value...................: 0.3774901
Hosmer and Lemeshow r^2...: 0.049252
Cox and Snell r^2.........: 0.064981
Nagelkerke's pseudo r^2...: 0.087292
Sample size of AE DB......: 2388
Sample size of model......: 357
Missing data %............: 85.05025
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] stenose50-70% stenose70-90% stenose90-99%
21.5615 -0.7445 -0.3016 -16.3553 -16.8403
stenose100% (Occlusion)
-1.0187
Degrees of Freedom: 355 Total (i.e. Null); 350 Residual
Null Deviance: 361.2
Residual Deviance: 331.1 AIC: 343.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5050 0.0963 0.5487 0.7158 1.3987
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.073e+01 3.956e+03 0.005 0.996
currentDF[, PROTEIN] -7.579e-01 1.895e-01 -4.000 6.33e-05 ***
Age 8.898e-03 1.858e-02 0.479 0.632
Gendermale -1.202e-01 3.466e-01 -0.347 0.729
Hypertension.compositeyes 3.705e-01 3.935e-01 0.942 0.346
DiabetesStatusDiabetes 3.649e-01 4.067e-01 0.897 0.370
SmokerCurrentyes 3.815e-01 3.075e-01 1.241 0.215
Med.Statin.LLDyes -7.689e-02 3.434e-01 -0.224 0.823
Med.all.antiplateletyes 8.168e-01 5.622e-01 1.453 0.146
GFR_MDRD -5.648e-03 8.561e-03 -0.660 0.509
BMI -7.924e-03 3.978e-02 -0.199 0.842
CAD_history 5.255e-04 3.226e-01 0.002 0.999
Stroke_history 2.142e-01 3.126e-01 0.685 0.493
Peripheral.interv -3.928e-01 3.537e-01 -1.110 0.267
stenose50-70% -4.636e-01 4.122e+03 0.000 1.000
stenose70-90% -1.654e+01 3.956e+03 -0.004 0.997
stenose90-99% -1.714e+01 3.956e+03 -0.004 0.997
stenose100% (Occlusion) -4.924e-01 4.323e+03 0.000 1.000
LDL_final 1.341e-02 1.490e-01 0.090 0.928
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 361.22 on 355 degrees of freedom
Residual deviance: 322.97 on 337 degrees of freedom
AIC: 360.97
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.757933
Standard error............: 0.189472
Odds ratio (effect size)..: 0.469
Lower 95% CI..............: 0.323
Upper 95% CI..............: 0.679
Z-value...................: -4.00023
P-value...................: 6.32809e-05
Hosmer and Lemeshow r^2...: 0.105893
Cox and Snell r^2.........: 0.101875
Nagelkerke's pseudo r^2...: 0.15981
Sample size of AE DB......: 2388
Sample size of model......: 356
Missing data %............: 85.09213
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Hypertension.composite + Stroke_history + LDL_final,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Hypertension.compositeyes Stroke_history
-3.7831 0.6416 0.8985 1.0321 0.5088
LDL_final
0.2259
Degrees of Freedom: 356 Total (i.e. Null); 351 Residual
Null Deviance: 356.2
Residual Deviance: 319.9 AIC: 331.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4238 0.2761 0.4627 0.6594 1.7797
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 6.507205 882.747666 0.007 0.99412
currentDF[, PROTEIN] 0.697802 0.177591 3.929 8.52e-05 ***
Age 0.001098 0.018968 0.058 0.95384
Gendermale 1.003262 0.317905 3.156 0.00160 **
Hypertension.compositeyes 1.044345 0.398278 2.622 0.00874 **
DiabetesStatusDiabetes -0.213865 0.380839 -0.562 0.57442
SmokerCurrentyes 0.437856 0.318979 1.373 0.16985
Med.Statin.LLDyes 0.039751 0.364668 0.109 0.91320
Med.all.antiplateletyes 0.760893 0.562010 1.354 0.17578
GFR_MDRD -0.004178 0.009046 -0.462 0.64418
BMI 0.029718 0.038285 0.776 0.43761
CAD_history -0.111178 0.340924 -0.326 0.74434
Stroke_history 0.403651 0.333402 1.211 0.22601
Peripheral.interv -0.049242 0.363705 -0.135 0.89230
stenose50-70% -13.468540 882.743867 -0.015 0.98783
stenose70-90% -11.588378 882.743592 -0.013 0.98953
stenose90-99% -12.172795 882.743575 -0.014 0.98900
stenose100% (Occlusion) -11.208317 882.744476 -0.013 0.98987
LDL_final 0.243454 0.161401 1.508 0.13146
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 356.18 on 356 degrees of freedom
Residual deviance: 307.64 on 338 degrees of freedom
AIC: 345.64
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.697802
Standard error............: 0.177591
Odds ratio (effect size)..: 2.009
Lower 95% CI..............: 1.419
Upper 95% CI..............: 2.846
Z-value...................: 3.92926
P-value...................: 8.520779e-05
Hosmer and Lemeshow r^2...: 0.136261
Cox and Snell r^2.........: 0.127111
Nagelkerke's pseudo r^2...: 0.201357
Sample size of AE DB......: 2388
Sample size of model......: 357
Missing data %............: 85.05025
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
DiabetesStatus, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age Gendermale DiabetesStatusDiabetes
-0.96814 0.02645 0.56473 -0.49874
Degrees of Freedom: 356 Total (i.e. Null); 353 Residual
Null Deviance: 405.3
Residual Deviance: 393.4 AIC: 401.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0551 -1.0934 0.6553 0.7927 1.3321
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 10.465152 882.746422 0.012 0.9905
currentDF[, PROTEIN] -0.001767 0.151910 -0.012 0.9907
Age 0.023315 0.016565 1.407 0.1593
Gendermale 0.647257 0.282325 2.293 0.0219 *
Hypertension.compositeyes 0.264155 0.361345 0.731 0.4648
DiabetesStatusDiabetes -0.513751 0.318782 -1.612 0.1070
SmokerCurrentyes 0.043114 0.272151 0.158 0.8741
Med.Statin.LLDyes -0.228883 0.321223 -0.713 0.4761
Med.all.antiplateletyes 0.604463 0.505534 1.196 0.2318
GFR_MDRD -0.003312 0.007689 -0.431 0.6667
BMI 0.020180 0.032770 0.616 0.5380
CAD_history 0.209279 0.302856 0.691 0.4896
Stroke_history 0.190935 0.278732 0.685 0.4933
Peripheral.interv 0.425060 0.347900 1.222 0.2218
stenose50-70% -12.083404 882.743894 -0.014 0.9891
stenose70-90% -12.665178 882.743525 -0.014 0.9886
stenose90-99% -12.604666 882.743521 -0.014 0.9886
stenose100% (Occlusion) -12.113730 882.744448 -0.014 0.9891
LDL_final 0.067077 0.135123 0.496 0.6196
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 405.31 on 356 degrees of freedom
Residual deviance: 386.17 on 338 degrees of freedom
AIC: 424.17
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: IPH
Effect size...............: -0.001767
Standard error............: 0.15191
Odds ratio (effect size)..: 0.998
Lower 95% CI..............: 0.741
Upper 95% CI..............: 1.344
Z-value...................: -0.011635
P-value...................: 0.9907169
Hosmer and Lemeshow r^2...: 0.047226
Cox and Snell r^2.........: 0.052204
Nagelkerke's pseudo r^2...: 0.07692
Sample size of AE DB......: 2388
Sample size of model......: 357
Missing data %............: 85.05025
Analysis of IL6_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
LDL_final, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes LDL_final
-1.27196 0.02486 0.41455 -0.16393
Degrees of Freedom: 619 Total (i.e. Null); 616 Residual
Null Deviance: 857.9
Residual Deviance: 843 AIC: 851
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.7301 -1.1762 0.8182 1.0943 1.7609
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.830909 1.736196 -1.055 0.29163
currentDF[, PROTEIN] -0.028728 0.057440 -0.500 0.61698
Age 0.029085 0.010297 2.825 0.00474 **
Gendermale 0.053215 0.184708 0.288 0.77327
Hypertension.compositeyes 0.190353 0.256764 0.741 0.45848
DiabetesStatusDiabetes -0.117627 0.208990 -0.563 0.57355
SmokerCurrentyes 0.474415 0.183594 2.584 0.00976 **
Med.Statin.LLDyes -0.273636 0.211301 -1.295 0.19532
Med.all.antiplateletyes 0.133791 0.293567 0.456 0.64858
GFR_MDRD 0.005052 0.004528 1.116 0.26449
BMI 0.018513 0.022445 0.825 0.40948
CAD_history 0.017676 0.193243 0.091 0.92712
Stroke_history -0.224433 0.181531 -1.236 0.21633
Peripheral.interv -0.330490 0.219559 -1.505 0.13226
stenose50-70% -1.298081 1.303665 -0.996 0.31939
stenose70-90% -0.541387 1.245175 -0.435 0.66372
stenose90-99% -0.445735 1.243566 -0.358 0.72002
stenose100% (Occlusion) 0.165121 1.512199 0.109 0.91305
stenose70-99% -15.714990 605.326073 -0.026 0.97929
LDL_final -0.209000 0.086579 -2.414 0.01578 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 857.85 on 619 degrees of freedom
Residual deviance: 824.82 on 600 degrees of freedom
AIC: 864.82
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.028728
Standard error............: 0.05744
Odds ratio (effect size)..: 0.972
Lower 95% CI..............: 0.868
Upper 95% CI..............: 1.087
Z-value...................: -0.500136
P-value...................: 0.6169792
Hosmer and Lemeshow r^2...: 0.038502
Cox and Snell r^2.........: 0.051879
Nagelkerke's pseudo r^2...: 0.069234
Sample size of AE DB......: 2388
Sample size of model......: 620
Missing data %............: 74.03685
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes
0.5975 -0.1769 0.5134
Degrees of Freedom: 621 Total (i.e. Null); 619 Residual
Null Deviance: 643
Residual Deviance: 631.3 AIC: 637.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2201 0.3945 0.6217 0.7404 1.0463
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.347e+01 1.384e+03 0.010 0.9922
currentDF[, PROTEIN] -1.592e-01 7.048e-02 -2.259 0.0239 *
Age 3.108e-03 1.246e-02 0.249 0.8030
Gendermale -9.898e-02 2.255e-01 -0.439 0.6608
Hypertension.compositeyes 7.679e-02 3.053e-01 0.251 0.8014
DiabetesStatusDiabetes 2.206e-01 2.605e-01 0.847 0.3971
SmokerCurrentyes 5.213e-01 2.291e-01 2.276 0.0229 *
Med.Statin.LLDyes 1.039e-01 2.526e-01 0.411 0.6809
Med.all.antiplateletyes 6.244e-02 3.510e-01 0.178 0.8588
GFR_MDRD 5.358e-03 5.437e-03 0.986 0.3244
BMI 3.671e-02 2.916e-02 1.259 0.2080
CAD_history 2.909e-01 2.390e-01 1.217 0.2235
Stroke_history 1.574e-01 2.219e-01 0.709 0.4782
Peripheral.interv 1.187e-01 2.761e-01 0.430 0.6672
stenose50-70% -1.425e+01 1.384e+03 -0.010 0.9918
stenose70-90% -1.512e+01 1.384e+03 -0.011 0.9913
stenose90-99% -1.511e+01 1.384e+03 -0.011 0.9913
stenose100% (Occlusion) 4.083e-01 1.646e+03 0.000 0.9998
stenose70-99% 3.207e-01 2.189e+03 0.000 0.9999
LDL_final 1.251e-01 1.046e-01 1.196 0.2316
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 643.00 on 621 degrees of freedom
Residual deviance: 616.63 on 602 degrees of freedom
AIC: 656.63
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.159235
Standard error............: 0.070477
Odds ratio (effect size)..: 0.853
Lower 95% CI..............: 0.743
Upper 95% CI..............: 0.979
Z-value...................: -2.259392
P-value...................: 0.023859
Hosmer and Lemeshow r^2...: 0.041007
Cox and Snell r^2.........: 0.041506
Nagelkerke's pseudo r^2...: 0.064417
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv + LDL_final,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv LDL_final
1.0123 0.3281 0.9595 0.3484 -0.5311 0.1690
Degrees of Freedom: 621 Total (i.e. Null); 616 Residual
Null Deviance: 717.6
Residual Deviance: 658.9 AIC: 670.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3891 -0.9341 0.5910 0.7839 1.4787
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 13.890440 499.839451 0.028 0.9778
currentDF[, PROTEIN] 0.328587 0.070060 4.690 2.73e-06 ***
Age 0.004246 0.011788 0.360 0.7187
Gendermale 0.984317 0.208140 4.729 2.26e-06 ***
Hypertension.compositeyes 0.166914 0.297912 0.560 0.5753
DiabetesStatusDiabetes -0.110118 0.239927 -0.459 0.6463
SmokerCurrentyes 0.145975 0.213639 0.683 0.4944
Med.Statin.LLDyes -0.280475 0.256255 -1.095 0.2737
Med.all.antiplateletyes 0.217329 0.337911 0.643 0.5201
GFR_MDRD -0.004063 0.005325 -0.763 0.4455
BMI 0.014926 0.025508 0.585 0.5585
CAD_history 0.160808 0.227127 0.708 0.4789
Stroke_history 0.350025 0.221650 1.579 0.1143
Peripheral.interv -0.583853 0.239819 -2.435 0.0149 *
stenose50-70% -13.733097 499.837635 -0.027 0.9781
stenose70-90% -13.369672 499.837472 -0.027 0.9787
stenose90-99% -13.410025 499.837467 -0.027 0.9786
stenose100% (Occlusion) -14.275461 499.838084 -0.029 0.9772
stenose70-99% -14.439735 499.839587 -0.029 0.9770
LDL_final 0.150654 0.101254 1.488 0.1368
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 717.61 on 621 degrees of freedom
Residual deviance: 650.20 on 602 degrees of freedom
AIC: 690.2
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.328587
Standard error............: 0.07006
Odds ratio (effect size)..: 1.389
Lower 95% CI..............: 1.211
Upper 95% CI..............: 1.593
Z-value...................: 4.690096
P-value...................: 2.730764e-06
Hosmer and Lemeshow r^2...: 0.093938
Cox and Snell r^2.........: 0.102711
Nagelkerke's pseudo r^2...: 0.150045
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + CAD_history +
Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale SmokerCurrentyes Med.Statin.LLDyes
-1.75978 0.01881 0.57921 0.34166 -0.34769
Med.all.antiplateletyes CAD_history Stroke_history Peripheral.interv
0.61066 0.29144 0.30926 0.34737
Degrees of Freedom: 620 Total (i.e. Null); 612 Residual
Null Deviance: 814.3
Residual Deviance: 786.5 AIC: 804.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0239 -1.2546 0.7741 0.9506 1.3869
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.316877 1.768092 -1.310 0.1901
currentDF[, PROTEIN] 0.052884 0.059583 0.888 0.3748
Age 0.019546 0.010575 1.848 0.0646 .
Gendermale 0.616521 0.188836 3.265 0.0011 **
Hypertension.compositeyes 0.100958 0.262302 0.385 0.7003
DiabetesStatusDiabetes -0.109138 0.214949 -0.508 0.6116
SmokerCurrentyes 0.333127 0.190690 1.747 0.0806 .
Med.Statin.LLDyes -0.276458 0.223380 -1.238 0.2159
Med.all.antiplateletyes 0.603370 0.296094 2.038 0.0416 *
GFR_MDRD -0.001990 0.004712 -0.422 0.6727
BMI 0.013982 0.023105 0.605 0.5451
CAD_history 0.291956 0.203434 1.435 0.1512
Stroke_history 0.314760 0.192264 1.637 0.1016
Peripheral.interv 0.334848 0.234754 1.426 0.1538
stenose50-70% -0.143551 1.303399 -0.110 0.9123
stenose70-90% 0.054200 1.249010 0.043 0.9654
stenose90-99% 0.162808 1.247403 0.131 0.8962
stenose100% (Occlusion) -0.001599 1.473861 -0.001 0.9991
stenose70-99% -0.827068 1.907263 -0.434 0.6645
LDL_final 0.078110 0.088317 0.884 0.3765
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 814.31 on 620 degrees of freedom
Residual deviance: 782.48 on 601 degrees of freedom
AIC: 822.48
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.052884
Standard error............: 0.059583
Odds ratio (effect size)..: 1.054
Lower 95% CI..............: 0.938
Upper 95% CI..............: 1.185
Z-value...................: 0.88757
P-value...................: 0.3747719
Hosmer and Lemeshow r^2...: 0.039092
Cox and Snell r^2.........: 0.049969
Nagelkerke's pseudo r^2...: 0.068401
Sample size of AE DB......: 2388
Sample size of model......: 621
Missing data %............: 73.99497
Analysis of IL6R_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
Peripheral.interv + stenose + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes Peripheral.interv stenose50-70%
13.3099 0.0214 0.3256 -0.3539 -15.0020
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose70-99% LDL_final
-14.3302 -14.2143 -13.5827 -29.4019 -0.1460
Degrees of Freedom: 613 Total (i.e. Null); 604 Residual
Null Deviance: 849.3
Residual Deviance: 826.6 AIC: 846.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6719 -1.1921 0.8332 1.1105 1.6235
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.255e+01 6.239e+02 0.020 0.9840
currentDF[, PROTEIN] -1.070e-01 7.800e-02 -1.371 0.1703
Age 2.317e-02 1.049e-02 2.209 0.0272 *
Gendermale 6.011e-03 1.850e-01 0.032 0.9741
Hypertension.compositeyes 2.254e-01 2.520e-01 0.895 0.3710
DiabetesStatusDiabetes -1.754e-01 2.122e-01 -0.826 0.4086
SmokerCurrentyes 3.559e-01 1.834e-01 1.940 0.0524 .
Med.Statin.LLDyes -2.060e-01 2.141e-01 -0.962 0.3359
Med.all.antiplateletyes 1.227e-01 2.978e-01 0.412 0.6802
GFR_MDRD 3.300e-03 4.655e-03 0.709 0.4784
BMI 8.552e-03 2.310e-02 0.370 0.7112
CAD_history 8.926e-04 1.935e-01 0.005 0.9963
Stroke_history -1.823e-01 1.817e-01 -1.003 0.3158
Peripheral.interv -3.495e-01 2.219e-01 -1.575 0.1153
stenose50-70% -1.507e+01 6.239e+02 -0.024 0.9807
stenose70-90% -1.432e+01 6.239e+02 -0.023 0.9817
stenose90-99% -1.421e+01 6.239e+02 -0.023 0.9818
stenose100% (Occlusion) -1.366e+01 6.239e+02 -0.022 0.9825
stenose70-99% -2.955e+01 8.717e+02 -0.034 0.9730
LDL_final -1.777e-01 8.767e-02 -2.027 0.0426 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 849.30 on 613 degrees of freedom
Residual deviance: 820.09 on 594 degrees of freedom
AIC: 860.09
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.106974
Standard error............: 0.078004
Odds ratio (effect size)..: 0.899
Lower 95% CI..............: 0.771
Upper 95% CI..............: 1.047
Z-value...................: -1.371396
P-value...................: 0.1702514
Hosmer and Lemeshow r^2...: 0.034389
Cox and Snell r^2.........: 0.046454
Nagelkerke's pseudo r^2...: 0.062002
Sample size of AE DB......: 2388
Sample size of model......: 614
Missing data %............: 74.28811
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes
1.1229 0.4918
Degrees of Freedom: 615 Total (i.e. Null); 614 Residual
Null Deviance: 642.7
Residual Deviance: 637.2 AIC: 641.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1867 0.4317 0.6442 0.7516 1.0235
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.362e+01 1.696e+03 0.008 0.9936
currentDF[, PROTEIN] 4.167e-03 9.006e-02 0.046 0.9631
Age 5.593e-03 1.253e-02 0.446 0.6554
Gendermale -3.436e-03 2.219e-01 -0.015 0.9876
Hypertension.compositeyes 2.294e-03 3.016e-01 0.008 0.9939
DiabetesStatusDiabetes 2.969e-01 2.630e-01 1.129 0.2589
SmokerCurrentyes 5.129e-01 2.286e-01 2.244 0.0249 *
Med.Statin.LLDyes 1.524e-01 2.529e-01 0.603 0.5468
Med.all.antiplateletyes 2.126e-01 3.455e-01 0.615 0.5383
GFR_MDRD 3.779e-03 5.528e-03 0.684 0.4942
BMI 3.788e-02 2.895e-02 1.308 0.1908
CAD_history 2.453e-01 2.369e-01 1.036 0.3003
Stroke_history 8.335e-02 2.201e-01 0.379 0.7050
Peripheral.interv 1.403e-01 2.762e-01 0.508 0.6116
stenose50-70% -1.412e+01 1.696e+03 -0.008 0.9934
stenose70-90% -1.507e+01 1.696e+03 -0.009 0.9929
stenose90-99% -1.496e+01 1.696e+03 -0.009 0.9930
stenose100% (Occlusion) 5.649e-01 1.918e+03 0.000 0.9998
stenose70-99% 6.286e-01 2.399e+03 0.000 0.9998
LDL_final 1.174e-01 1.055e-01 1.112 0.2660
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 642.71 on 615 degrees of freedom
Residual deviance: 622.54 on 596 degrees of freedom
AIC: 662.54
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.004167
Standard error............: 0.090058
Odds ratio (effect size)..: 1.004
Lower 95% CI..............: 0.842
Upper 95% CI..............: 1.198
Z-value...................: 0.046265
P-value...................: 0.9630989
Hosmer and Lemeshow r^2...: 0.031378
Cox and Snell r^2.........: 0.032208
Nagelkerke's pseudo r^2...: 0.049725
Sample size of AE DB......: 2388
Sample size of model......: 616
Missing data %............: 74.20436
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Stroke_history +
Peripheral.interv + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Stroke_history Peripheral.interv LDL_final
-0.1296 0.9069 0.4893 -0.5359 0.1945
Degrees of Freedom: 615 Total (i.e. Null); 611 Residual
Null Deviance: 705.7
Residual Deviance: 669.9 AIC: 679.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2582 -1.0691 0.6233 0.7802 1.3523
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 13.369868 623.666426 0.021 0.9829
currentDF[, PROTEIN] 0.054158 0.085467 0.634 0.5263
Age 0.002498 0.012054 0.207 0.8359
Gendermale 0.948277 0.205225 4.621 3.83e-06 ***
Hypertension.compositeyes 0.185882 0.287940 0.646 0.5186
DiabetesStatusDiabetes -0.045731 0.241994 -0.189 0.8501
SmokerCurrentyes 0.202464 0.211826 0.956 0.3392
Med.Statin.LLDyes -0.255734 0.259282 -0.986 0.3240
Med.all.antiplateletyes 0.193744 0.342976 0.565 0.5721
GFR_MDRD -0.002854 0.005456 -0.523 0.6008
BMI -0.008758 0.026188 -0.334 0.7381
CAD_history 0.047658 0.223185 0.214 0.8309
Stroke_history 0.470947 0.220512 2.136 0.0327 *
Peripheral.interv -0.594754 0.239320 -2.485 0.0129 *
stenose50-70% -13.706507 623.665074 -0.022 0.9825
stenose70-90% -13.169212 623.664944 -0.021 0.9832
stenose90-99% -13.284749 623.664938 -0.021 0.9830
stenose100% (Occlusion) -14.088904 623.665442 -0.023 0.9820
stenose70-99% -14.595709 623.666628 -0.023 0.9813
LDL_final 0.162951 0.102327 1.592 0.1113
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 705.67 on 615 degrees of freedom
Residual deviance: 662.08 on 596 degrees of freedom
AIC: 702.08
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.054158
Standard error............: 0.085467
Odds ratio (effect size)..: 1.056
Lower 95% CI..............: 0.893
Upper 95% CI..............: 1.248
Z-value...................: 0.633675
P-value...................: 0.526293
Hosmer and Lemeshow r^2...: 0.06178
Cox and Snell r^2.........: 0.068327
Nagelkerke's pseudo r^2...: 0.100192
Sample size of AE DB......: 2388
Sample size of model......: 616
Missing data %............: 74.20436
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + SmokerCurrent + Med.all.antiplatelet + Peripheral.interv,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale SmokerCurrentyes
-1.73188 0.14752 0.02187 0.62959 0.30390
Med.all.antiplateletyes Peripheral.interv
0.51845 0.32579
Degrees of Freedom: 614 Total (i.e. Null); 608 Residual
Null Deviance: 809.9
Residual Deviance: 786.7 AIC: 800.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0032 -1.2447 0.7716 0.9589 1.3876
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.9710605 1.8997910 -1.038 0.299496
currentDF[, PROTEIN] 0.1228828 0.0774451 1.587 0.112579
Age 0.0166300 0.0108084 1.539 0.123897
Gendermale 0.6555481 0.1889490 3.469 0.000522 ***
Hypertension.compositeyes 0.1050767 0.2577038 0.408 0.683463
DiabetesStatusDiabetes -0.1861702 0.2167506 -0.859 0.390388
SmokerCurrentyes 0.2894346 0.1915645 1.511 0.130814
Med.Statin.LLDyes -0.2219860 0.2264142 -0.980 0.326868
Med.all.antiplateletyes 0.5140017 0.3042486 1.689 0.091140 .
GFR_MDRD -0.0036757 0.0048703 -0.755 0.450417
BMI -0.0002495 0.0236391 -0.011 0.991580
CAD_history 0.2679931 0.2036027 1.316 0.188089
Stroke_history 0.2994626 0.1924626 1.556 0.119719
Peripheral.interv 0.3405722 0.2386829 1.427 0.153614
stenose50-70% 0.4040515 1.4880029 0.272 0.785976
stenose70-90% 0.4991339 1.4377983 0.347 0.728477
stenose90-99% 0.5493762 1.4363202 0.382 0.702099
stenose100% (Occlusion) 0.4420048 1.6386209 0.270 0.787359
stenose70-99% -0.3107490 2.0346938 -0.153 0.878615
LDL_final 0.0850495 0.0902429 0.942 0.345962
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 809.93 on 614 degrees of freedom
Residual deviance: 778.33 on 595 degrees of freedom
AIC: 818.33
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.122883
Standard error............: 0.077445
Odds ratio (effect size)..: 1.131
Lower 95% CI..............: 0.972
Upper 95% CI..............: 1.316
Z-value...................: 1.586708
P-value...................: 0.1125789
Hosmer and Lemeshow r^2...: 0.039017
Cox and Snell r^2.........: 0.050086
Nagelkerke's pseudo r^2...: 0.068418
Sample size of AE DB......: 2388
Sample size of model......: 615
Missing data %............: 74.24623
Analysis of MCP1_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + Peripheral.interv + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes Peripheral.interv LDL_final
-1.73495 -0.31223 0.02487 0.40727 -0.31242 -0.11567
Degrees of Freedom: 635 Total (i.e. Null); 630 Residual
Null Deviance: 880.3
Residual Deviance: 839.5 AIC: 851.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8203 -1.1443 0.7133 1.0820 1.7743
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.186778 1.751653 -1.248 0.21188
currentDF[, PROTEIN] -0.313354 0.066094 -4.741 2.13e-06 ***
Age 0.028386 0.010421 2.724 0.00645 **
Gendermale 0.077519 0.185548 0.418 0.67610
Hypertension.compositeyes 0.162429 0.253659 0.640 0.52195
DiabetesStatusDiabetes -0.117603 0.210834 -0.558 0.57698
SmokerCurrentyes 0.437906 0.184123 2.378 0.01739 *
Med.Statin.LLDyes -0.263210 0.212928 -1.236 0.21640
Med.all.antiplateletyes 0.171668 0.291815 0.588 0.55635
GFR_MDRD 0.003704 0.004551 0.814 0.41574
BMI 0.012750 0.022517 0.566 0.57124
CAD_history 0.032059 0.193000 0.166 0.86807
Stroke_history -0.126189 0.182798 -0.690 0.48999
Peripheral.interv -0.359200 0.221288 -1.623 0.10454
stenose50-70% -1.264011 1.313877 -0.962 0.33603
stenose70-90% -0.354338 1.252555 -0.283 0.77726
stenose90-99% -0.337422 1.251122 -0.270 0.78739
stenose100% (Occlusion) 0.116115 1.519853 0.076 0.93910
stenose70-99% -15.425510 596.420676 -0.026 0.97937
LDL_final -0.150771 0.087187 -1.729 0.08376 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 880.27 on 635 degrees of freedom
Residual deviance: 826.00 on 616 degrees of freedom
AIC: 866
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.313354
Standard error............: 0.066094
Odds ratio (effect size)..: 0.731
Lower 95% CI..............: 0.642
Upper 95% CI..............: 0.832
Z-value...................: -4.741015
P-value...................: 2.126505e-06
Hosmer and Lemeshow r^2...: 0.061647
Cox and Snell r^2.........: 0.081785
Nagelkerke's pseudo r^2...: 0.109128
Sample size of AE DB......: 2388
Sample size of model......: 636
Missing data %............: 73.36683
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes
0.8981 -0.2238 0.5088
Degrees of Freedom: 637 Total (i.e. Null); 635 Residual
Null Deviance: 658.5
Residual Deviance: 643.5 AIC: 649.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2910 0.3778 0.6175 0.7387 1.1095
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.342e+01 1.382e+03 0.010 0.99225
currentDF[, PROTEIN] -2.208e-01 7.866e-02 -2.807 0.00501 **
Age 4.608e-03 1.243e-02 0.371 0.71083
Gendermale -1.078e-02 2.224e-01 -0.048 0.96133
Hypertension.compositeyes -5.278e-02 3.030e-01 -0.174 0.86171
DiabetesStatusDiabetes 2.626e-01 2.605e-01 1.008 0.31344
SmokerCurrentyes 5.090e-01 2.287e-01 2.226 0.02604 *
Med.Statin.LLDyes 1.414e-01 2.510e-01 0.563 0.57335
Med.all.antiplateletyes 8.044e-02 3.422e-01 0.235 0.81417
GFR_MDRD 4.835e-03 5.415e-03 0.893 0.37194
BMI 3.947e-02 2.890e-02 1.366 0.17194
CAD_history 2.561e-01 2.351e-01 1.089 0.27610
Stroke_history 1.127e-01 2.197e-01 0.513 0.60798
Peripheral.interv 1.576e-01 2.759e-01 0.571 0.56785
stenose50-70% -1.419e+01 1.382e+03 -0.010 0.99181
stenose70-90% -1.505e+01 1.382e+03 -0.011 0.99131
stenose90-99% -1.500e+01 1.382e+03 -0.011 0.99134
stenose100% (Occlusion) 2.831e-01 1.649e+03 0.000 0.99986
stenose70-99% 7.185e-01 2.188e+03 0.000 0.99974
LDL_final 1.570e-01 1.054e-01 1.489 0.13646
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 658.5 on 637 degrees of freedom
Residual deviance: 628.5 on 618 degrees of freedom
AIC: 668.5
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.220764
Standard error............: 0.078656
Odds ratio (effect size)..: 0.802
Lower 95% CI..............: 0.687
Upper 95% CI..............: 0.936
Z-value...................: -2.806693
P-value...................: 0.005005292
Hosmer and Lemeshow r^2...: 0.045568
Cox and Snell r^2.........: 0.045943
Nagelkerke's pseudo r^2...: 0.071367
Sample size of AE DB......: 2388
Sample size of model......: 638
Missing data %............: 73.28308
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv + LDL_final,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv LDL_final
0.08208 0.10797 0.94650 0.42457 -0.48857 0.15348
Degrees of Freedom: 637 Total (i.e. Null); 632 Residual
Null Deviance: 737.7
Residual Deviance: 697.9 AIC: 709.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2927 -1.0871 0.6267 0.7942 1.3858
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 13.502340 501.501259 0.027 0.9785
currentDF[, PROTEIN] 0.106038 0.070527 1.504 0.1327
Age 0.001382 0.011569 0.119 0.9049
Gendermale 0.995947 0.200571 4.966 6.85e-07 ***
Hypertension.compositeyes 0.211642 0.284536 0.744 0.4570
DiabetesStatusDiabetes -0.110556 0.233413 -0.474 0.6357
SmokerCurrentyes 0.232019 0.207172 1.120 0.2627
Med.Statin.LLDyes -0.285167 0.252105 -1.131 0.2580
Med.all.antiplateletyes 0.282374 0.325554 0.867 0.3857
GFR_MDRD -0.005622 0.005182 -1.085 0.2780
BMI 0.001346 0.024744 0.054 0.9566
CAD_history 0.050724 0.217427 0.233 0.8155
Stroke_history 0.398954 0.216374 1.844 0.0652 .
Peripheral.interv -0.546898 0.234383 -2.333 0.0196 *
stenose50-70% -13.715798 501.499552 -0.027 0.9782
stenose70-90% -13.286922 501.499395 -0.026 0.9789
stenose90-99% -13.413649 501.499389 -0.027 0.9787
stenose100% (Occlusion) -14.108936 501.499989 -0.028 0.9776
stenose70-99% -14.820496 501.501493 -0.030 0.9764
LDL_final 0.128934 0.098440 1.310 0.1903
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 737.67 on 637 degrees of freedom
Residual deviance: 688.27 on 618 degrees of freedom
AIC: 728.27
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.106038
Standard error............: 0.070527
Odds ratio (effect size)..: 1.112
Lower 95% CI..............: 0.968
Upper 95% CI..............: 1.277
Z-value...................: 1.503511
P-value...................: 0.1327074
Hosmer and Lemeshow r^2...: 0.066965
Cox and Snell r^2.........: 0.074504
Nagelkerke's pseudo r^2...: 0.108713
Sample size of AE DB......: 2388
Sample size of model......: 638
Missing data %............: 73.28308
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + CAD_history +
Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale SmokerCurrentyes Med.Statin.LLDyes
-1.73057 0.01821 0.60621 0.34901 -0.40268
Med.all.antiplateletyes CAD_history Stroke_history Peripheral.interv
0.60993 0.30075 0.34840 0.39779
Degrees of Freedom: 636 Total (i.e. Null); 628 Residual
Null Deviance: 837.7
Residual Deviance: 806.3 AIC: 824.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9694 -1.2529 0.7654 0.9505 1.4993
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.236604 1.772434 -1.262 0.206991
currentDF[, PROTEIN] -0.088207 0.064866 -1.360 0.173883
Age 0.017937 0.010555 1.699 0.089230 .
Gendermale 0.654559 0.186699 3.506 0.000455 ***
Hypertension.compositeyes 0.042545 0.257261 0.165 0.868647
DiabetesStatusDiabetes -0.151501 0.212570 -0.713 0.476025
SmokerCurrentyes 0.337455 0.188614 1.789 0.073594 .
Med.Statin.LLDyes -0.371866 0.223949 -1.660 0.096815 .
Med.all.antiplateletyes 0.590621 0.291944 2.023 0.043066 *
GFR_MDRD -0.002562 0.004687 -0.547 0.584607
BMI 0.007867 0.022713 0.346 0.729077
CAD_history 0.301254 0.199352 1.511 0.130746
Stroke_history 0.389073 0.191490 2.032 0.042172 *
Peripheral.interv 0.397429 0.234324 1.696 0.089873 .
stenose50-70% -0.120217 1.318577 -0.091 0.927356
stenose70-90% 0.122338 1.264558 0.097 0.922930
stenose90-99% 0.191060 1.263050 0.151 0.879764
stenose100% (Occlusion) -0.036943 1.489262 -0.025 0.980210
stenose70-99% -0.906126 1.915305 -0.473 0.636144
LDL_final 0.071514 0.088157 0.811 0.417243
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 837.69 on 636 degrees of freedom
Residual deviance: 801.66 on 617 degrees of freedom
AIC: 841.66
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: -0.088207
Standard error............: 0.064866
Odds ratio (effect size)..: 0.916
Lower 95% CI..............: 0.806
Upper 95% CI..............: 1.04
Z-value...................: -1.359831
P-value...................: 0.1738834
Hosmer and Lemeshow r^2...: 0.043019
Cox and Snell r^2.........: 0.055001
Nagelkerke's pseudo r^2...: 0.075186
Sample size of AE DB......: 2388
Sample size of model......: 637
Missing data %............: 73.32496 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.PlaquePhenotypes.MODEL3.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON.RANK)) {
TRAIT = TRAITS.CON.RANK[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M3) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + LDL_final,
data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ SmokerCurrent + Med.Statin.LLD,
data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes Med.Statin.LLDyes
0.03459 0.16805 -0.16826
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.92124 -0.73316 -0.00557 0.71379 3.03756
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.792704 1.329636 2.852 0.00462 **
currentDF[, TRAIT] -0.061504 0.050080 -1.228 0.22030
Age -0.009624 0.006942 -1.386 0.16658
Gendermale -0.159404 0.125754 -1.268 0.20587
Hypertension.compositeyes 0.104571 0.162654 0.643 0.52074
DiabetesStatusDiabetes -0.132718 0.145494 -0.912 0.36235
SmokerCurrentyes 0.109285 0.116428 0.939 0.34862
Med.Statin.LLDyes -0.278661 0.131209 -2.124 0.03445 *
Med.all.antiplateletyes -0.227481 0.234994 -0.968 0.33376
GFR_MDRD 0.001924 0.003229 0.596 0.55182
BMI -0.017054 0.014966 -1.140 0.25533
CAD_history 0.243533 0.123997 1.964 0.05039 .
Stroke_history 0.102115 0.117514 0.869 0.38552
Peripheral.interv -0.116734 0.137714 -0.848 0.39726
stenose50-70% -2.456211 1.045001 -2.350 0.01936 *
stenose70-90% -2.333147 0.999077 -2.335 0.02014 *
stenose90-99% -2.375923 0.998637 -2.379 0.01794 *
stenose100% (Occlusion) -2.851865 1.098896 -2.595 0.00989 **
LDL_final -0.054180 0.056915 -0.952 0.34184
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9784 on 321 degrees of freedom
Multiple R-squared: 0.06494, Adjusted R-squared: 0.01251
F-statistic: 1.239 on 18 and 321 DF, p-value: 0.2282
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.061504
Standard error............: 0.05008
Odds ratio (effect size)..: 0.94
Lower 95% CI..............: 0.852
Upper 95% CI..............: 1.037
T-value...................: -1.228115
P-value...................: 0.2203034
R^2.......................: 0.064943
Adjusted r^2..............: 0.01251
Sample size of AE DB......: 2388
Sample size of model......: 340
Missing data %............: 85.76214
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Med.Statin.LLD, data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes
0.1105 -0.1671
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.94593 -0.72114 -0.00767 0.72157 2.95142
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.783029 1.343497 2.816 0.00517 **
currentDF[, TRAIT] 0.040659 0.053776 0.756 0.45016
Age -0.009438 0.007120 -1.326 0.18592
Gendermale -0.147744 0.128474 -1.150 0.25101
Hypertension.compositeyes 0.064319 0.163151 0.394 0.69368
DiabetesStatusDiabetes -0.127047 0.146769 -0.866 0.38735
SmokerCurrentyes 0.097880 0.117339 0.834 0.40481
Med.Statin.LLDyes -0.257756 0.133795 -1.927 0.05493 .
Med.all.antiplateletyes -0.197395 0.237058 -0.833 0.40564
GFR_MDRD 0.001715 0.003269 0.525 0.60016
BMI -0.019334 0.015123 -1.278 0.20201
CAD_history 0.196926 0.125287 1.572 0.11699
Stroke_history 0.081858 0.118994 0.688 0.49201
Peripheral.interv -0.090695 0.139342 -0.651 0.51559
stenose50-70% -2.414960 1.057550 -2.284 0.02306 *
stenose70-90% -2.286060 1.010233 -2.263 0.02431 *
stenose90-99% -2.289655 1.008776 -2.270 0.02389 *
stenose100% (Occlusion) -2.758852 1.109643 -2.486 0.01342 *
LDL_final -0.053128 0.058295 -0.911 0.36279
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9889 on 319 degrees of freedom
Multiple R-squared: 0.05635, Adjusted R-squared: 0.003105
F-statistic: 1.058 on 18 and 319 DF, p-value: 0.3942
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.040659
Standard error............: 0.053776
Odds ratio (effect size)..: 1.041
Lower 95% CI..............: 0.937
Upper 95% CI..............: 1.157
T-value...................: 0.756087
P-value...................: 0.4501553
R^2.......................: 0.056351
Adjusted r^2..............: 0.003105
Sample size of AE DB......: 2388
Sample size of model......: 338
Missing data %............: 85.8459
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Med.Statin.LLD, data = currentDF)
Coefficients:
(Intercept) Age Med.Statin.LLDyes
0.753665 -0.009766 -0.170287
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.81606 -0.73816 0.00031 0.73756 3.08388
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.913497 1.364851 2.867 0.00442 **
currentDF[, TRAIT] -0.073530 0.068216 -1.078 0.28191
Age -0.011121 0.007153 -1.555 0.12101
Gendermale -0.131235 0.128403 -1.022 0.30754
Hypertension.compositeyes 0.102116 0.166801 0.612 0.54085
DiabetesStatusDiabetes -0.124773 0.151385 -0.824 0.41045
SmokerCurrentyes 0.108612 0.119294 0.910 0.36328
Med.Statin.LLDyes -0.249016 0.134561 -1.851 0.06517 .
Med.all.antiplateletyes -0.209457 0.240938 -0.869 0.38533
GFR_MDRD 0.001910 0.003328 0.574 0.56652
BMI -0.019283 0.015234 -1.266 0.20652
CAD_history 0.201687 0.126238 1.598 0.11113
Stroke_history 0.106492 0.119862 0.888 0.37498
Peripheral.interv -0.092475 0.140901 -0.656 0.51211
stenose50-70% -2.466777 1.062496 -2.322 0.02089 *
stenose70-90% -2.346616 1.015922 -2.310 0.02155 *
stenose90-99% -2.368477 1.014795 -2.334 0.02023 *
stenose100% (Occlusion) -2.720515 1.144280 -2.377 0.01803 *
LDL_final -0.055201 0.058274 -0.947 0.34423
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.991 on 313 degrees of freedom
Multiple R-squared: 0.05833, Adjusted R-squared: 0.004181
F-statistic: 1.077 on 18 and 313 DF, p-value: 0.3742
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.07353
Standard error............: 0.068216
Odds ratio (effect size)..: 0.929
Lower 95% CI..............: 0.813
Upper 95% CI..............: 1.062
T-value...................: -1.077905
P-value...................: 0.281906
R^2.......................: 0.058334
Adjusted r^2..............: 0.004181
Sample size of AE DB......: 2388
Sample size of model......: 332
Missing data %............: 86.09715
Analysis of MCP1_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Gender +
Hypertension.composite + Med.all.antiplatelet + LDL_final,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Gendermale Hypertension.compositeyes Med.all.antiplateletyes
-0.7615 0.1160 0.4242 -0.2413 0.4022
LDL_final
0.1261
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.0118 -0.6421 0.0530 0.6167 2.7322
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.550180 1.331823 1.164 0.24525
currentDF[, TRAIT] 0.108718 0.049706 2.187 0.02940 *
Age -0.010664 0.006893 -1.547 0.12277
Gendermale 0.399090 0.123790 3.224 0.00139 **
Hypertension.compositeyes -0.256160 0.158543 -1.616 0.10708
DiabetesStatusDiabetes -0.120459 0.143222 -0.841 0.40090
SmokerCurrentyes -0.026308 0.115098 -0.229 0.81934
Med.Statin.LLDyes -0.160799 0.130582 -1.231 0.21902
Med.all.antiplateletyes 0.304046 0.223821 1.358 0.17522
GFR_MDRD -0.002907 0.003184 -0.913 0.36182
BMI -0.007932 0.014201 -0.559 0.57683
CAD_history 0.194780 0.124501 1.564 0.11863
Stroke_history 0.141896 0.116406 1.219 0.22369
Peripheral.interv -0.139426 0.141656 -0.984 0.32568
stenose50-70% -0.817147 1.069218 -0.764 0.44525
stenose70-90% -0.926314 1.024033 -0.905 0.36633
stenose90-99% -0.919539 1.023909 -0.898 0.36978
stenose100% (Occlusion) -1.623694 1.150886 -1.411 0.15921
LDL_final 0.100281 0.056049 1.789 0.07447 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.004 on 342 degrees of freedom
Multiple R-squared: 0.103, Adjusted R-squared: 0.05578
F-statistic: 2.182 on 18 and 342 DF, p-value: 0.003837
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.108718
Standard error............: 0.049706
Odds ratio (effect size)..: 1.115
Lower 95% CI..............: 1.011
Upper 95% CI..............: 1.229
T-value...................: 2.187222
P-value...................: 0.0294031
R^2.......................: 0.102995
Adjusted r^2..............: 0.055784
Sample size of AE DB......: 2388
Sample size of model......: 361
Missing data %............: 84.88275
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.all.antiplatelet +
CAD_history + Stroke_history + LDL_final, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
-0.16113 -0.17912 -0.01124 0.38951 -0.21541
Med.all.antiplateletyes CAD_history Stroke_history LDL_final
0.34350 0.22827 0.16045 0.17107
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.77475 -0.66379 0.03745 0.63641 2.44650
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.761592 1.309017 1.346 0.17928
currentDF[, TRAIT] -0.175444 0.051692 -3.394 0.00077 ***
Age -0.015241 0.006873 -2.218 0.02725 *
Gendermale 0.367995 0.122914 2.994 0.00296 **
Hypertension.compositeyes -0.223901 0.154761 -1.447 0.14889
DiabetesStatusDiabetes -0.109872 0.141026 -0.779 0.43647
SmokerCurrentyes -0.037317 0.113021 -0.330 0.74147
Med.Statin.LLDyes -0.120464 0.129434 -0.931 0.35267
Med.all.antiplateletyes 0.274163 0.219821 1.247 0.21318
GFR_MDRD -0.003006 0.003132 -0.960 0.33782
BMI -0.005209 0.013963 -0.373 0.70932
CAD_history 0.254655 0.122268 2.083 0.03802 *
Stroke_history 0.154659 0.114573 1.350 0.17795
Peripheral.interv -0.150381 0.139883 -1.075 0.28312
stenose50-70% -0.846437 1.051986 -0.805 0.42161
stenose70-90% -0.983213 1.007553 -0.976 0.32984
stenose90-99% -1.000154 1.006474 -0.994 0.32107
stenose100% (Occlusion) -1.745817 1.130964 -1.544 0.12360
LDL_final 0.142069 0.055893 2.542 0.01147 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9871 on 340 degrees of freedom
Multiple R-squared: 0.1247, Adjusted R-squared: 0.07836
F-statistic: 2.691 on 18 and 340 DF, p-value: 0.0002653
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.175444
Standard error............: 0.051692
Odds ratio (effect size)..: 0.839
Lower 95% CI..............: 0.758
Upper 95% CI..............: 0.929
T-value...................: -3.393995
P-value...................: 0.0007701751
R^2.......................: 0.124699
Adjusted r^2..............: 0.07836
Sample size of AE DB......: 2388
Sample size of model......: 359
Missing data %............: 84.9665
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender + Med.all.antiplatelet +
LDL_final, data = currentDF)
Coefficients:
(Intercept) Gendermale Med.all.antiplateletyes LDL_final
-0.9367 0.4562 0.3756 0.1249
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.06281 -0.66297 0.04826 0.64889 2.70481
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.652265 1.356456 1.218 0.224053
currentDF[, TRAIT] -0.082322 0.065687 -1.253 0.210989
Age -0.010687 0.007027 -1.521 0.129238
Gendermale 0.421397 0.126183 3.340 0.000934 ***
Hypertension.compositeyes -0.198725 0.162370 -1.224 0.221848
DiabetesStatusDiabetes -0.080616 0.147908 -0.545 0.586088
SmokerCurrentyes -0.023542 0.117495 -0.200 0.841314
Med.Statin.LLDyes -0.183933 0.133849 -1.374 0.170302
Med.all.antiplateletyes 0.264553 0.225729 1.172 0.242032
GFR_MDRD -0.001982 0.003272 -0.606 0.544998
BMI -0.006037 0.014481 -0.417 0.677042
CAD_history 0.220242 0.126669 1.739 0.083004 .
Stroke_history 0.140083 0.118301 1.184 0.237203
Peripheral.interv -0.116106 0.144786 -0.802 0.423171
stenose50-70% -1.032080 1.081916 -0.954 0.340803
stenose70-90% -1.074798 1.036998 -1.036 0.300739
stenose90-99% -1.095509 1.035980 -1.057 0.291063
stenose100% (Occlusion) -1.850483 1.164954 -1.588 0.113126
LDL_final 0.085880 0.057439 1.495 0.135820
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.013 on 335 degrees of freedom
Multiple R-squared: 0.08945, Adjusted R-squared: 0.04053
F-statistic: 1.828 on 18 and 335 DF, p-value: 0.0212
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.082322
Standard error............: 0.065687
Odds ratio (effect size)..: 0.921
Lower 95% CI..............: 0.81
Upper 95% CI..............: 1.048
T-value...................: -1.253249
P-value...................: 0.2109892
R^2.......................: 0.089453
Adjusted r^2..............: 0.040529
Sample size of AE DB......: 2388
Sample size of model......: 354
Missing data %............: 85.17588
Analysis of IL6_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + SmokerCurrent +
BMI + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] SmokerCurrentyes BMI Stroke_history
0.43172 0.08968 0.12696 -0.01892 0.20719
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3185 -0.6385 0.0175 0.6268 2.8088
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.956669 0.814353 1.175 0.2406
currentDF[, TRAIT] 0.087966 0.040062 2.196 0.0285 *
Age -0.002904 0.004882 -0.595 0.5522
Gendermale -0.009734 0.088746 -0.110 0.9127
Hypertension.compositeyes -0.054264 0.122717 -0.442 0.6585
DiabetesStatusDiabetes -0.076409 0.100157 -0.763 0.4458
SmokerCurrentyes 0.125108 0.086655 1.444 0.1493
Med.Statin.LLDyes -0.111106 0.100331 -1.107 0.2686
Med.all.antiplateletyes 0.012174 0.141146 0.086 0.9313
GFR_MDRD -0.003536 0.002146 -1.648 0.0999 .
BMI -0.021052 0.010734 -1.961 0.0503 .
CAD_history -0.056364 0.092349 -0.610 0.5419
Stroke_history 0.187557 0.086643 2.165 0.0308 *
Peripheral.interv -0.051133 0.105339 -0.485 0.6276
stenose50-70% 0.012852 0.603337 0.021 0.9830
stenose70-90% 0.269820 0.576599 0.468 0.6400
stenose90-99% 0.105576 0.575918 0.183 0.8546
stenose100% (Occlusion) 0.179979 0.688069 0.262 0.7937
stenose70-99% -0.916356 0.912926 -1.004 0.3159
LDL_final -0.004545 0.040502 -0.112 0.9107
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9848 on 602 degrees of freedom
Multiple R-squared: 0.04836, Adjusted R-squared: 0.01832
F-statistic: 1.61 on 19 and 602 DF, p-value: 0.04862
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.087966
Standard error............: 0.040062
Odds ratio (effect size)..: 1.092
Lower 95% CI..............: 1.009
Upper 95% CI..............: 1.181
T-value...................: 2.19572
P-value...................: 0.02849284
R^2.......................: 0.048358
Adjusted r^2..............: 0.018322
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + SmokerCurrent +
BMI + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] SmokerCurrentyes BMI Stroke_history
0.38376 -0.16631 0.14266 -0.01639 0.19343
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.04985 -0.64800 0.01386 0.63069 2.55755
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.102447 0.806200 1.367 0.1720
currentDF[, TRAIT] -0.173938 0.040608 -4.283 2.14e-05 ***
Age -0.006913 0.004890 -1.414 0.1580
Gendermale -0.059486 0.089220 -0.667 0.5052
Hypertension.compositeyes -0.045232 0.121514 -0.372 0.7099
DiabetesStatusDiabetes -0.066154 0.099234 -0.667 0.5053
SmokerCurrentyes 0.118193 0.085988 1.375 0.1698
Med.Statin.LLDyes -0.100904 0.099815 -1.011 0.3125
Med.all.antiplateletyes -0.025880 0.139663 -0.185 0.8531
GFR_MDRD -0.003067 0.002130 -1.440 0.1505
BMI -0.018815 0.010660 -1.765 0.0781 .
CAD_history -0.032078 0.091688 -0.350 0.7266
Stroke_history 0.185386 0.085884 2.159 0.0313 *
Peripheral.interv -0.055377 0.105115 -0.527 0.5985
stenose50-70% 0.040206 0.597216 0.067 0.9463
stenose70-90% 0.333147 0.571076 0.583 0.5599
stenose90-99% 0.179920 0.570433 0.315 0.7526
stenose100% (Occlusion) 0.203774 0.680636 0.299 0.7647
stenose70-99% -0.753656 0.904215 -0.833 0.4049
LDL_final 0.008340 0.040306 0.207 0.8361
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9747 on 598 degrees of freedom
Multiple R-squared: 0.06837, Adjusted R-squared: 0.03877
F-statistic: 2.31 on 19 and 598 DF, p-value: 0.001317
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.173938
Standard error............: 0.040608
Odds ratio (effect size)..: 0.84
Lower 95% CI..............: 0.776
Upper 95% CI..............: 0.91
T-value...................: -4.283342
P-value...................: 2.144872e-05
R^2.......................: 0.068374
Adjusted r^2..............: 0.038774
Sample size of AE DB......: 2388
Sample size of model......: 618
Missing data %............: 74.1206
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + SmokerCurrent +
GFR_MDRD + BMI + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] SmokerCurrentyes GFR_MDRD BMI Stroke_history
0.645933 -0.073470 0.151037 -0.003299 -0.019370 0.223348
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2477 -0.6315 0.0154 0.6292 2.7442
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.915562 0.833720 1.098 0.2726
currentDF[, TRAIT] -0.060043 0.044518 -1.349 0.1780
Age -0.002646 0.005072 -0.522 0.6020
Gendermale 0.006226 0.091559 0.068 0.9458
Hypertension.compositeyes -0.026768 0.129442 -0.207 0.8362
DiabetesStatusDiabetes -0.082035 0.106538 -0.770 0.4416
SmokerCurrentyes 0.129686 0.090901 1.427 0.1542
Med.Statin.LLDyes -0.102693 0.104321 -0.984 0.3253
Med.all.antiplateletyes 0.034800 0.147180 0.236 0.8132
GFR_MDRD -0.004247 0.002270 -1.871 0.0619 .
BMI -0.019937 0.011131 -1.791 0.0738 .
CAD_history -0.058081 0.096857 -0.600 0.5490
Stroke_history 0.204024 0.090661 2.250 0.0248 *
Peripheral.interv -0.088141 0.112268 -0.785 0.4327
stenose50-70% -0.120730 0.611812 -0.197 0.8436
stenose70-90% 0.168620 0.582906 0.289 0.7725
stenose90-99% 0.027030 0.581958 0.046 0.9630
stenose100% (Occlusion) 0.087610 0.694550 0.126 0.8997
stenose70-99% -1.032726 1.170442 -0.882 0.3780
LDL_final 0.013615 0.042281 0.322 0.7476
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9932 on 564 degrees of freedom
Multiple R-squared: 0.04632, Adjusted R-squared: 0.01419
F-statistic: 1.442 on 19 and 564 DF, p-value: 0.1012
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.060043
Standard error............: 0.044518
Odds ratio (effect size)..: 0.942
Lower 95% CI..............: 0.863
Upper 95% CI..............: 1.028
T-value...................: -1.348739
P-value...................: 0.1779623
R^2.......................: 0.04632
Adjusted r^2..............: 0.014193
Sample size of AE DB......: 2388
Sample size of model......: 584
Missing data %............: 75.54439
Analysis of IL6R_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + GFR_MDRD + Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes GFR_MDRD Peripheral.interv
1.341530 0.110321 -0.009911 -0.288745 -0.004870 0.266781
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2981 -0.6084 -0.0185 0.6169 2.8340
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.427044 0.897757 1.590 0.11246
currentDF[, TRAIT] 0.108478 0.039229 2.765 0.00586 **
Age -0.009565 0.004928 -1.941 0.05274 .
Gendermale -0.033733 0.087882 -0.384 0.70123
Hypertension.compositeyes 0.062434 0.119466 0.523 0.60144
DiabetesStatusDiabetes -0.119784 0.100152 -1.196 0.23217
SmokerCurrentyes 0.038240 0.086309 0.443 0.65789
Med.Statin.LLDyes -0.285726 0.100574 -2.841 0.00465 **
Med.all.antiplateletyes -0.116713 0.142200 -0.821 0.41211
GFR_MDRD -0.005023 0.002183 -2.300 0.02177 *
BMI -0.013214 0.010896 -1.213 0.22570
CAD_history -0.028311 0.091591 -0.309 0.75735
Stroke_history 0.030194 0.086143 0.351 0.72608
Peripheral.interv 0.246999 0.105103 2.350 0.01910 *
stenose50-70% 0.061338 0.719052 0.085 0.93205
stenose70-90% 0.293751 0.696861 0.422 0.67352
stenose90-99% 0.380202 0.696101 0.546 0.58514
stenose100% (Occlusion) -0.089389 0.789470 -0.113 0.90989
stenose70-99% -1.096271 0.985446 -1.112 0.26639
LDL_final 0.006939 0.040808 0.170 0.86504
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9713 on 596 degrees of freedom
Multiple R-squared: 0.07061, Adjusted R-squared: 0.04099
F-statistic: 2.383 on 19 and 596 DF, p-value: 0.0008684
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.108478
Standard error............: 0.039229
Odds ratio (effect size)..: 1.115
Lower 95% CI..............: 1.032
Upper 95% CI..............: 1.204
T-value...................: 2.76527
P-value...................: 0.005863709
R^2.......................: 0.070614
Adjusted r^2..............: 0.040986
Sample size of AE DB......: 2388
Sample size of model......: 616
Missing data %............: 74.20436
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Med.Statin.LLD + GFR_MDRD +
Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) Age Med.Statin.LLDyes GFR_MDRD Peripheral.interv
1.346173 -0.010035 -0.298570 -0.004661 0.264690
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.4215 -0.6309 -0.0031 0.6277 2.8688
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.4259326 0.9036264 1.578 0.1151
currentDF[, TRAIT] 0.0451999 0.0409217 1.105 0.2698
Age -0.0094317 0.0050198 -1.879 0.0608 .
Gendermale 0.0053504 0.0896154 0.060 0.9524
Hypertension.compositeyes 0.0684131 0.1202476 0.569 0.5696
DiabetesStatusDiabetes -0.1253518 0.1008768 -1.243 0.2145
SmokerCurrentyes 0.0244030 0.0870966 0.280 0.7794
Med.Statin.LLDyes -0.3010755 0.1017199 -2.960 0.0032 **
Med.all.antiplateletyes -0.1322906 0.1430097 -0.925 0.3553
GFR_MDRD -0.0048356 0.0022028 -2.195 0.0285 *
BMI -0.0122421 0.0110041 -1.113 0.2664
CAD_history -0.0269855 0.0924033 -0.292 0.7704
Stroke_history 0.0404923 0.0868126 0.466 0.6411
Peripheral.interv 0.2464366 0.1066174 2.311 0.0212 *
stenose50-70% 0.0201160 0.7239258 0.028 0.9778
stenose70-90% 0.2720544 0.7017170 0.388 0.6984
stenose90-99% 0.3421500 0.7010877 0.488 0.6257
stenose100% (Occlusion) -0.1850207 0.7946637 -0.233 0.8160
stenose70-99% -1.1033831 0.9923601 -1.112 0.2666
LDL_final 0.0001877 0.0413000 0.005 0.9964
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9772 on 592 degrees of freedom
Multiple R-squared: 0.05852, Adjusted R-squared: 0.02831
F-statistic: 1.937 on 19 and 592 DF, p-value: 0.009947
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.0452
Standard error............: 0.040922
Odds ratio (effect size)..: 1.046
Lower 95% CI..............: 0.966
Upper 95% CI..............: 1.134
T-value...................: 1.104546
P-value...................: 0.269805
R^2.......................: 0.058524
Adjusted r^2..............: 0.028307
Sample size of AE DB......: 2388
Sample size of model......: 612
Missing data %............: 74.37186
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + GFR_MDRD + Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes GFR_MDRD Peripheral.interv
1.401930 0.070985 -0.010425 -0.313222 -0.004864 0.237237
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3090 -0.6200 -0.0146 0.6457 2.8167
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.509171 0.924131 1.633 0.10302
currentDF[, TRAIT] 0.067452 0.045210 1.492 0.13627
Age -0.010954 0.005160 -2.123 0.03422 *
Gendermale -0.030480 0.091431 -0.333 0.73899
Hypertension.compositeyes 0.052927 0.127452 0.415 0.67810
DiabetesStatusDiabetes -0.137947 0.107477 -1.283 0.19985
SmokerCurrentyes -0.005957 0.091386 -0.065 0.94805
Med.Statin.LLDyes -0.302578 0.105563 -2.866 0.00431 **
Med.all.antiplateletyes -0.106337 0.149561 -0.711 0.47739
GFR_MDRD -0.005046 0.002339 -2.157 0.03143 *
BMI -0.012429 0.011509 -1.080 0.28064
CAD_history -0.038156 0.096794 -0.394 0.69359
Stroke_history 0.024410 0.090867 0.269 0.78831
Peripheral.interv 0.225570 0.112822 1.999 0.04606 *
stenose50-70% 0.068589 0.733201 0.094 0.92550
stenose70-90% 0.326386 0.708414 0.461 0.64517
stenose90-99% 0.395119 0.707544 0.558 0.57677
stenose100% (Occlusion) -0.102343 0.802434 -0.128 0.89856
stenose70-99% -1.253510 1.232215 -1.017 0.30946
LDL_final 0.009660 0.042947 0.225 0.82212
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9861 on 557 degrees of freedom
Multiple R-squared: 0.06024, Adjusted R-squared: 0.02818
F-statistic: 1.879 on 19 and 557 DF, p-value: 0.01347
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: 0.067452
Standard error............: 0.04521
Odds ratio (effect size)..: 1.07
Lower 95% CI..............: 0.979
Upper 95% CI..............: 1.169
T-value...................: 1.49198
P-value...................: 0.1362705
R^2.......................: 0.060239
Adjusted r^2..............: 0.028183
Sample size of AE DB......: 2388
Sample size of model......: 577
Missing data %............: 75.83752
Analysis of MCP1_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Gender + Hypertension.composite +
Med.Statin.LLD + Stroke_history + LDL_final, data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes Med.Statin.LLDyes Stroke_history
-0.1273 0.1474 -0.2463 -0.1445 0.1993
LDL_final
0.1006
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.9304 -0.7061 -0.0780 0.6314 3.2286
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.291415 0.850113 0.343 0.7319
currentDF[, TRAIT] -0.049187 0.041051 -1.198 0.2313
Age -0.003564 0.005088 -0.700 0.4839
Gendermale 0.158377 0.091362 1.734 0.0835 .
Hypertension.compositeyes -0.244154 0.125233 -1.950 0.0517 .
DiabetesStatusDiabetes -0.068577 0.103560 -0.662 0.5081
SmokerCurrentyes -0.074855 0.089571 -0.836 0.4036
Med.Statin.LLDyes -0.159345 0.104268 -1.528 0.1270
Med.all.antiplateletyes -0.108230 0.145261 -0.745 0.4565
GFR_MDRD -0.002234 0.002227 -1.003 0.3161
BMI -0.008739 0.011066 -0.790 0.4300
CAD_history 0.071133 0.094850 0.750 0.4536
Stroke_history 0.213464 0.090021 2.371 0.0180 *
Peripheral.interv 0.065349 0.109169 0.599 0.5497
stenose50-70% 0.098476 0.631189 0.156 0.8761
stenose70-90% 0.387475 0.603162 0.642 0.5208
stenose90-99% 0.271932 0.602534 0.451 0.6519
stenose100% (Occlusion) -0.341989 0.719678 -0.475 0.6348
stenose70-99% 0.492227 0.954935 0.515 0.6064
LDL_final 0.105914 0.042067 2.518 0.0121 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.03 on 618 degrees of freedom
Multiple R-squared: 0.05515, Adjusted R-squared: 0.02611
F-statistic: 1.899 on 19 and 618 DF, p-value: 0.01201
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.049187
Standard error............: 0.041051
Odds ratio (effect size)..: 0.952
Lower 95% CI..............: 0.878
Upper 95% CI..............: 1.032
T-value...................: -1.198196
P-value...................: 0.2313002
R^2.......................: 0.055154
Adjusted r^2..............: 0.026106
Sample size of AE DB......: 2388
Sample size of model......: 638
Missing data %............: 73.28308
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Hypertension.composite +
Stroke_history + LDL_final, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Hypertension.compositeyes Stroke_history LDL_final
-0.1782 -0.1303 -0.2508 0.1852 0.1236
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.6887 -0.6991 -0.0832 0.6479 3.2672
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.320457 0.847551 0.378 0.70549
currentDF[, TRAIT] -0.123250 0.042025 -2.933 0.00349 **
Age -0.005426 0.005127 -1.058 0.29029
Gendermale 0.106151 0.092455 1.148 0.25136
Hypertension.compositeyes -0.244452 0.124883 -1.957 0.05075 .
DiabetesStatusDiabetes -0.062338 0.103312 -0.603 0.54647
SmokerCurrentyes -0.072628 0.089528 -0.811 0.41755
Med.Statin.LLDyes -0.148656 0.104496 -1.423 0.15536
Med.all.antiplateletyes -0.119560 0.144832 -0.826 0.40940
GFR_MDRD -0.002072 0.002227 -0.931 0.35241
BMI -0.007669 0.011068 -0.693 0.48861
CAD_history 0.075659 0.094760 0.798 0.42493
Stroke_history 0.205614 0.089880 2.288 0.02250 *
Peripheral.interv 0.067705 0.109692 0.617 0.53732
stenose50-70% 0.167650 0.629251 0.266 0.79000
stenose70-90% 0.459421 0.601627 0.764 0.44538
stenose90-99% 0.359549 0.601076 0.598 0.54994
stenose100% (Occlusion) -0.233259 0.716966 -0.325 0.74503
stenose70-99% 0.599918 0.952635 0.630 0.52909
LDL_final 0.114486 0.042160 2.716 0.00680 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.027 on 614 degrees of freedom
Multiple R-squared: 0.06606, Adjusted R-squared: 0.03716
F-statistic: 2.286 on 19 and 614 DF, p-value: 0.001497
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.12325
Standard error............: 0.042025
Odds ratio (effect size)..: 0.884
Lower 95% CI..............: 0.814
Upper 95% CI..............: 0.96
T-value...................: -2.932747
P-value...................: 0.003485007
R^2.......................: 0.066063
Adjusted r^2..............: 0.037163
Sample size of AE DB......: 2388
Sample size of model......: 634
Missing data %............: 73.45059
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Gender +
Hypertension.composite + GFR_MDRD + Stroke_history + LDL_final,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Gendermale Hypertension.compositeyes GFR_MDRD
-0.187163 -0.136560 0.195759 -0.227145 -0.003343
Stroke_history LDL_final
0.210043 0.141315
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
LDL_final, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.7564 -0.7060 -0.0830 0.6373 3.3215
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.278174 0.861772 0.323 0.74697
currentDF[, TRAIT] -0.131364 0.045384 -2.894 0.00394 **
Age -0.002927 0.005233 -0.559 0.57613
Gendermale 0.185450 0.093464 1.984 0.04771 *
Hypertension.compositeyes -0.202835 0.131290 -1.545 0.12291
DiabetesStatusDiabetes -0.057482 0.108946 -0.528 0.59796
SmokerCurrentyes -0.044276 0.093160 -0.475 0.63477
Med.Statin.LLDyes -0.155652 0.107545 -1.447 0.14835
Med.all.antiplateletyes -0.066229 0.149739 -0.442 0.65844
GFR_MDRD -0.002916 0.002332 -1.250 0.21165
BMI -0.010907 0.011460 -0.952 0.34161
CAD_history 0.089160 0.098346 0.907 0.36500
Stroke_history 0.229929 0.093253 2.466 0.01397 *
Peripheral.interv 0.029074 0.115049 0.253 0.80058
stenose50-70% -0.066620 0.633787 -0.105 0.91632
stenose70-90% 0.276392 0.603793 0.458 0.64730
stenose90-99% 0.171897 0.602917 0.285 0.77566
stenose100% (Occlusion) -0.398319 0.719404 -0.554 0.58001
stenose70-99% 0.622479 1.212095 0.514 0.60776
LDL_final 0.122158 0.043471 2.810 0.00512 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.029 on 579 degrees of freedom
Multiple R-squared: 0.07479, Adjusted R-squared: 0.04443
F-statistic: 2.463 on 19 and 579 DF, p-value: 0.0005535
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.131364
Standard error............: 0.045384
Odds ratio (effect size)..: 0.877
Lower 95% CI..............: 0.802
Upper 95% CI..............: 0.958
T-value...................: -2.894467
P-value...................: 0.003941151
R^2.......................: 0.074786
Adjusted r^2..............: 0.044425
Sample size of AE DB......: 2388
Sample size of model......: 599
Missing data %............: 74.91625 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Multi.Protein.PlaquePhenotypes.RANK.MODEL3.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M3) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + LDL_final,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Peripheral.interv + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Peripheral.interv LDL_final
0.1729 0.7282 -0.4273 -0.1618
Degrees of Freedom: 340 Total (i.e. Null); 337 Residual
Null Deviance: 468.3
Residual Deviance: 457.8 AIC: 465.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8654 -1.2136 0.7951 1.0480 1.7633
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -15.267781 535.414752 -0.029 0.9773
currentDF[, PROTEIN] 0.163515 0.117905 1.387 0.1655
Age 0.010455 0.014857 0.704 0.4816
Gendermale -0.035222 0.266332 -0.132 0.8948
Hypertension.compositeyes 0.786773 0.346070 2.273 0.0230 *
DiabetesStatusDiabetes -0.344363 0.306681 -1.123 0.2615
SmokerCurrentyes 0.053976 0.246235 0.219 0.8265
Med.Statin.LLDyes -0.175548 0.281406 -0.624 0.5327
Med.all.antiplateletyes 0.893264 0.512220 1.744 0.0812 .
GFR_MDRD -0.006645 0.006908 -0.962 0.3361
BMI 0.021593 0.031868 0.678 0.4981
CAD_history 0.085080 0.263727 0.323 0.7470
Stroke_history -0.294773 0.250322 -1.178 0.2390
Peripheral.interv -0.398990 0.287559 -1.388 0.1653
stenose50-70% 14.702266 535.411824 0.027 0.9781
stenose70-90% 14.250535 535.411403 0.027 0.9788
stenose90-99% 13.920079 535.411392 0.026 0.9793
stenose100% (Occlusion) 15.923187 535.412811 0.030 0.9763
LDL_final -0.183427 0.121427 -1.511 0.1309
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 468.26 on 340 degrees of freedom
Residual deviance: 443.77 on 322 degrees of freedom
AIC: 481.77
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.163515
Standard error............: 0.117905
Odds ratio (effect size)..: 1.178
Lower 95% CI..............: 0.935
Upper 95% CI..............: 1.484
Z-value...................: 1.386835
P-value...................: 0.1654921
Hosmer and Lemeshow r^2...: 0.05229
Cox and Snell r^2.........: 0.069286
Nagelkerke's pseudo r^2...: 0.09279
Sample size of AE DB......: 2388
Sample size of model......: 341
Missing data %............: 85.72027
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
1.757e+01 1.794e-08 -1.602e+01 -1.639e+01 1.752e-08
Degrees of Freedom: 339 Total (i.e. Null); 335 Residual
Null Deviance: 343
Residual Deviance: 333.4 AIC: 343.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.12359 0.00031 0.59757 0.72715 1.08348
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.825e+01 3.956e+03 0.005 0.996
currentDF[, PROTEIN] -1.729e-01 1.444e-01 -1.198 0.231
Age 6.532e-03 1.853e-02 0.353 0.724
Gendermale -3.604e-01 3.433e-01 -1.050 0.294
Hypertension.compositeyes 3.197e-01 4.074e-01 0.785 0.433
DiabetesStatusDiabetes 3.033e-01 4.040e-01 0.751 0.453
SmokerCurrentyes 3.532e-01 3.085e-01 1.145 0.252
Med.Statin.LLDyes -1.702e-01 3.466e-01 -0.491 0.623
Med.all.antiplateletyes 7.388e-01 5.520e-01 1.338 0.181
GFR_MDRD -5.268e-03 8.525e-03 -0.618 0.537
BMI -2.169e-02 3.918e-02 -0.554 0.580
CAD_history -5.403e-02 3.206e-01 -0.169 0.866
Stroke_history 2.122e-01 3.180e-01 0.667 0.505
Peripheral.interv -4.147e-01 3.348e-01 -1.239 0.215
stenose50-70% -5.289e-01 4.127e+03 0.000 1.000
stenose70-90% -1.652e+01 3.956e+03 -0.004 0.997
stenose90-99% -1.702e+01 3.956e+03 -0.004 0.997
stenose100% (Occlusion) -2.020e-01 4.310e+03 0.000 1.000
LDL_final -1.001e-01 1.464e-01 -0.684 0.494
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 343.03 on 339 degrees of freedom
Residual deviance: 322.63 on 321 degrees of freedom
AIC: 360.63
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.172899
Standard error............: 0.144367
Odds ratio (effect size)..: 0.841
Lower 95% CI..............: 0.634
Upper 95% CI..............: 1.116
Z-value...................: -1.197636
P-value...................: 0.231059
Hosmer and Lemeshow r^2...: 0.059465
Cox and Snell r^2.........: 0.05823
Nagelkerke's pseudo r^2...: 0.091646
Sample size of AE DB......: 2388
Sample size of model......: 340
Missing data %............: 85.76214
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite +
DiabetesStatus + Stroke_history + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes DiabetesStatusDiabetes Stroke_history
-0.8534 1.0245 0.9471 -0.5168 0.4840
LDL_final
0.2434
Degrees of Freedom: 340 Total (i.e. Null); 335 Residual
Null Deviance: 343.5
Residual Deviance: 321.4 AIC: 333.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.6383 0.3499 0.5062 0.6887 1.3371
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 10.524691 882.747063 0.012 0.990487
currentDF[, PROTEIN] 0.154515 0.145906 1.059 0.289599
Age -0.004901 0.018852 -0.260 0.794872
Gendermale 1.227524 0.325007 3.777 0.000159 ***
Hypertension.compositeyes 0.930452 0.395899 2.350 0.018762 *
DiabetesStatusDiabetes -0.574189 0.363916 -1.578 0.114610
SmokerCurrentyes 0.281302 0.317408 0.886 0.375485
Med.Statin.LLDyes -0.083895 0.371198 -0.226 0.821192
Med.all.antiplateletyes 0.917466 0.569904 1.610 0.107428
GFR_MDRD -0.007444 0.009202 -0.809 0.418546
BMI 0.030642 0.040203 0.762 0.445961
CAD_history -0.109329 0.335226 -0.326 0.744322
Stroke_history 0.427611 0.334719 1.278 0.201418
Peripheral.interv -0.220845 0.349112 -0.633 0.527001
stenose50-70% -13.821360 882.743866 -0.016 0.987508
stenose70-90% -12.101714 882.743616 -0.014 0.989062
stenose90-99% -12.351083 882.743599 -0.014 0.988837
stenose100% (Occlusion) -11.833540 882.744465 -0.013 0.989304
LDL_final 0.273940 0.165892 1.651 0.098674 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 343.48 on 340 degrees of freedom
Residual deviance: 309.36 on 322 degrees of freedom
AIC: 347.36
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.154515
Standard error............: 0.145906
Odds ratio (effect size)..: 1.167
Lower 95% CI..............: 0.877
Upper 95% CI..............: 1.553
Z-value...................: 1.059002
P-value...................: 0.289599
Hosmer and Lemeshow r^2...: 0.09933
Cox and Snell r^2.........: 0.09521
Nagelkerke's pseudo r^2...: 0.149988
Sample size of AE DB......: 2388
Sample size of model......: 341
Missing data %............: 85.72027
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
DiabetesStatus, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age Gendermale DiabetesStatusDiabetes
-1.97984 0.04335 0.40381 -0.57855
Degrees of Freedom: 340 Total (i.e. Null); 337 Residual
Null Deviance: 393.6
Residual Deviance: 377.1 AIC: 385.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1786 -1.1062 0.6502 0.8046 1.3778
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 8.507942 882.746215 0.010 0.99231
currentDF[, PROTEIN] 0.053103 0.130729 0.406 0.68459
Age 0.044678 0.016690 2.677 0.00743 **
Gendermale 0.518684 0.290082 1.788 0.07377 .
Hypertension.compositeyes 0.427483 0.368220 1.161 0.24566
DiabetesStatusDiabetes -0.639149 0.323487 -1.976 0.04818 *
SmokerCurrentyes 0.083062 0.277050 0.300 0.76432
Med.Statin.LLDyes 0.030957 0.319436 0.097 0.92280
Med.all.antiplateletyes 0.372978 0.547031 0.682 0.49535
GFR_MDRD -0.002094 0.007832 -0.267 0.78923
BMI 0.023163 0.035168 0.659 0.51012
CAD_history 0.100163 0.302999 0.331 0.74097
Stroke_history 0.111451 0.285723 0.390 0.69649
Peripheral.interv 0.448655 0.342139 1.311 0.18975
stenose50-70% -12.121321 882.743894 -0.014 0.98904
stenose70-90% -12.421281 882.743569 -0.014 0.98877
stenose90-99% -12.359348 882.743564 -0.014 0.98883
stenose100% (Occlusion) -11.541968 882.744409 -0.013 0.98957
LDL_final 0.114250 0.139299 0.820 0.41212
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 393.60 on 340 degrees of freedom
Residual deviance: 371.24 on 322 degrees of freedom
AIC: 409.24
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: IPH
Effect size...............: 0.053103
Standard error............: 0.130729
Odds ratio (effect size)..: 1.055
Lower 95% CI..............: 0.816
Upper 95% CI..............: 1.363
Z-value...................: 0.406207
P-value...................: 0.6845907
Hosmer and Lemeshow r^2...: 0.056802
Cox and Snell r^2.........: 0.06346
Nagelkerke's pseudo r^2...: 0.092683
Sample size of AE DB......: 2388
Sample size of model......: 341
Missing data %............: 85.72027
Analysis of MCP1_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
DiabetesStatus + Peripheral.interv + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes DiabetesStatusDiabetes Peripheral.interv LDL_final
0.4110 0.6502 -0.4656 -0.4820 -0.1722
Degrees of Freedom: 361 Total (i.e. Null); 357 Residual
Null Deviance: 494.9
Residual Deviance: 482.9 AIC: 492.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8997 -1.1747 0.7992 1.0384 1.7588
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -14.541447 535.414250 -0.027 0.9783
currentDF[, PROTEIN] -0.042755 0.110886 -0.386 0.6998
Age 0.014087 0.014347 0.982 0.3261
Gendermale 0.015604 0.259328 0.060 0.9520
Hypertension.compositeyes 0.674571 0.325086 2.075 0.0380 *
DiabetesStatusDiabetes -0.521153 0.295618 -1.763 0.0779 .
SmokerCurrentyes 0.243944 0.239906 1.017 0.3092
Med.Statin.LLDyes -0.321147 0.274334 -1.171 0.2417
Med.all.antiplateletyes 0.693103 0.464849 1.491 0.1360
GFR_MDRD -0.005488 0.006663 -0.824 0.4102
BMI 0.017848 0.029365 0.608 0.5433
CAD_history 0.019152 0.258874 0.074 0.9410
Stroke_history -0.354716 0.242260 -1.464 0.1431
Peripheral.interv -0.474133 0.289636 -1.637 0.1016
stenose50-70% 14.148656 535.411734 0.026 0.9789
stenose70-90% 13.843373 535.411340 0.026 0.9794
stenose90-99% 13.476392 535.411334 0.025 0.9799
stenose100% (Occlusion) 14.975966 535.412896 0.028 0.9777
LDL_final -0.214336 0.117309 -1.827 0.0677 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 494.91 on 361 degrees of freedom
Residual deviance: 470.68 on 343 degrees of freedom
AIC: 508.68
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.042755
Standard error............: 0.110886
Odds ratio (effect size)..: 0.958
Lower 95% CI..............: 0.771
Upper 95% CI..............: 1.191
Z-value...................: -0.385574
P-value...................: 0.6998121
Hosmer and Lemeshow r^2...: 0.04895
Cox and Snell r^2.........: 0.064732
Nagelkerke's pseudo r^2...: 0.086869
Sample size of AE DB......: 2388
Sample size of model......: 362
Missing data %............: 84.84087
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Med.all.antiplatelet + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Med.all.antiplateletyes stenose50-70% stenose70-90%
17.1818 -0.6076 0.9495 -0.2888 -16.2141
stenose90-99% stenose100% (Occlusion)
-16.8072 -0.1013
Degrees of Freedom: 360 Total (i.e. Null); 354 Residual
Null Deviance: 366.2
Residual Deviance: 333.1 AIC: 347.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4374 0.2133 0.5256 0.7029 1.4457
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.747e+01 3.956e+03 0.004 0.9965
currentDF[, PROTEIN] -6.062e-01 1.487e-01 -4.078 4.55e-05 ***
Age 5.814e-03 1.840e-02 0.316 0.7520
Gendermale -1.376e-01 3.454e-01 -0.398 0.6904
Hypertension.compositeyes 3.582e-01 3.944e-01 0.908 0.3637
DiabetesStatusDiabetes 4.016e-01 4.067e-01 0.987 0.3234
SmokerCurrentyes 3.919e-01 3.061e-01 1.280 0.2004
Med.Statin.LLDyes -4.142e-02 3.399e-01 -0.122 0.9030
Med.all.antiplateletyes 1.039e+00 5.400e-01 1.924 0.0544 .
GFR_MDRD -6.003e-03 8.531e-03 -0.704 0.4816
BMI -1.599e-02 3.926e-02 -0.407 0.6837
CAD_history -5.400e-02 3.195e-01 -0.169 0.8658
Stroke_history 2.244e-01 3.125e-01 0.718 0.4728
Peripheral.interv -3.738e-01 3.532e-01 -1.058 0.2900
stenose50-70% -4.501e-01 4.122e+03 0.000 0.9999
stenose70-90% -1.648e+01 3.956e+03 -0.004 0.9967
stenose90-99% -1.712e+01 3.956e+03 -0.004 0.9965
stenose100% (Occlusion) -2.379e-01 4.336e+03 0.000 1.0000
LDL_final 4.524e-03 1.476e-01 0.031 0.9755
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 366.23 on 360 degrees of freedom
Residual deviance: 326.43 on 342 degrees of freedom
AIC: 364.43
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.606247
Standard error............: 0.148674
Odds ratio (effect size)..: 0.545
Lower 95% CI..............: 0.408
Upper 95% CI..............: 0.73
Z-value...................: -4.077683
P-value...................: 4.548676e-05
Hosmer and Lemeshow r^2...: 0.108674
Cox and Snell r^2.........: 0.104387
Nagelkerke's pseudo r^2...: 0.163768
Sample size of AE DB......: 2388
Sample size of model......: 361
Missing data %............: 84.88275
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Hypertension.composite + SmokerCurrent + stenose +
LDL_final, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Hypertension.compositeyes SmokerCurrentyes
11.7736 0.5101 0.9142 0.9542 0.4421
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) LDL_final
-14.0712 -12.1842 -12.7510 -12.4564 0.2372
Degrees of Freedom: 361 Total (i.e. Null); 352 Residual
Null Deviance: 361.2
Residual Deviance: 321.1 AIC: 341.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3842 0.2960 0.4886 0.6684 1.6498
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 10.395966 882.746608 0.012 0.99060
currentDF[, PROTEIN] 0.498113 0.150588 3.308 0.00094 ***
Age 0.002141 0.018255 0.117 0.90662
Gendermale 0.936906 0.314287 2.981 0.00287 **
Hypertension.compositeyes 0.962021 0.389396 2.471 0.01349 *
DiabetesStatusDiabetes -0.217385 0.369876 -0.588 0.55672
SmokerCurrentyes 0.421196 0.313609 1.343 0.17925
Med.Statin.LLDyes -0.038865 0.357900 -0.109 0.91353
Med.all.antiplateletyes 0.483579 0.553916 0.873 0.38265
GFR_MDRD -0.003421 0.008894 -0.385 0.70053
BMI 0.026465 0.037523 0.705 0.48062
CAD_history -0.069242 0.335113 -0.207 0.83631
Stroke_history 0.332254 0.328273 1.012 0.31148
Peripheral.interv -0.104067 0.358243 -0.290 0.77144
stenose50-70% -13.706793 882.743836 -0.016 0.98761
stenose70-90% -11.838995 882.743573 -0.013 0.98930
stenose90-99% -12.435399 882.743559 -0.014 0.98876
stenose100% (Occlusion) -11.892994 882.744422 -0.013 0.98925
LDL_final 0.237520 0.160466 1.480 0.13882
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 361.18 on 361 degrees of freedom
Residual deviance: 317.86 on 343 degrees of freedom
AIC: 355.86
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.498113
Standard error............: 0.150588
Odds ratio (effect size)..: 1.646
Lower 95% CI..............: 1.225
Upper 95% CI..............: 2.211
Z-value...................: 3.30779
P-value...................: 0.0009403531
Hosmer and Lemeshow r^2...: 0.119926
Cox and Snell r^2.........: 0.112773
Nagelkerke's pseudo r^2...: 0.17864
Sample size of AE DB......: 2388
Sample size of model......: 362
Missing data %............: 84.84087
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
DiabetesStatus + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale DiabetesStatusDiabetes Peripheral.interv
-1.38377 0.03137 0.57820 -0.59140 0.47188
Degrees of Freedom: 361 Total (i.e. Null); 357 Residual
Null Deviance: 414.6
Residual Deviance: 398.2 AIC: 408.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1230 -1.1154 0.6446 0.8048 1.3790
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 9.817110 882.745818 0.011 0.9911
currentDF[, PROTEIN] 0.021154 0.126653 0.167 0.8673
Age 0.029966 0.016143 1.856 0.0634 .
Gendermale 0.615473 0.280452 2.195 0.0282 *
Hypertension.compositeyes 0.351264 0.354391 0.991 0.3216
DiabetesStatusDiabetes -0.578653 0.312855 -1.850 0.0644 .
SmokerCurrentyes 0.118988 0.270115 0.441 0.6596
Med.Statin.LLDyes -0.164474 0.314860 -0.522 0.6014
Med.all.antiplateletyes 0.451435 0.498323 0.906 0.3650
GFR_MDRD -0.001996 0.007621 -0.262 0.7934
BMI 0.019887 0.032441 0.613 0.5399
CAD_history 0.239472 0.302172 0.793 0.4281
Stroke_history 0.199976 0.278586 0.718 0.4729
Peripheral.interv 0.451404 0.347558 1.299 0.1940
stenose50-70% -12.013293 882.743893 -0.014 0.9891
stenose70-90% -12.605523 882.743522 -0.014 0.9886
stenose90-99% -12.575565 882.743518 -0.014 0.9886
stenose100% (Occlusion) -12.140411 882.744417 -0.014 0.9890
LDL_final 0.091522 0.135650 0.675 0.4999
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 414.64 on 361 degrees of freedom
Residual deviance: 392.62 on 343 degrees of freedom
AIC: 430.62
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: IPH
Effect size...............: 0.021154
Standard error............: 0.126653
Odds ratio (effect size)..: 1.021
Lower 95% CI..............: 0.797
Upper 95% CI..............: 1.309
Z-value...................: 0.167027
P-value...................: 0.867349
Hosmer and Lemeshow r^2...: 0.053111
Cox and Snell r^2.........: 0.059021
Nagelkerke's pseudo r^2...: 0.086553
Sample size of AE DB......: 2388
Sample size of model......: 362
Missing data %............: 84.84087
Analysis of IL6_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
LDL_final, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes LDL_final
-1.27196 0.02486 0.41455 -0.16393
Degrees of Freedom: 619 Total (i.e. Null); 616 Residual
Null Deviance: 857.9
Residual Deviance: 843 AIC: 851
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.7301 -1.1761 0.8192 1.0957 1.7649
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.747181 1.735445 -1.007 0.31405
currentDF[, PROTEIN] -0.035015 0.084708 -0.413 0.67934
Age 0.029151 0.010296 2.831 0.00464 **
Gendermale 0.053398 0.184699 0.289 0.77250
Hypertension.compositeyes 0.190931 0.256757 0.744 0.45710
DiabetesStatusDiabetes -0.117544 0.208989 -0.562 0.57381
SmokerCurrentyes 0.473160 0.183544 2.578 0.00994 **
Med.Statin.LLDyes -0.273095 0.211314 -1.292 0.19623
Med.all.antiplateletyes 0.134078 0.293577 0.457 0.64788
GFR_MDRD 0.005082 0.004527 1.123 0.26159
BMI 0.018661 0.022444 0.831 0.40570
CAD_history 0.018320 0.193210 0.095 0.92446
Stroke_history -0.225916 0.181521 -1.245 0.21329
Peripheral.interv -0.330372 0.219549 -1.505 0.13238
stenose50-70% -1.299569 1.303726 -0.997 0.31886
stenose70-90% -0.544255 1.245214 -0.437 0.66205
stenose90-99% -0.447456 1.243621 -0.360 0.71900
stenose100% (Occlusion) 0.159048 1.512113 0.105 0.91623
stenose70-99% -15.712343 605.394374 -0.026 0.97929
LDL_final -0.209060 0.086575 -2.415 0.01574 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 857.85 on 619 degrees of freedom
Residual deviance: 824.90 on 600 degrees of freedom
AIC: 864.9
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.035015
Standard error............: 0.084708
Odds ratio (effect size)..: 0.966
Lower 95% CI..............: 0.818
Upper 95% CI..............: 1.14
Z-value...................: -0.413367
P-value...................: 0.679338
Hosmer and Lemeshow r^2...: 0.03841
Cox and Snell r^2.........: 0.051757
Nagelkerke's pseudo r^2...: 0.069071
Sample size of AE DB......: 2388
Sample size of model......: 620
Missing data %............: 74.03685
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes
1.1691 -0.2488 0.5069
Degrees of Freedom: 621 Total (i.e. Null); 619 Residual
Null Deviance: 643
Residual Deviance: 631.9 AIC: 637.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2145 0.3945 0.6231 0.7404 1.0366
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.397e+01 1.384e+03 0.010 0.9920
currentDF[, PROTEIN] -2.191e-01 1.036e-01 -2.115 0.0344 *
Age 3.352e-03 1.245e-02 0.269 0.7878
Gendermale -9.782e-02 2.254e-01 -0.434 0.6643
Hypertension.compositeyes 7.913e-02 3.052e-01 0.259 0.7954
DiabetesStatusDiabetes 2.197e-01 2.604e-01 0.844 0.3987
SmokerCurrentyes 5.167e-01 2.289e-01 2.257 0.0240 *
Med.Statin.LLDyes 1.046e-01 2.524e-01 0.414 0.6787
Med.all.antiplateletyes 6.134e-02 3.509e-01 0.175 0.8612
GFR_MDRD 5.423e-03 5.436e-03 0.998 0.3185
BMI 3.696e-02 2.912e-02 1.269 0.2045
CAD_history 2.907e-01 2.389e-01 1.217 0.2236
Stroke_history 1.541e-01 2.218e-01 0.695 0.4871
Peripheral.interv 1.196e-01 2.760e-01 0.433 0.6649
stenose50-70% -1.425e+01 1.384e+03 -0.010 0.9918
stenose70-90% -1.513e+01 1.384e+03 -0.011 0.9913
stenose90-99% -1.512e+01 1.384e+03 -0.011 0.9913
stenose100% (Occlusion) 3.704e-01 1.647e+03 0.000 0.9998
stenose70-99% 3.154e-01 2.190e+03 0.000 0.9999
LDL_final 1.246e-01 1.046e-01 1.192 0.2332
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 643.0 on 621 degrees of freedom
Residual deviance: 617.3 on 602 degrees of freedom
AIC: 657.3
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.219079
Standard error............: 0.103595
Odds ratio (effect size)..: 0.803
Lower 95% CI..............: 0.656
Upper 95% CI..............: 0.984
Z-value...................: -2.114772
P-value...................: 0.03444938
Hosmer and Lemeshow r^2...: 0.039977
Cox and Snell r^2.........: 0.040484
Nagelkerke's pseudo r^2...: 0.062831
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv + LDL_final,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv LDL_final
-0.0551 0.4691 0.9566 0.3535 -0.5271 0.1711
Degrees of Freedom: 621 Total (i.e. Null); 616 Residual
Null Deviance: 717.6
Residual Deviance: 660 AIC: 672
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3823 -0.9479 0.5924 0.7833 1.4736
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 12.858469 499.149839 0.026 0.9794
currentDF[, PROTEIN] 0.467195 0.101826 4.588 4.47e-06 ***
Age 0.003838 0.011769 0.326 0.7444
Gendermale 0.981790 0.208027 4.720 2.36e-06 ***
Hypertension.compositeyes 0.165307 0.297749 0.555 0.5788
DiabetesStatusDiabetes -0.102798 0.239740 -0.429 0.6681
SmokerCurrentyes 0.152551 0.213444 0.715 0.4748
Med.Statin.LLDyes -0.279226 0.256107 -1.090 0.2756
Med.all.antiplateletyes 0.210611 0.337766 0.624 0.5329
GFR_MDRD -0.004117 0.005317 -0.774 0.4388
BMI 0.014587 0.025497 0.572 0.5672
CAD_history 0.150945 0.226514 0.666 0.5052
Stroke_history 0.353781 0.221467 1.597 0.1102
Peripheral.interv -0.579450 0.239612 -2.418 0.0156 *
stenose50-70% -13.716620 499.148035 -0.027 0.9781
stenose70-90% -13.360306 499.147872 -0.027 0.9786
stenose90-99% -13.401952 499.147867 -0.027 0.9786
stenose100% (Occlusion) -14.231873 499.148478 -0.029 0.9773
stenose70-99% -14.409382 499.149988 -0.029 0.9770
LDL_final 0.152308 0.101184 1.505 0.1323
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 717.61 on 621 degrees of freedom
Residual deviance: 651.64 on 602 degrees of freedom
AIC: 691.64
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.467195
Standard error............: 0.101826
Odds ratio (effect size)..: 1.596
Lower 95% CI..............: 1.307
Upper 95% CI..............: 1.948
Z-value...................: 4.588153
P-value...................: 4.471852e-06
Hosmer and Lemeshow r^2...: 0.091923
Cox and Snell r^2.........: 0.100623
Nagelkerke's pseudo r^2...: 0.146995
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + CAD_history +
Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale SmokerCurrentyes Med.Statin.LLDyes
-1.75978 0.01881 0.57921 0.34166 -0.34769
Med.all.antiplateletyes CAD_history Stroke_history Peripheral.interv
0.61066 0.29144 0.30926 0.34737
Degrees of Freedom: 620 Total (i.e. Null); 612 Residual
Null Deviance: 814.3
Residual Deviance: 786.5 AIC: 804.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0242 -1.2532 0.7743 0.9517 1.3858
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.479246 1.769091 -1.401 0.1611
currentDF[, PROTEIN] 0.073565 0.088029 0.836 0.4033
Age 0.019453 0.010570 1.840 0.0657 .
Gendermale 0.616088 0.188818 3.263 0.0011 **
Hypertension.compositeyes 0.100506 0.262263 0.383 0.7016
DiabetesStatusDiabetes -0.108476 0.214973 -0.505 0.6138
SmokerCurrentyes 0.334411 0.190624 1.754 0.0794 .
Med.Statin.LLDyes -0.276525 0.223388 -1.238 0.2158
Med.all.antiplateletyes 0.602682 0.296079 2.036 0.0418 *
GFR_MDRD -0.002012 0.004711 -0.427 0.6693
BMI 0.013881 0.023105 0.601 0.5480
CAD_history 0.290876 0.203374 1.430 0.1526
Stroke_history 0.315478 0.192242 1.641 0.1008
Peripheral.interv 0.335048 0.234753 1.427 0.1535
stenose50-70% -0.140654 1.303328 -0.108 0.9141
stenose70-90% 0.056986 1.248890 0.046 0.9636
stenose90-99% 0.165129 1.247312 0.132 0.8947
stenose100% (Occlusion) 0.008095 1.474009 0.005 0.9956
stenose70-99% -0.823543 1.907537 -0.432 0.6659
LDL_final 0.078241 0.088311 0.886 0.3756
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 814.31 on 620 degrees of freedom
Residual deviance: 782.57 on 601 degrees of freedom
AIC: 822.57
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.073565
Standard error............: 0.088029
Odds ratio (effect size)..: 1.076
Lower 95% CI..............: 0.906
Upper 95% CI..............: 1.279
Z-value...................: 0.835693
P-value...................: 0.4033275
Hosmer and Lemeshow r^2...: 0.038982
Cox and Snell r^2.........: 0.049832
Nagelkerke's pseudo r^2...: 0.068213
Sample size of AE DB......: 2388
Sample size of model......: 621
Missing data %............: 73.99497
Analysis of IL6R_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
Peripheral.interv + stenose + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes Peripheral.interv stenose50-70%
13.3099 0.0214 0.3256 -0.3539 -15.0020
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose70-99% LDL_final
-14.3302 -14.2143 -13.5827 -29.4019 -0.1460
Degrees of Freedom: 613 Total (i.e. Null); 604 Residual
Null Deviance: 849.3
Residual Deviance: 826.6 AIC: 846.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6687 -1.1942 0.8591 1.1070 1.6325
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 12.728624 623.837081 0.020 0.9837
currentDF[, PROTEIN] -0.100966 0.086498 -1.167 0.2431
Age 0.023322 0.010485 2.224 0.0261 *
Gendermale 0.008490 0.184910 0.046 0.9634
Hypertension.compositeyes 0.227501 0.252033 0.903 0.3667
DiabetesStatusDiabetes -0.170953 0.211950 -0.807 0.4199
SmokerCurrentyes 0.358610 0.183428 1.955 0.0506 .
Med.Statin.LLDyes -0.206499 0.214384 -0.963 0.3354
Med.all.antiplateletyes 0.124408 0.297736 0.418 0.6761
GFR_MDRD 0.003341 0.004657 0.717 0.4731
BMI 0.008807 0.023091 0.381 0.7029
CAD_history 0.004566 0.193360 0.024 0.9812
Stroke_history -0.185775 0.181611 -1.023 0.3063
Peripheral.interv -0.354190 0.221874 -1.596 0.1104
stenose50-70% -15.051615 623.836044 -0.024 0.9808
stenose70-90% -14.308766 623.835926 -0.023 0.9817
stenose90-99% -14.199931 623.835923 -0.023 0.9818
stenose100% (Occlusion) -13.640920 623.836514 -0.022 0.9826
stenose70-99% -29.520435 870.648387 -0.034 0.9730
LDL_final -0.179057 0.087640 -2.043 0.0410 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 849.30 on 613 degrees of freedom
Residual deviance: 820.65 on 594 degrees of freedom
AIC: 860.65
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.100966
Standard error............: 0.086498
Odds ratio (effect size)..: 0.904
Lower 95% CI..............: 0.763
Upper 95% CI..............: 1.071
Z-value...................: -1.167258
P-value...................: 0.243106
Hosmer and Lemeshow r^2...: 0.033731
Cox and Snell r^2.........: 0.045586
Nagelkerke's pseudo r^2...: 0.060843
Sample size of AE DB......: 2388
Sample size of model......: 614
Missing data %............: 74.28811
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes
1.1229 0.4918
Degrees of Freedom: 615 Total (i.e. Null); 614 Residual
Null Deviance: 642.7
Residual Deviance: 637.2 AIC: 641.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1875 0.4255 0.6428 0.7528 1.0398
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.357e+01 1.696e+03 0.008 0.9936
currentDF[, PROTEIN] 4.242e-02 1.036e-01 0.410 0.6821
Age 5.963e-03 1.253e-02 0.476 0.6342
Gendermale -2.572e-03 2.218e-01 -0.012 0.9907
Hypertension.compositeyes -9.392e-04 3.017e-01 -0.003 0.9975
DiabetesStatusDiabetes 3.018e-01 2.631e-01 1.147 0.2513
SmokerCurrentyes 5.109e-01 2.287e-01 2.234 0.0255 *
Med.Statin.LLDyes 1.612e-01 2.533e-01 0.637 0.5244
Med.all.antiplateletyes 2.178e-01 3.457e-01 0.630 0.5287
GFR_MDRD 3.951e-03 5.534e-03 0.714 0.4753
BMI 3.821e-02 2.896e-02 1.319 0.1870
CAD_history 2.479e-01 2.368e-01 1.047 0.2951
Stroke_history 8.299e-02 2.202e-01 0.377 0.7063
Peripheral.interv 1.318e-01 2.762e-01 0.477 0.6331
stenose50-70% -1.413e+01 1.696e+03 -0.008 0.9934
stenose70-90% -1.508e+01 1.696e+03 -0.009 0.9929
stenose90-99% -1.498e+01 1.696e+03 -0.009 0.9930
stenose100% (Occlusion) 5.714e-01 1.918e+03 0.000 0.9998
stenose70-99% 6.645e-01 2.399e+03 0.000 0.9998
LDL_final 1.168e-01 1.055e-01 1.107 0.2683
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 642.71 on 615 degrees of freedom
Residual deviance: 622.38 on 596 degrees of freedom
AIC: 662.38
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.042418
Standard error............: 0.103555
Odds ratio (effect size)..: 1.043
Lower 95% CI..............: 0.852
Upper 95% CI..............: 1.278
Z-value...................: 0.409621
P-value...................: 0.6820839
Hosmer and Lemeshow r^2...: 0.031636
Cox and Snell r^2.........: 0.032469
Nagelkerke's pseudo r^2...: 0.050127
Sample size of AE DB......: 2388
Sample size of model......: 616
Missing data %............: 74.20436
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Stroke_history +
Peripheral.interv + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Stroke_history Peripheral.interv LDL_final
-0.1296 0.9069 0.4893 -0.5359 0.1945
Degrees of Freedom: 615 Total (i.e. Null); 611 Residual
Null Deviance: 705.7
Residual Deviance: 669.9 AIC: 679.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2447 -1.0798 0.6262 0.7779 1.3515
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 13.310670 623.678659 0.021 0.9830
currentDF[, PROTEIN] 0.034199 0.099179 0.345 0.7302
Age 0.002162 0.012062 0.179 0.8578
Gendermale 0.945942 0.205147 4.611 4.01e-06 ***
Hypertension.compositeyes 0.185795 0.287996 0.645 0.5188
DiabetesStatusDiabetes -0.050143 0.241878 -0.207 0.8358
SmokerCurrentyes 0.200981 0.211717 0.949 0.3425
Med.Statin.LLDyes -0.259883 0.259751 -1.001 0.3171
Med.all.antiplateletyes 0.190832 0.342756 0.557 0.5777
GFR_MDRD -0.002988 0.005464 -0.547 0.5845
BMI -0.009114 0.026181 -0.348 0.7278
CAD_history 0.043912 0.222949 0.197 0.8439
Stroke_history 0.471988 0.220383 2.142 0.0322 *
Peripheral.interv -0.587090 0.239216 -2.454 0.0141 *
stenose50-70% -13.713838 623.677282 -0.022 0.9825
stenose70-90% -13.172205 623.677152 -0.021 0.9831
stenose90-99% -13.285582 623.677146 -0.021 0.9830
stenose100% (Occlusion) -14.098075 623.677650 -0.023 0.9820
stenose70-99% -14.625391 623.678836 -0.023 0.9813
LDL_final 0.163890 0.102288 1.602 0.1091
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 705.67 on 615 degrees of freedom
Residual deviance: 662.35 on 596 degrees of freedom
AIC: 702.35
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.034199
Standard error............: 0.099179
Odds ratio (effect size)..: 1.035
Lower 95% CI..............: 0.852
Upper 95% CI..............: 1.257
Z-value...................: 0.344821
P-value...................: 0.7302291
Hosmer and Lemeshow r^2...: 0.061387
Cox and Snell r^2.........: 0.067907
Nagelkerke's pseudo r^2...: 0.099577
Sample size of AE DB......: 2388
Sample size of model......: 616
Missing data %............: 74.20436
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + Stroke_history + Peripheral.interv +
LDL_final, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
-2.07785 0.13314 0.01767 0.65321 0.48369
Stroke_history Peripheral.interv LDL_final
0.29070 0.40758 0.12410
Degrees of Freedom: 614 Total (i.e. Null); 607 Residual
Null Deviance: 809.9
Residual Deviance: 785.9 AIC: 801.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0019 -1.2521 0.7763 0.9615 1.3905
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.1641077 1.9053663 -1.136 0.256042
currentDF[, PROTEIN] 0.1088200 0.0895386 1.215 0.224236
Age 0.0163295 0.0108111 1.510 0.130932
Gendermale 0.6517166 0.1888045 3.452 0.000557 ***
Hypertension.compositeyes 0.1030330 0.2576892 0.400 0.689279
DiabetesStatusDiabetes -0.1919952 0.2164323 -0.887 0.375030
SmokerCurrentyes 0.2857827 0.1913494 1.494 0.135303
Med.Statin.LLDyes -0.2228589 0.2268089 -0.983 0.325812
Med.all.antiplateletyes 0.5088318 0.3038315 1.675 0.093990 .
GFR_MDRD -0.0037458 0.0048722 -0.769 0.442005
BMI -0.0006517 0.0236286 -0.028 0.977995
CAD_history 0.2608588 0.2031769 1.284 0.199177
Stroke_history 0.3035600 0.1922447 1.579 0.114329
Peripheral.interv 0.3490620 0.2385831 1.463 0.143450
stenose50-70% 0.3834730 1.4877947 0.258 0.796603
stenose70-90% 0.4822793 1.4379089 0.335 0.737321
stenose90-99% 0.5349906 1.4365213 0.372 0.709579
stenose100% (Occlusion) 0.4214479 1.6385851 0.257 0.797023
stenose70-99% -0.3476959 2.0349403 -0.171 0.864332
LDL_final 0.0870989 0.0901723 0.966 0.334086
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 809.93 on 614 degrees of freedom
Residual deviance: 779.36 on 595 degrees of freedom
AIC: 819.36
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.10882
Standard error............: 0.089539
Odds ratio (effect size)..: 1.115
Lower 95% CI..............: 0.935
Upper 95% CI..............: 1.329
Z-value...................: 1.215341
P-value...................: 0.2242361
Hosmer and Lemeshow r^2...: 0.037739
Cox and Snell r^2.........: 0.048486
Nagelkerke's pseudo r^2...: 0.066233
Sample size of AE DB......: 2388
Sample size of model......: 615
Missing data %............: 74.24623
Analysis of MCP1_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + Peripheral.interv + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes Peripheral.interv LDL_final
-1.34079 -0.39792 0.02462 0.40432 -0.30868 -0.11552
Degrees of Freedom: 635 Total (i.e. Null); 630 Residual
Null Deviance: 880.3
Residual Deviance: 840 AIC: 852
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8218 -1.1434 0.7217 1.0746 1.8206
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.817023 1.746256 -1.041 0.29810
currentDF[, PROTEIN] -0.399085 0.084476 -4.724 2.31e-06 ***
Age 0.028293 0.010412 2.717 0.00658 **
Gendermale 0.078341 0.185488 0.422 0.67277
Hypertension.compositeyes 0.161837 0.253933 0.637 0.52392
DiabetesStatusDiabetes -0.110912 0.210609 -0.527 0.59845
SmokerCurrentyes 0.436300 0.184027 2.371 0.01775 *
Med.Statin.LLDyes -0.262370 0.212952 -1.232 0.21793
Med.all.antiplateletyes 0.181594 0.292060 0.622 0.53409
GFR_MDRD 0.003821 0.004546 0.840 0.40070
BMI 0.013442 0.022487 0.598 0.55000
CAD_history 0.039467 0.193046 0.204 0.83801
Stroke_history -0.130531 0.182804 -0.714 0.47520
Peripheral.interv -0.358151 0.221203 -1.619 0.10542
stenose50-70% -1.278641 1.309167 -0.977 0.32873
stenose70-90% -0.382827 1.248198 -0.307 0.75907
stenose90-99% -0.361105 1.246825 -0.290 0.77211
stenose100% (Occlusion) 0.094999 1.515418 0.063 0.95001
stenose70-99% -15.461099 595.304646 -0.026 0.97928
LDL_final -0.149867 0.087204 -1.719 0.08569 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 880.27 on 635 degrees of freedom
Residual deviance: 826.32 on 616 degrees of freedom
AIC: 866.32
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.399085
Standard error............: 0.084476
Odds ratio (effect size)..: 0.671
Lower 95% CI..............: 0.569
Upper 95% CI..............: 0.792
Z-value...................: -4.724228
P-value...................: 2.309916e-06
Hosmer and Lemeshow r^2...: 0.061283
Cox and Snell r^2.........: 0.081322
Nagelkerke's pseudo r^2...: 0.108509
Sample size of AE DB......: 2388
Sample size of model......: 636
Missing data %............: 73.36683
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes
1.1665 -0.2621 0.5075
Degrees of Freedom: 637 Total (i.e. Null); 635 Residual
Null Deviance: 658.5
Residual Deviance: 644.7 AIC: 650.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2941 0.3843 0.6168 0.7386 1.1162
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.370e+01 1.384e+03 0.010 0.99210
currentDF[, PROTEIN] -2.590e-01 9.751e-02 -2.657 0.00789 **
Age 4.463e-03 1.241e-02 0.360 0.71918
Gendermale -1.234e-02 2.222e-01 -0.056 0.95570
Hypertension.compositeyes -4.807e-02 3.030e-01 -0.159 0.87395
DiabetesStatusDiabetes 2.668e-01 2.602e-01 1.025 0.30517
SmokerCurrentyes 5.095e-01 2.285e-01 2.230 0.02577 *
Med.Statin.LLDyes 1.431e-01 2.509e-01 0.570 0.56847
Med.all.antiplateletyes 8.843e-02 3.421e-01 0.259 0.79601
GFR_MDRD 4.884e-03 5.411e-03 0.903 0.36673
BMI 4.008e-02 2.882e-02 1.391 0.16431
CAD_history 2.587e-01 2.349e-01 1.101 0.27074
Stroke_history 1.059e-01 2.196e-01 0.482 0.62957
Peripheral.interv 1.538e-01 2.756e-01 0.558 0.57682
stenose50-70% -1.421e+01 1.384e+03 -0.010 0.99181
stenose70-90% -1.508e+01 1.384e+03 -0.011 0.99130
stenose90-99% -1.502e+01 1.384e+03 -0.011 0.99134
stenose100% (Occlusion) 2.773e-01 1.651e+03 0.000 0.99987
stenose70-99% 6.816e-01 2.189e+03 0.000 0.99975
LDL_final 1.548e-01 1.051e-01 1.473 0.14083
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 658.50 on 637 degrees of freedom
Residual deviance: 629.52 on 618 degrees of freedom
AIC: 669.52
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.259041
Standard error............: 0.097506
Odds ratio (effect size)..: 0.772
Lower 95% CI..............: 0.638
Upper 95% CI..............: 0.934
Z-value...................: -2.656673
P-value...................: 0.007891602
Hosmer and Lemeshow r^2...: 0.044018
Cox and Snell r^2.........: 0.044416
Nagelkerke's pseudo r^2...: 0.068995
Sample size of AE DB......: 2388
Sample size of model......: 638
Missing data %............: 73.28308
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Stroke_history +
Peripheral.interv + LDL_final, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Stroke_history Peripheral.interv LDL_final
-0.1173 0.9603 0.4530 -0.4809 0.1684
Degrees of Freedom: 637 Total (i.e. Null); 633 Residual
Null Deviance: 737.7
Residual Deviance: 700.3 AIC: 710.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2911 -1.0945 0.6282 0.7934 1.3752
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.338e+01 5.031e+02 0.027 0.9788
currentDF[, PROTEIN] 1.202e-01 9.253e-02 1.299 0.1940
Age 1.348e-03 1.157e-02 0.117 0.9072
Gendermale 9.977e-01 2.005e-01 4.976 6.5e-07 ***
Hypertension.compositeyes 2.073e-01 2.844e-01 0.729 0.4660
DiabetesStatusDiabetes -1.147e-01 2.332e-01 -0.492 0.6227
SmokerCurrentyes 2.294e-01 2.070e-01 1.108 0.2678
Med.Statin.LLDyes -2.872e-01 2.521e-01 -1.139 0.2546
Med.all.antiplateletyes 2.759e-01 3.253e-01 0.848 0.3965
GFR_MDRD -5.717e-03 5.177e-03 -1.104 0.2695
BMI 8.212e-04 2.472e-02 0.033 0.9735
CAD_history 4.738e-02 2.173e-01 0.218 0.8274
Stroke_history 4.034e-01 2.162e-01 1.866 0.0620 .
Peripheral.interv -5.442e-01 2.343e-01 -2.323 0.0202 *
stenose50-70% -1.370e+01 5.031e+02 -0.027 0.9783
stenose70-90% -1.326e+01 5.031e+02 -0.026 0.9790
stenose90-99% -1.340e+01 5.031e+02 -0.027 0.9788
stenose100% (Occlusion) -1.410e+01 5.031e+02 -0.028 0.9776
stenose70-99% -1.479e+01 5.031e+02 -0.029 0.9765
LDL_final 1.304e-01 9.848e-02 1.324 0.1856
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 737.67 on 637 degrees of freedom
Residual deviance: 688.83 on 618 degrees of freedom
AIC: 728.83
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.120194
Standard error............: 0.092531
Odds ratio (effect size)..: 1.128
Lower 95% CI..............: 0.941
Upper 95% CI..............: 1.352
Z-value...................: 1.298962
P-value...................: 0.193957
Hosmer and Lemeshow r^2...: 0.0662
Cox and Snell r^2.........: 0.073686
Nagelkerke's pseudo r^2...: 0.10752
Sample size of AE DB......: 2388
Sample size of model......: 638
Missing data %............: 73.28308
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet +
CAD_history + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale SmokerCurrentyes
-1.67915 -0.12054 0.01775 0.61982 0.34171
Med.Statin.LLDyes Med.all.antiplateletyes CAD_history Stroke_history Peripheral.interv
-0.43459 0.59803 0.30304 0.37355 0.40386
Degrees of Freedom: 636 Total (i.e. Null); 627 Residual
Null Deviance: 837.7
Residual Deviance: 804.1 AIC: 824.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9427 -1.2478 0.7625 0.9458 1.5222
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.127639 1.772751 -1.200 0.23007
currentDF[, PROTEIN] -0.131427 0.083463 -1.575 0.11533
Age 0.017852 0.010561 1.690 0.09095 .
Gendermale 0.657838 0.186851 3.521 0.00043 ***
Hypertension.compositeyes 0.037915 0.257418 0.147 0.88290
DiabetesStatusDiabetes -0.150861 0.212631 -0.709 0.47802
SmokerCurrentyes 0.335587 0.188712 1.778 0.07535 .
Med.Statin.LLDyes -0.375382 0.224150 -1.675 0.09399 .
Med.all.antiplateletyes 0.592618 0.292041 2.029 0.04244 *
GFR_MDRD -0.002568 0.004689 -0.548 0.58388
BMI 0.007938 0.022724 0.349 0.72684
CAD_history 0.304739 0.199481 1.528 0.12660
Stroke_history 0.391671 0.191529 2.045 0.04086 *
Peripheral.interv 0.399298 0.234514 1.703 0.08863 .
stenose50-70% -0.123512 1.318453 -0.094 0.92536
stenose70-90% 0.121608 1.264382 0.096 0.92338
stenose90-99% 0.190347 1.262909 0.151 0.88020
stenose100% (Occlusion) -0.048944 1.488937 -0.033 0.97378
stenose70-99% -0.908097 1.915050 -0.474 0.63536
LDL_final 0.073318 0.088201 0.831 0.40583
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 837.69 on 636 degrees of freedom
Residual deviance: 801.03 on 617 degrees of freedom
AIC: 841.03
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: -0.131427
Standard error............: 0.083463
Odds ratio (effect size)..: 0.877
Lower 95% CI..............: 0.745
Upper 95% CI..............: 1.033
Z-value...................: -1.574674
P-value...................: 0.1153318
Hosmer and Lemeshow r^2...: 0.043766
Cox and Snell r^2.........: 0.05593
Nagelkerke's pseudo r^2...: 0.076455
Sample size of AE DB......: 2388
Sample size of model......: 637
Missing data %............: 73.32496 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.PlaquePhenotypes.RANK.MODEL3.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Model 4
In this model we correct for Age, Gender, Hypertension status, Diabetes status, current smoker status, lipid-lowering drugs (LLDs), antiplatelet medication, eGFR (MDRD), BMI, CAD history, stroke history, peripheral interventions, stenosis, and hsCRP.
Natural log-transformed data
First we use the natural-log transformed data.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON)) {
TRAIT = TRAITS.CON[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M4) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + hsCRP_plasma,
data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing Macrophages_LNNote: Using an external vector in selections is ambiguous.
[34mℹ[39m Use `all_of(COVARIATES_M4)` instead of `COVARIATES_M4` to silence this message.
[34mℹ[39m See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
[90mThis message is displayed once per session.[39m
Call:
lm(formula = currentDF[, PROTEIN] ~ DiabetesStatus + GFR_MDRD +
CAD_history + hsCRP_plasma, data = currentDF)
Coefficients:
(Intercept) DiabetesStatusDiabetes GFR_MDRD CAD_history hsCRP_plasma
3.332070 -0.355918 0.008097 0.225954 0.002694
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.8586 -0.7513 -0.0263 0.6686 3.7591
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 7.154970 1.598166 4.477 1.27e-05 ***
currentDF[, TRAIT] -0.042782 0.036352 -1.177 0.2406
Age -0.008560 0.010390 -0.824 0.4110
Gendermale -0.137008 0.170390 -0.804 0.4223
Hypertension.compositeyes -0.077102 0.218758 -0.352 0.7249
DiabetesStatusDiabetes -0.347297 0.210691 -1.648 0.1008
SmokerCurrentyes -0.008344 0.158557 -0.053 0.9581
Med.Statin.LLDyes -0.081304 0.160921 -0.505 0.6139
Med.all.antiplateletyes -0.161602 0.287511 -0.562 0.5747
GFR_MDRD 0.007092 0.004574 1.551 0.1226
BMI -0.007852 0.019866 -0.395 0.6931
CAD_history 0.307826 0.162579 1.893 0.0597 .
Stroke_history -0.083226 0.160434 -0.519 0.6045
Peripheral.interv 0.072404 0.180065 0.402 0.6880
stenose50-70% -2.941763 1.216350 -2.419 0.0165 *
stenose70-90% -2.647244 1.081787 -2.447 0.0153 *
stenose90-99% -2.691171 1.078445 -2.495 0.0134 *
stenose100% (Occlusion) -3.243744 1.269621 -2.555 0.0114 *
hsCRP_plasma 0.002608 0.001766 1.477 0.1413
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.046 on 201 degrees of freedom
Multiple R-squared: 0.09531, Adjusted R-squared: 0.0143
F-statistic: 1.176 on 18 and 201 DF, p-value: 0.2834
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.042782
Standard error............: 0.036352
Odds ratio (effect size)..: 0.958
Lower 95% CI..............: 0.892
Upper 95% CI..............: 1.029
T-value...................: -1.176897
P-value...................: 0.2406286
R^2.......................: 0.095313
Adjusted r^2..............: 0.014297
Sample size of AE DB......: 2388
Sample size of model......: 220
Missing data %............: 90.78727
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ DiabetesStatus + GFR_MDRD +
Peripheral.interv, data = currentDF)
Coefficients:
(Intercept) DiabetesStatusDiabetes GFR_MDRD Peripheral.interv
3.513131 -0.349405 0.006456 0.283408
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.0429 -0.7102 -0.0068 0.7129 3.6927
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 7.5280157 1.5680212 4.801 3.02e-06 ***
currentDF[, TRAIT] -0.0582733 0.0534464 -1.090 0.2768
Age -0.0115157 0.0099316 -1.159 0.2476
Gendermale -0.1584798 0.1660816 -0.954 0.3411
Hypertension.compositeyes -0.1237622 0.2072961 -0.597 0.5511
DiabetesStatusDiabetes -0.3232686 0.2061713 -1.568 0.1184
SmokerCurrentyes -0.0725585 0.1555184 -0.467 0.6413
Med.Statin.LLDyes -0.1180983 0.1583704 -0.746 0.4567
Med.all.antiplateletyes -0.1487709 0.2863161 -0.520 0.6039
GFR_MDRD 0.0063622 0.0045939 1.385 0.1676
BMI -0.0154651 0.0190781 -0.811 0.4185
CAD_history 0.2714892 0.1624776 1.671 0.0962 .
Stroke_history -0.0335464 0.1577675 -0.213 0.8318
Peripheral.interv 0.1904502 0.1814237 1.050 0.2951
stenose50-70% -2.6864090 1.2205761 -2.201 0.0288 *
stenose70-90% -2.3757456 1.0827885 -2.194 0.0293 *
stenose90-99% -2.4339008 1.0785472 -2.257 0.0251 *
stenose100% (Occlusion) -3.0893634 1.2658256 -2.441 0.0155 *
hsCRP_plasma 0.0003386 0.0007429 0.456 0.6491
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.047 on 207 degrees of freedom
Multiple R-squared: 0.08992, Adjusted R-squared: 0.01078
F-statistic: 1.136 on 18 and 207 DF, p-value: 0.3191
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.058273
Standard error............: 0.053446
Odds ratio (effect size)..: 0.943
Lower 95% CI..............: 0.85
Upper 95% CI..............: 1.048
T-value...................: -1.090312
P-value...................: 0.2768431
R^2.......................: 0.08992
Adjusted r^2..............: 0.010783
Sample size of AE DB......: 2388
Sample size of model......: 226
Missing data %............: 90.53601
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ DiabetesStatus + GFR_MDRD +
CAD_history, data = currentDF)
Coefficients:
(Intercept) DiabetesStatusDiabetes GFR_MDRD CAD_history
3.31816 -0.33383 0.00915 0.22071
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.8724 -0.7374 -0.0104 0.7630 3.5688
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 7.8007864 1.5987118 4.879 2.16e-06 ***
currentDF[, TRAIT] -0.1517641 0.1088994 -1.394 0.1650
Age -0.0130366 0.0099970 -1.304 0.1937
Gendermale -0.1134130 0.1662476 -0.682 0.4959
Hypertension.compositeyes -0.0308333 0.2126787 -0.145 0.8849
DiabetesStatusDiabetes -0.3325556 0.2078262 -1.600 0.1111
SmokerCurrentyes -0.0433421 0.1550346 -0.280 0.7801
Med.Statin.LLDyes -0.0542840 0.1579050 -0.344 0.7314
Med.all.antiplateletyes -0.0819246 0.2909088 -0.282 0.7785
GFR_MDRD 0.0070069 0.0045972 1.524 0.1290
BMI -0.0124769 0.0189975 -0.657 0.5121
CAD_history 0.2953265 0.1628940 1.813 0.0713 .
Stroke_history -0.0637634 0.1565213 -0.407 0.6842
Peripheral.interv 0.1249545 0.1795735 0.696 0.4873
stenose50-70% -2.9441863 1.2085588 -2.436 0.0157 *
stenose70-90% -2.6033879 1.0757426 -2.420 0.0164 *
stenose90-99% -2.6655527 1.0725854 -2.485 0.0138 *
stenose100% (Occlusion) -2.4618653 1.3467240 -1.828 0.0690 .
hsCRP_plasma 0.0004629 0.0007375 0.628 0.5310
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.038 on 201 degrees of freedom
Multiple R-squared: 0.1014, Adjusted R-squared: 0.02092
F-statistic: 1.26 on 18 and 201 DF, p-value: 0.2177
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.151764
Standard error............: 0.108899
Odds ratio (effect size)..: 0.859
Lower 95% CI..............: 0.694
Upper 95% CI..............: 1.064
T-value...................: -1.393618
P-value...................: 0.164972
R^2.......................: 0.101392
Adjusted r^2..............: 0.02092
Sample size of AE DB......: 2388
Sample size of model......: 220
Missing data %............: 90.78727
Analysis of MCP1_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Gender + Hypertension.composite +
Med.Statin.LLD, data = currentDF)
Coefficients:
(Intercept) Age Gendermale Hypertension.compositeyes Med.Statin.LLDyes
5.55361 -0.01045 0.34756 -0.28582 -0.23751
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2514 -0.5954 0.1000 0.5746 1.8421
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 7.230223 1.238018 5.840 1.6e-08 ***
currentDF[, TRAIT] 0.023207 0.027834 0.834 0.40521
Age -0.014468 0.007419 -1.950 0.05229 .
Gendermale 0.332433 0.123271 2.697 0.00747 **
Hypertension.compositeyes -0.329740 0.157218 -2.097 0.03696 *
DiabetesStatusDiabetes -0.100619 0.150749 -0.667 0.50509
SmokerCurrentyes -0.097936 0.117929 -0.830 0.40706
Med.Statin.LLDyes -0.245651 0.122705 -2.002 0.04636 *
Med.all.antiplateletyes -0.049214 0.214926 -0.229 0.81907
GFR_MDRD -0.000930 0.003266 -0.285 0.77608
BMI -0.008874 0.014138 -0.628 0.53077
CAD_history 0.130210 0.122869 1.060 0.29027
Stroke_history -0.069389 0.119888 -0.579 0.56325
Peripheral.interv -0.127172 0.136891 -0.929 0.35378
stenose50-70% -1.096950 0.983505 -1.115 0.26576
stenose70-90% -0.885463 0.896243 -0.988 0.32411
stenose90-99% -0.915352 0.895230 -1.022 0.30754
stenose100% (Occlusion) -2.251892 1.040082 -2.165 0.03132 *
hsCRP_plasma -0.000126 0.001446 -0.087 0.93063
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8735 on 252 degrees of freedom
Multiple R-squared: 0.1049, Adjusted R-squared: 0.04097
F-statistic: 1.641 on 18 and 252 DF, p-value: 0.05087
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.023206
Standard error............: 0.027834
Odds ratio (effect size)..: 1.023
Lower 95% CI..............: 0.969
Upper 95% CI..............: 1.081
T-value...................: 0.833751
P-value...................: 0.4052109
R^2.......................: 0.104906
Adjusted r^2..............: 0.040971
Sample size of AE DB......: 2388
Sample size of model......: 271
Missing data %............: 88.65159
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.Statin.LLD + stenose,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
6.62249 -0.10860 -0.01512 0.37129 -0.30505
Med.Statin.LLDyes stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
-0.24448 -0.76334 -0.72115 -0.71934 -2.12656
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.10855 -0.58245 0.01592 0.59716 1.91247
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 7.294e+00 1.196e+00 6.099 3.89e-09 ***
currentDF[, TRAIT] -1.086e-01 3.656e-02 -2.971 0.00325 **
Age -1.758e-02 7.046e-03 -2.496 0.01320 *
Gendermale 3.277e-01 1.187e-01 2.760 0.00620 **
Hypertension.compositeyes -3.428e-01 1.483e-01 -2.312 0.02155 *
DiabetesStatusDiabetes -8.723e-02 1.464e-01 -0.596 0.55176
SmokerCurrentyes -1.007e-01 1.130e-01 -0.891 0.37373
Med.Statin.LLDyes -2.400e-01 1.189e-01 -2.018 0.04460 *
Med.all.antiplateletyes -8.667e-02 2.097e-01 -0.413 0.67969
GFR_MDRD 2.996e-05 3.182e-03 0.009 0.99250
BMI -5.124e-03 1.346e-02 -0.381 0.70382
CAD_history 1.832e-01 1.202e-01 1.524 0.12871
Stroke_history -1.968e-02 1.158e-01 -0.170 0.86514
Peripheral.interv -1.622e-01 1.339e-01 -1.211 0.22711
stenose50-70% -1.037e+00 9.639e-01 -1.076 0.28306
stenose70-90% -9.141e-01 8.774e-01 -1.042 0.29843
stenose90-99% -9.206e-01 8.757e-01 -1.051 0.29414
stenose100% (Occlusion) -2.393e+00 1.016e+00 -2.356 0.01925 *
hsCRP_plasma 1.276e-04 6.039e-04 0.211 0.83279
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8557 on 258 degrees of freedom
Multiple R-squared: 0.1382, Adjusted R-squared: 0.07811
F-statistic: 2.299 on 18 and 258 DF, p-value: 0.002402
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.108601
Standard error............: 0.036558
Odds ratio (effect size)..: 0.897
Lower 95% CI..............: 0.835
Upper 95% CI..............: 0.964
T-value...................: -2.970624
P-value...................: 0.003252192
R^2.......................: 0.138234
Adjusted r^2..............: 0.07811
Sample size of AE DB......: 2388
Sample size of model......: 277
Missing data %............: 88.40033
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Gender + Hypertension.composite +
Med.Statin.LLD + stenose, data = currentDF)
Coefficients:
(Intercept) Age Gendermale Hypertension.compositeyes Med.Statin.LLDyes
6.45526 -0.01313 0.42480 -0.29184 -0.24996
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
-0.88050 -0.74244 -0.74446 -2.08812
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2211 -0.5497 0.0680 0.5714 1.9122
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 7.2769935 1.2463069 5.839 1.61e-08 ***
currentDF[, TRAIT] -0.0485649 0.0770553 -0.630 0.52909
Age -0.0153724 0.0072135 -2.131 0.03405 *
Gendermale 0.3816541 0.1223969 3.118 0.00203 **
Hypertension.compositeyes -0.3179798 0.1523841 -2.087 0.03792 *
DiabetesStatusDiabetes -0.0979577 0.1491193 -0.657 0.51184
SmokerCurrentyes -0.1164997 0.1155608 -1.008 0.31436
Med.Statin.LLDyes -0.2397153 0.1214925 -1.973 0.04957 *
Med.all.antiplateletyes -0.0723110 0.2129965 -0.339 0.73452
GFR_MDRD 0.0002343 0.0032848 0.071 0.94320
BMI -0.0081189 0.0136832 -0.593 0.55348
CAD_history 0.1596758 0.1233051 1.295 0.19651
Stroke_history -0.0527180 0.1178355 -0.447 0.65498
Peripheral.interv -0.1166770 0.1375548 -0.848 0.39712
stenose50-70% -1.1744730 0.9795354 -1.199 0.23165
stenose70-90% -0.9491066 0.8939936 -1.062 0.28941
stenose90-99% -0.9603463 0.8920512 -1.077 0.28270
stenose100% (Occlusion) -2.3642172 1.0347919 -2.285 0.02316 *
hsCRP_plasma 0.0001594 0.0006141 0.259 0.79547
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8689 on 253 degrees of freedom
Multiple R-squared: 0.1154, Adjusted R-squared: 0.05245
F-statistic: 1.833 on 18 and 253 DF, p-value: 0.02208
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.048565
Standard error............: 0.077055
Odds ratio (effect size)..: 0.953
Lower 95% CI..............: 0.819
Upper 95% CI..............: 1.108
T-value...................: -0.63026
P-value...................: 0.5290932
R^2.......................: 0.115389
Adjusted r^2..............: 0.052452
Sample size of AE DB......: 2388
Sample size of model......: 272
Missing data %............: 88.60971
Analysis of IL6_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + CAD_history +
Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] CAD_history Stroke_history
-3.0888 0.1093 -0.3774 0.3903
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.5508 -0.8878 0.0457 0.8449 4.8428
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.4222537 1.2000578 -2.018 0.044005 *
currentDF[, TRAIT] 0.1088754 0.0316577 3.439 0.000626 ***
Age -0.0089860 0.0074745 -1.202 0.229772
Gendermale 0.0975047 0.1296461 0.752 0.452306
Hypertension.compositeyes -0.0224749 0.1802234 -0.125 0.900800
DiabetesStatusDiabetes 0.0386768 0.1479191 0.261 0.793821
SmokerCurrentyes 0.0852958 0.1298546 0.657 0.511535
Med.Statin.LLDyes -0.1932175 0.1432745 -1.349 0.177998
Med.all.antiplateletyes 0.0843741 0.2046690 0.412 0.680311
GFR_MDRD -0.0032847 0.0032672 -1.005 0.315152
BMI -0.0184962 0.0160116 -1.155 0.248496
CAD_history -0.3320098 0.1363873 -2.434 0.015221 *
Stroke_history 0.3735926 0.1282652 2.913 0.003722 **
Peripheral.interv -0.0317326 0.1514970 -0.209 0.834163
stenose50-70% 0.4969845 0.8633049 0.576 0.565057
stenose70-90% 0.7618668 0.8303871 0.917 0.359271
stenose90-99% 0.5369724 0.8302994 0.647 0.518069
stenose100% (Occlusion) 1.0861297 1.0996247 0.988 0.323699
stenose70-99% 1.4968708 1.1666027 1.283 0.199970
hsCRP_plasma 0.0003995 0.0005636 0.709 0.478709
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.423 on 579 degrees of freedom
Multiple R-squared: 0.07298, Adjusted R-squared: 0.04256
F-statistic: 2.399 on 19 and 579 DF, p-value: 0.0008015
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.108875
Standard error............: 0.031658
Odds ratio (effect size)..: 1.115
Lower 95% CI..............: 1.048
Upper 95% CI..............: 1.186
T-value...................: 3.439142
P-value...................: 0.0006255322
R^2.......................: 0.072977
Adjusted r^2..............: 0.042557
Sample size of AE DB......: 2388
Sample size of model......: 599
Missing data %............: 74.91625
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + CAD_history + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes CAD_history Stroke_history
-2.27598 -0.13586 -0.01229 -0.21418 -0.28862 0.41719
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.3182 -0.8724 0.0207 0.8745 4.5800
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.5608054 1.1899666 -2.152 0.03181 *
currentDF[, TRAIT] -0.1279810 0.0417212 -3.068 0.00226 **
Age -0.0136454 0.0073632 -1.853 0.06436 .
Gendermale 0.0953330 0.1289844 0.739 0.46014
Hypertension.compositeyes 0.0065689 0.1771091 0.037 0.97043
DiabetesStatusDiabetes 0.0604255 0.1478941 0.409 0.68300
SmokerCurrentyes 0.0614024 0.1288767 0.476 0.63394
Med.Statin.LLDyes -0.2091099 0.1414530 -1.478 0.13986
Med.all.antiplateletyes 0.0606548 0.2050098 0.296 0.76744
GFR_MDRD -0.0023243 0.0032865 -0.707 0.47970
BMI -0.0118293 0.0157425 -0.751 0.45270
CAD_history -0.3029891 0.1361979 -2.225 0.02649 *
Stroke_history 0.3925245 0.1273728 3.082 0.00215 **
Peripheral.interv -0.0479725 0.1512385 -0.317 0.75121
stenose50-70% 0.4905981 0.8624027 0.569 0.56966
stenose70-90% 0.7947610 0.8310592 0.956 0.33930
stenose90-99% 0.6256534 0.8314988 0.752 0.45209
stenose100% (Occlusion) 1.0784576 1.0999095 0.980 0.32725
stenose70-99% 1.6124436 1.1671141 1.382 0.16763
hsCRP_plasma 0.0004751 0.0005016 0.947 0.34395
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.423 on 586 degrees of freedom
Multiple R-squared: 0.0681, Adjusted R-squared: 0.03788
F-statistic: 2.254 on 19 and 586 DF, p-value: 0.001815
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.127981
Standard error............: 0.041721
Odds ratio (effect size)..: 0.88
Lower 95% CI..............: 0.811
Upper 95% CI..............: 0.955
T-value...................: -3.067533
P-value...................: 0.002257945
R^2.......................: 0.068098
Adjusted r^2..............: 0.037882
Sample size of AE DB......: 2388
Sample size of model......: 606
Missing data %............: 74.62312
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
CAD_history + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes CAD_history Stroke_history
-2.8844 -0.1347 -0.2053 -0.3254 0.4094
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.4486 -0.8206 0.0114 0.8406 4.5942
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -2.1804508 1.2366293 -1.763 0.07844 .
currentDF[, TRAIT] -0.1363934 0.0698575 -1.952 0.05141 .
Age -0.0090416 0.0077252 -1.170 0.24236
Gendermale 0.0851619 0.1349328 0.631 0.52822
Hypertension.compositeyes -0.0401191 0.1873976 -0.214 0.83056
DiabetesStatusDiabetes 0.0529991 0.1572577 0.337 0.73623
SmokerCurrentyes 0.1252375 0.1365104 0.917 0.35934
Med.Statin.LLDyes -0.2091830 0.1489028 -1.405 0.16066
Med.all.antiplateletyes -0.0138050 0.2249842 -0.061 0.95110
GFR_MDRD -0.0025894 0.0035298 -0.734 0.46353
BMI -0.0152657 0.0163816 -0.932 0.35182
CAD_history -0.2779734 0.1444831 -1.924 0.05490 .
Stroke_history 0.3829146 0.1349112 2.838 0.00471 **
Peripheral.interv -0.0375603 0.1617412 -0.232 0.81645
stenose50-70% 0.1874127 0.8794295 0.213 0.83133
stenose70-90% 0.5433789 0.8400991 0.647 0.51804
stenose90-99% 0.3455578 0.8393161 0.412 0.68072
stenose100% (Occlusion) 0.8137303 1.1099752 0.733 0.46382
stenose70-99% 2.9446594 1.6628302 1.771 0.07715 .
hsCRP_plasma 0.0006493 0.0008577 0.757 0.44933
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.433 on 532 degrees of freedom
Multiple R-squared: 0.06303, Adjusted R-squared: 0.02956
F-statistic: 1.883 on 19 and 532 DF, p-value: 0.01328
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.136393
Standard error............: 0.069857
Odds ratio (effect size)..: 0.872
Lower 95% CI..............: 0.761
Upper 95% CI..............: 1.001
T-value...................: -1.952452
P-value...................: 0.05140865
R^2.......................: 0.063026
Adjusted r^2..............: 0.029562
Sample size of AE DB......: 2388
Sample size of model......: 552
Missing data %............: 76.88442
Analysis of IL6R_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + DiabetesStatus +
Med.Statin.LLD + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] DiabetesStatusDiabetes Med.Statin.LLDyes CAD_history
-2.72515 0.12169 -0.23102 -0.41274 -0.17988
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
0.21758 0.32738 1.02141 1.04648 1.31783
stenose100% (Occlusion) stenose50-99% stenose70-99%
0.80210 1.02716 -0.06394
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.2446 -0.5444 0.1137 0.7057 2.9730
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.5498124 1.0648708 -1.455 0.146097
currentDF[, TRAIT] 0.1242813 0.0252771 4.917 1.15e-06 ***
Age -0.0062752 0.0060075 -1.045 0.296654
Gendermale -0.0379152 0.1036725 -0.366 0.714706
Hypertension.compositeyes -0.0443839 0.1438683 -0.309 0.757809
DiabetesStatusDiabetes -0.2268754 0.1183648 -1.917 0.055758 .
SmokerCurrentyes 0.0655855 0.1041078 0.630 0.528957
Med.Statin.LLDyes -0.4202807 0.1157337 -3.631 0.000307 ***
Med.all.antiplateletyes -0.0478602 0.1645514 -0.291 0.771267
GFR_MDRD -0.0035106 0.0026211 -1.339 0.180975
BMI -0.0173525 0.0132633 -1.308 0.191286
CAD_history -0.1464790 0.1097927 -1.334 0.182678
Stroke_history 0.2072312 0.1027701 2.016 0.044211 *
Peripheral.interv 0.3040732 0.1217287 2.498 0.012765 *
stenose50-70% 1.1008527 0.8402367 1.310 0.190654
stenose70-90% 1.1052473 0.8182193 1.351 0.177285
stenose90-99% 1.3678656 0.8184965 1.671 0.095220 .
stenose100% (Occlusion) 0.7729226 1.0016549 0.772 0.440637
stenose50-99% 1.1115231 1.1502332 0.966 0.334272
stenose70-99% -0.0056577 1.0502892 -0.005 0.995704
hsCRP_plasma -0.0002985 0.0004536 -0.658 0.510846
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.145 on 583 degrees of freedom
Multiple R-squared: 0.1217, Adjusted R-squared: 0.09155
F-statistic: 4.038 on 20 and 583 DF, p-value: 1.365e-08
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.124281
Standard error............: 0.025277
Odds ratio (effect size)..: 1.132
Lower 95% CI..............: 1.078
Upper 95% CI..............: 1.19
T-value...................: 4.916746
P-value...................: 1.145657e-06
R^2.......................: 0.121682
Adjusted r^2..............: 0.091551
Sample size of AE DB......: 2388
Sample size of model......: 604
Missing data %............: 74.70687
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + DiabetesStatus +
Med.Statin.LLD + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] DiabetesStatusDiabetes Med.Statin.LLDyes CAD_history
-2.89712 0.05661 -0.22774 -0.41591 -0.17720
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
0.24162 0.28469 1.00305 1.02737 1.33187
stenose100% (Occlusion) stenose50-99% stenose70-99%
0.71296 0.91858 -0.03186
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.3697 -0.5251 0.0999 0.6793 3.0657
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.6616722 1.0734979 -1.548 0.122181
currentDF[, TRAIT] 0.0541870 0.0343533 1.577 0.115252
Age -0.0096233 0.0060105 -1.601 0.109891
Gendermale 0.0371287 0.1048229 0.354 0.723313
Hypertension.compositeyes -0.0252319 0.1435207 -0.176 0.860506
DiabetesStatusDiabetes -0.2311323 0.1201514 -1.924 0.054876 .
SmokerCurrentyes 0.0471135 0.1049359 0.449 0.653615
Med.Statin.LLDyes -0.4305494 0.1160480 -3.710 0.000227 ***
Med.all.antiplateletyes -0.0452318 0.1673390 -0.270 0.787023
GFR_MDRD -0.0036355 0.0026762 -1.358 0.174832
BMI -0.0115840 0.0132147 -0.877 0.381061
CAD_history -0.1490517 0.1113280 -1.339 0.181134
Stroke_history 0.2455585 0.1036470 2.369 0.018148 *
Peripheral.interv 0.2647824 0.1233105 2.147 0.032178 *
stenose50-70% 1.0495555 0.8529759 1.230 0.219014
stenose70-90% 1.0503071 0.8317698 1.263 0.207182
stenose90-99% 1.3454201 0.8324336 1.616 0.106575
stenose100% (Occlusion) 0.6316689 1.0182788 0.620 0.535280
stenose50-99% 0.9915459 1.1681242 0.849 0.396317
stenose70-99% 0.0392846 1.0669644 0.037 0.970642
hsCRP_plasma -0.0002766 0.0004100 -0.675 0.500087
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.163 on 590 degrees of freedom
Multiple R-squared: 0.09125, Adjusted R-squared: 0.06045
F-statistic: 2.962 on 20 and 590 DF, p-value: 1.844e-05
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.054187
Standard error............: 0.034353
Odds ratio (effect size)..: 1.056
Lower 95% CI..............: 0.987
Upper 95% CI..............: 1.129
T-value...................: 1.577347
P-value...................: 0.1152517
R^2.......................: 0.091252
Adjusted r^2..............: 0.060446
Sample size of AE DB......: 2388
Sample size of model......: 611
Missing data %............: 74.41374
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + DiabetesStatus + Med.Statin.LLD +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Coefficients:
(Intercept) Age DiabetesStatusDiabetes Med.Statin.LLDyes CAD_history
-2.286903 -0.009033 -0.247772 -0.491583 -0.194727
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
0.244739 0.278970 1.108588 1.158943 1.433943
stenose100% (Occlusion) stenose50-99% stenose70-99%
0.739330 0.991161 -0.294824
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-7.3050 -0.5167 0.0747 0.6748 3.0675
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.627e+00 1.105e+00 -1.472 0.1415
currentDF[, TRAIT] 5.713e-02 5.681e-02 1.006 0.3150
Age -1.151e-02 6.294e-03 -1.828 0.0681 .
Gendermale 8.824e-03 1.092e-01 0.081 0.9356
Hypertension.compositeyes -1.964e-02 1.517e-01 -0.129 0.8970
DiabetesStatusDiabetes -2.573e-01 1.273e-01 -2.021 0.0438 *
SmokerCurrentyes 3.200e-02 1.108e-01 0.289 0.7728
Med.Statin.LLDyes -4.882e-01 1.218e-01 -4.007 7.02e-05 ***
Med.all.antiplateletyes -9.108e-02 1.828e-01 -0.498 0.6185
GFR_MDRD -3.389e-03 2.866e-03 -1.182 0.2376
BMI -1.281e-02 1.385e-02 -0.925 0.3552
CAD_history -2.023e-01 1.175e-01 -1.721 0.0858 .
Stroke_history 2.240e-01 1.093e-01 2.050 0.0409 *
Peripheral.interv 2.654e-01 1.311e-01 2.024 0.0435 *
stenose50-70% 1.232e+00 8.614e-01 1.430 0.1533
stenose70-90% 1.238e+00 8.343e-01 1.484 0.1385
stenose90-99% 1.501e+00 8.343e-01 1.799 0.0726 .
stenose100% (Occlusion) 7.336e-01 1.021e+00 0.719 0.4726
stenose50-99% 1.069e+00 1.170e+00 0.914 0.3612
stenose70-99% -1.502e-01 1.437e+00 -0.105 0.9168
hsCRP_plasma 5.195e-05 6.976e-04 0.074 0.9407
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.165 on 533 degrees of freedom
Multiple R-squared: 0.09438, Adjusted R-squared: 0.0604
F-statistic: 2.777 on 20 and 533 DF, p-value: 6.359e-05
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: 0.057125
Standard error............: 0.056805
Odds ratio (effect size)..: 1.059
Lower 95% CI..............: 0.947
Upper 95% CI..............: 1.183
T-value...................: 1.005637
P-value...................: 0.3150463
R^2.......................: 0.094382
Adjusted r^2..............: 0.0604
Sample size of AE DB......: 2388
Sample size of model......: 554
Missing data %............: 76.80067
Analysis of MCP1_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Med.Statin.LLD + Stroke_history +
stenose, data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes Stroke_history stenose50-70% stenose70-90%
-1.8793 -0.2912 0.3131 1.1220 1.0316
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
0.7273 -0.4113 0.8206 1.5138
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.3039 -0.7758 0.0643 0.8035 3.3860
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.8812033 1.0731857 -0.821 0.4119
currentDF[, TRAIT] -0.0295689 0.0277731 -1.065 0.2875
Age -0.0042653 0.0066191 -0.644 0.5196
Gendermale 0.1462051 0.1139403 1.283 0.1999
Hypertension.compositeyes -0.1960709 0.1588148 -1.235 0.2175
DiabetesStatusDiabetes -0.1429423 0.1298394 -1.101 0.2714
SmokerCurrentyes -0.1277565 0.1141235 -1.119 0.2634
Med.Statin.LLDyes -0.2610838 0.1278712 -2.042 0.0416 *
Med.all.antiplateletyes -0.0781823 0.1808369 -0.432 0.6657
GFR_MDRD -0.0029277 0.0028995 -1.010 0.3130
BMI -0.0116576 0.0141153 -0.826 0.4092
CAD_history -0.1361524 0.1197991 -1.137 0.2562
Stroke_history 0.2928078 0.1137000 2.575 0.0103 *
Peripheral.interv 0.0717310 0.1334881 0.537 0.5912
stenose50-70% 1.0601418 0.7766663 1.365 0.1728
stenose70-90% 1.0090563 0.7470111 1.351 0.1773
stenose90-99% 0.7176677 0.7470206 0.961 0.3371
stenose100% (Occlusion) -0.5769898 0.9891836 -0.583 0.5599
stenose50-99% 0.9900753 1.1755751 0.842 0.4000
stenose70-99% 1.5784674 1.0497797 1.504 0.1332
hsCRP_plasma 0.0007688 0.0005068 1.517 0.1298
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.28 on 602 degrees of freedom
Multiple R-squared: 0.06338, Adjusted R-squared: 0.03226
F-statistic: 2.037 on 20 and 602 DF, p-value: 0.004992
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.029569
Standard error............: 0.027773
Odds ratio (effect size)..: 0.971
Lower 95% CI..............: 0.919
Upper 95% CI..............: 1.025
T-value...................: -1.064662
P-value...................: 0.2874558
R^2.......................: 0.063381
Adjusted r^2..............: 0.032264
Sample size of AE DB......: 2388
Sample size of model......: 623
Missing data %............: 73.91122
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + DiabetesStatus +
Med.Statin.LLD + Stroke_history + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] DiabetesStatusDiabetes Med.Statin.LLDyes Stroke_history
-1.88268 -0.09171 -0.18016 -0.29820 0.28716
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
1.12462 1.07530 0.80391 -0.38417 0.90149
stenose70-99%
1.56396
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.1184 -0.7854 0.0493 0.8138 3.2620
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.6700995 1.0642423 -0.630 0.5292
currentDF[, TRAIT] -0.0872578 0.0368329 -2.369 0.0181 *
Age -0.0066517 0.0065169 -1.021 0.3078
Gendermale 0.0923885 0.1136494 0.813 0.4166
Hypertension.compositeyes -0.1893488 0.1561421 -1.213 0.2257
DiabetesStatusDiabetes -0.1700329 0.1298157 -1.310 0.1908
SmokerCurrentyes -0.1389901 0.1132600 -1.227 0.2202
Med.Statin.LLDyes -0.2803065 0.1261178 -2.223 0.0266 *
Med.all.antiplateletyes -0.1139180 0.1811412 -0.629 0.5297
GFR_MDRD -0.0024052 0.0029160 -0.825 0.4098
BMI -0.0130704 0.0138807 -0.942 0.3468
CAD_history -0.1011589 0.1195612 -0.846 0.3978
Stroke_history 0.2824235 0.1129619 2.500 0.0127 *
Peripheral.interv 0.0863623 0.1332206 0.648 0.5171
stenose50-70% 1.1040728 0.7757153 1.423 0.1552
stenose70-90% 1.0748336 0.7474338 1.438 0.1509
stenose90-99% 0.8133478 0.7479632 1.087 0.2773
stenose100% (Occlusion) -0.4990121 0.9892412 -0.504 0.6141
stenose50-99% 1.0758127 1.1750666 0.916 0.3603
stenose70-99% 1.6605722 1.0500528 1.581 0.1143
hsCRP_plasma 0.0005881 0.0004510 1.304 0.1927
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.28 on 609 degrees of freedom
Multiple R-squared: 0.06973, Adjusted R-squared: 0.03918
F-statistic: 2.282 on 20 and 609 DF, p-value: 0.001226
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.087258
Standard error............: 0.036833
Odds ratio (effect size)..: 0.916
Lower 95% CI..............: 0.853
Upper 95% CI..............: 0.985
T-value...................: -2.369014
P-value...................: 0.01814655
R^2.......................: 0.069727
Adjusted r^2..............: 0.039176
Sample size of AE DB......: 2388
Sample size of model......: 630
Missing data %............: 73.61809
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes Stroke_history
-0.7804 -0.1472 -0.2899 0.3511
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.1603 -0.7207 0.0469 0.8139 3.3145
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -3.642e-01 1.120e+00 -0.325 0.74524
currentDF[, TRAIT] -1.187e-01 6.272e-02 -1.893 0.05885 .
Age -6.080e-03 6.935e-03 -0.877 0.38104
Gendermale 1.729e-01 1.203e-01 1.437 0.15123
Hypertension.compositeyes -1.658e-01 1.688e-01 -0.982 0.32658
DiabetesStatusDiabetes -1.479e-01 1.399e-01 -1.057 0.29094
SmokerCurrentyes -1.308e-01 1.216e-01 -1.076 0.28225
Med.Statin.LLDyes -2.624e-01 1.350e-01 -1.943 0.05255 .
Med.all.antiplateletyes -6.918e-02 2.005e-01 -0.345 0.73022
GFR_MDRD -3.295e-03 3.167e-03 -1.040 0.29872
BMI -1.416e-02 1.475e-02 -0.960 0.33764
CAD_history -1.212e-01 1.289e-01 -0.940 0.34746
Stroke_history 3.304e-01 1.211e-01 2.728 0.00657 **
Peripheral.interv 2.054e-02 1.440e-01 0.143 0.88663
stenose50-70% 8.481e-01 8.003e-01 1.060 0.28977
stenose70-90% 8.732e-01 7.645e-01 1.142 0.25389
stenose90-99% 6.220e-01 7.639e-01 0.814 0.41586
stenose100% (Occlusion) -6.670e-01 1.010e+00 -0.660 0.50926
stenose50-99% 1.029e+00 1.198e+00 0.859 0.39075
stenose70-99% 1.565e+00 1.513e+00 1.034 0.30148
hsCRP_plasma -1.871e-05 7.805e-04 -0.024 0.98088
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.305 on 551 degrees of freedom
Multiple R-squared: 0.06408, Adjusted R-squared: 0.0301
F-statistic: 1.886 on 20 and 551 DF, p-value: 0.01145
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.118742
Standard error............: 0.06272
Odds ratio (effect size)..: 0.888
Lower 95% CI..............: 0.785
Upper 95% CI..............: 1.004
T-value...................: -1.893206
P-value...................: 0.05885423
R^2.......................: 0.064076
Adjusted r^2..............: 0.030104
Sample size of AE DB......: 2388
Sample size of model......: 572
Missing data %............: 76.0469 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Multi.Protein.PlaquePhenotypes.MODEL4.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M4) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + hsCRP_plasma,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Med.all.antiplatelet + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Med.all.antiplateletyes Peripheral.interv
-1.0880 0.7922 0.8796 -0.4787
Degrees of Freedom: 227 Total (i.e. Null); 224 Residual
Null Deviance: 311
Residual Deviance: 302 AIC: 310
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9104 -1.1827 0.7429 1.0011 1.9740
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.467e+01 8.827e+02 -0.017 0.9867
currentDF[, PROTEIN] 8.888e-02 1.398e-01 0.636 0.5248
Age -6.796e-03 2.019e-02 -0.337 0.7365
Gendermale -1.165e-01 3.334e-01 -0.349 0.7268
Hypertension.compositeyes 1.044e+00 4.298e-01 2.429 0.0151 *
DiabetesStatusDiabetes -4.304e-01 4.153e-01 -1.036 0.3001
SmokerCurrentyes -2.732e-01 3.105e-01 -0.880 0.3789
Med.Statin.LLDyes -1.268e-01 3.186e-01 -0.398 0.6907
Med.all.antiplateletyes 1.237e+00 6.093e-01 2.031 0.0423 *
GFR_MDRD -8.006e-03 9.252e-03 -0.865 0.3869
BMI -3.583e-02 3.846e-02 -0.931 0.3516
CAD_history 4.087e-01 3.338e-01 1.224 0.2209
Stroke_history 3.007e-02 3.184e-01 0.094 0.9247
Peripheral.interv -4.737e-01 3.534e-01 -1.340 0.1801
stenose50-70% 1.621e+01 8.827e+02 0.018 0.9854
stenose70-90% 1.527e+01 8.827e+02 0.017 0.9862
stenose90-99% 1.459e+01 8.827e+02 0.017 0.9868
stenose100% (Occlusion) 1.619e+01 8.827e+02 0.018 0.9854
hsCRP_plasma 2.381e-04 1.477e-03 0.161 0.8719
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 310.99 on 227 degrees of freedom
Residual deviance: 289.33 on 209 degrees of freedom
AIC: 327.33
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.088879
Standard error............: 0.139763
Odds ratio (effect size)..: 1.093
Lower 95% CI..............: 0.831
Upper 95% CI..............: 1.437
Z-value...................: 0.635922
P-value...................: 0.5248275
Hosmer and Lemeshow r^2...: 0.069621
Cox and Snell r^2.........: 0.090591
Nagelkerke's pseudo r^2...: 0.121704
Sample size of AE DB......: 2388
Sample size of model......: 228
Missing data %............: 90.45226
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ 1, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept)
1.164
Degrees of Freedom: 226 Total (i.e. Null); 226 Residual
Null Deviance: 249.1
Residual Deviance: 249.1 AIC: 251.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.96913 0.00035 0.65960 0.76941 1.25599
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.807e+01 2.400e+03 0.008 0.9940
currentDF[, PROTEIN] -4.345e-02 1.592e-01 -0.273 0.7849
Age -3.032e-04 2.255e-02 -0.013 0.9893
Gendermale -1.847e-01 3.851e-01 -0.480 0.6314
Hypertension.compositeyes 1.506e-01 4.760e-01 0.316 0.7517
DiabetesStatusDiabetes 2.247e-01 4.826e-01 0.466 0.6414
SmokerCurrentyes 2.939e-01 3.591e-01 0.819 0.4130
Med.Statin.LLDyes -2.610e-01 3.679e-01 -0.710 0.4780
Med.all.antiplateletyes 1.054e+00 5.928e-01 1.778 0.0755 .
GFR_MDRD -7.672e-03 1.060e-02 -0.724 0.4693
BMI -5.653e-02 4.244e-02 -1.332 0.1829
CAD_history 2.094e-01 3.775e-01 0.555 0.5792
Stroke_history 3.602e-01 3.784e-01 0.952 0.3411
Peripheral.interv -2.213e-01 3.930e-01 -0.563 0.5733
stenose50-70% -3.942e-01 2.671e+03 0.000 0.9999
stenose70-90% -1.559e+01 2.400e+03 -0.006 0.9948
stenose90-99% -1.589e+01 2.400e+03 -0.007 0.9947
stenose100% (Occlusion) 2.999e-01 2.762e+03 0.000 0.9999
hsCRP_plasma -3.611e-05 1.754e-03 -0.021 0.9836
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 249.08 on 226 degrees of freedom
Residual deviance: 236.35 on 208 degrees of freedom
AIC: 274.35
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.043447
Standard error............: 0.159165
Odds ratio (effect size)..: 0.957
Lower 95% CI..............: 0.701
Upper 95% CI..............: 1.308
Z-value...................: -0.272968
P-value...................: 0.7848776
Hosmer and Lemeshow r^2...: 0.051106
Cox and Snell r^2.........: 0.054533
Nagelkerke's pseudo r^2...: 0.081855
Sample size of AE DB......: 2388
Sample size of model......: 227
Missing data %............: 90.49414
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes
0.0896 0.5880 1.1666
Degrees of Freedom: 227 Total (i.e. Null); 225 Residual
Null Deviance: 223.7
Residual Deviance: 213.1 AIC: 219.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3036 0.3624 0.5214 0.6599 1.2796
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.430e+01 2.400e+03 0.006 0.99525
currentDF[, PROTEIN] 2.696e-02 1.700e-01 0.159 0.87400
Age -4.561e-04 2.558e-02 -0.018 0.98577
Gendermale 6.874e-01 4.010e-01 1.714 0.08646 .
Hypertension.compositeyes 1.198e+00 4.578e-01 2.617 0.00886 **
DiabetesStatusDiabetes -4.552e-01 5.144e-01 -0.885 0.37630
SmokerCurrentyes 4.572e-01 4.162e-01 1.098 0.27204
Med.Statin.LLDyes 1.214e-01 4.076e-01 0.298 0.76579
Med.all.antiplateletyes 3.352e-01 7.061e-01 0.475 0.63496
GFR_MDRD -1.454e-02 1.220e-02 -1.191 0.23351
BMI 5.048e-02 5.070e-02 0.996 0.31943
CAD_history -4.837e-02 4.248e-01 -0.114 0.90935
Stroke_history -2.502e-01 4.069e-01 -0.615 0.53863
Peripheral.interv -4.368e-01 4.284e-01 -1.019 0.30798
stenose50-70% -1.654e+01 2.400e+03 -0.007 0.99450
stenose70-90% -1.461e+01 2.400e+03 -0.006 0.99514
stenose90-99% -1.511e+01 2.400e+03 -0.006 0.99498
stenose100% (Occlusion) 1.041e+00 2.706e+03 0.000 0.99969
hsCRP_plasma -7.061e-04 1.826e-03 -0.387 0.69894
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 223.68 on 227 degrees of freedom
Residual deviance: 201.20 on 209 degrees of freedom
AIC: 239.2
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.026956
Standard error............: 0.169988
Odds ratio (effect size)..: 1.027
Lower 95% CI..............: 0.736
Upper 95% CI..............: 1.434
Z-value...................: 0.158577
P-value...................: 0.8740024
Hosmer and Lemeshow r^2...: 0.100502
Cox and Snell r^2.........: 0.093892
Nagelkerke's pseudo r^2...: 0.150208
Sample size of AE DB......: 2388
Sample size of model......: 228
Missing data %............: 90.45226
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale
0.6466 0.7704
Degrees of Freedom: 227 Total (i.e. Null); 226 Residual
Null Deviance: 249.6
Residual Deviance: 244.3 AIC: 248.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1948 0.2843 0.6345 0.7479 1.1973
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 12.719295 882.748263 0.014 0.9885
currentDF[, PROTEIN] -0.158259 0.154518 -1.024 0.3057
Age 0.021323 0.022751 0.937 0.3487
Gendermale 0.787010 0.365125 2.155 0.0311 *
Hypertension.compositeyes 0.556927 0.446202 1.248 0.2120
DiabetesStatusDiabetes -0.311891 0.462582 -0.674 0.5002
SmokerCurrentyes 0.552119 0.367039 1.504 0.1325
Med.Statin.LLDyes 0.032643 0.366678 0.089 0.9291
Med.all.antiplateletyes -0.322585 0.731270 -0.441 0.6591
GFR_MDRD 0.002551 0.010865 0.235 0.8143
BMI 0.010367 0.042470 0.244 0.8072
CAD_history 0.002075 0.380029 0.005 0.9956
Stroke_history -0.168600 0.368940 -0.457 0.6477
Peripheral.interv -0.094236 0.403477 -0.234 0.8153
stenose50-70% -13.221860 882.744597 -0.015 0.9880
stenose70-90% -13.718958 882.743674 -0.016 0.9876
stenose90-99% -13.629294 882.743648 -0.015 0.9877
stenose100% (Occlusion) -14.220158 882.744840 -0.016 0.9871
hsCRP_plasma 0.005093 0.005303 0.960 0.3369
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 249.62 on 227 degrees of freedom
Residual deviance: 235.94 on 209 degrees of freedom
AIC: 273.94
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: IPH
Effect size...............: -0.158259
Standard error............: 0.154518
Odds ratio (effect size)..: 0.854
Lower 95% CI..............: 0.631
Upper 95% CI..............: 1.156
Z-value...................: -1.024214
P-value...................: 0.3057341
Hosmer and Lemeshow r^2...: 0.054812
Cox and Snell r^2.........: 0.058244
Nagelkerke's pseudo r^2...: 0.087533
Sample size of AE DB......: 2388
Sample size of model......: 228
Missing data %............: 90.45226
Analysis of MCP1_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
DiabetesStatus + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes DiabetesStatusDiabetes Peripheral.interv
0.09271 0.58088 -0.65466 -0.62140
Degrees of Freedom: 278 Total (i.e. Null); 275 Residual
Null Deviance: 378.8
Residual Deviance: 368.2 AIC: 376.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8758 -1.2049 0.7323 0.9929 1.9463
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.470e+01 8.827e+02 -0.017 0.9867
currentDF[, PROTEIN] -2.190e-01 1.532e-01 -1.430 0.1528
Age 1.112e-02 1.734e-02 0.641 0.5214
Gendermale 1.861e-01 2.961e-01 0.628 0.5298
Hypertension.compositeyes 5.904e-01 3.662e-01 1.612 0.1069
DiabetesStatusDiabetes -8.080e-01 3.581e-01 -2.257 0.0240 *
SmokerCurrentyes 1.574e-01 2.809e-01 0.560 0.5752
Med.Statin.LLDyes -1.235e-01 2.946e-01 -0.419 0.6752
Med.all.antiplateletyes 9.068e-01 5.242e-01 1.730 0.0836 .
GFR_MDRD -2.241e-03 7.880e-03 -0.284 0.7761
BMI 6.325e-03 3.309e-02 0.191 0.8484
CAD_history 1.825e-01 2.990e-01 0.610 0.5417
Stroke_history -4.221e-01 2.847e-01 -1.483 0.1382
Peripheral.interv -6.863e-01 3.240e-01 -2.118 0.0342 *
stenose50-70% 1.472e+01 8.827e+02 0.017 0.9867
stenose70-90% 1.465e+01 8.827e+02 0.017 0.9868
stenose90-99% 1.398e+01 8.827e+02 0.016 0.9874
stenose100% (Occlusion) 1.509e+01 8.827e+02 0.017 0.9864
hsCRP_plasma 9.254e-05 1.564e-03 0.059 0.9528
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 378.82 on 278 degrees of freedom
Residual deviance: 354.39 on 260 degrees of freedom
AIC: 392.39
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.218974
Standard error............: 0.153168
Odds ratio (effect size)..: 0.803
Lower 95% CI..............: 0.595
Upper 95% CI..............: 1.085
Z-value...................: -1.429634
P-value...................: 0.1528221
Hosmer and Lemeshow r^2...: 0.064487
Cox and Snell r^2.........: 0.083836
Nagelkerke's pseudo r^2...: 0.112869
Sample size of AE DB......: 2388
Sample size of model......: 279
Missing data %............: 88.31658
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
4.1409 -0.5963
Degrees of Freedom: 277 Total (i.e. Null); 276 Residual
Null Deviance: 292.6
Residual Deviance: 280.9 AIC: 284.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.40189 0.04367 0.59854 0.75261 1.27383
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.019e+01 2.400e+03 0.008 0.99329
currentDF[, PROTEIN] -6.303e-01 2.010e-01 -3.136 0.00171 **
Age -2.621e-03 2.060e-02 -0.127 0.89876
Gendermale -4.887e-02 3.644e-01 -0.134 0.89331
Hypertension.compositeyes 2.694e-02 4.346e-01 0.062 0.95057
DiabetesStatusDiabetes 1.557e-01 4.407e-01 0.353 0.72396
SmokerCurrentyes 3.493e-01 3.437e-01 1.016 0.30954
Med.Statin.LLDyes -8.183e-03 3.463e-01 -0.024 0.98115
Med.all.antiplateletyes 7.947e-01 5.644e-01 1.408 0.15911
GFR_MDRD -5.321e-03 9.615e-03 -0.553 0.57996
BMI -1.097e-02 4.108e-02 -0.267 0.78947
CAD_history 1.156e-01 3.530e-01 0.327 0.74333
Stroke_history 3.336e-01 3.580e-01 0.932 0.35152
Peripheral.interv -4.883e-01 3.716e-01 -1.314 0.18884
stenose50-70% -6.988e-01 2.624e+03 0.000 0.99979
stenose70-90% -1.575e+01 2.400e+03 -0.007 0.99476
stenose90-99% -1.611e+01 2.400e+03 -0.007 0.99464
stenose100% (Occlusion) -7.586e-01 2.699e+03 0.000 0.99978
hsCRP_plasma -7.904e-05 1.698e-03 -0.047 0.96288
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 292.56 on 277 degrees of freedom
Residual deviance: 269.41 on 259 degrees of freedom
AIC: 307.41
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.630266
Standard error............: 0.200995
Odds ratio (effect size)..: 0.532
Lower 95% CI..............: 0.359
Upper 95% CI..............: 0.79
Z-value...................: -3.135732
P-value...................: 0.001714256
Hosmer and Lemeshow r^2...: 0.079123
Cox and Snell r^2.........: 0.079893
Nagelkerke's pseudo r^2...: 0.122745
Sample size of AE DB......: 2388
Sample size of model......: 278
Missing data %............: 88.35846
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Hypertension.composite, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Hypertension.compositeyes
-2.9243 0.6453 0.6773 1.0243
Degrees of Freedom: 278 Total (i.e. Null); 275 Residual
Null Deviance: 290.5
Residual Deviance: 264.7 AIC: 272.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3824 0.2949 0.4989 0.6958 1.6759
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 7.540e+00 8.827e+02 0.009 0.993185
currentDF[, PROTEIN] 7.111e-01 1.940e-01 3.666 0.000246 ***
Age 3.819e-03 2.146e-02 0.178 0.858758
Gendermale 7.301e-01 3.458e-01 2.111 0.034740 *
Hypertension.compositeyes 9.482e-01 4.234e-01 2.240 0.025122 *
DiabetesStatusDiabetes -2.394e-01 4.376e-01 -0.547 0.584309
SmokerCurrentyes 4.139e-01 3.533e-01 1.172 0.241352
Med.Statin.LLDyes 1.285e-02 3.729e-01 0.034 0.972520
Med.all.antiplateletyes 5.448e-01 5.944e-01 0.917 0.359365
GFR_MDRD -7.860e-03 1.005e-02 -0.782 0.434221
BMI 3.652e-02 4.134e-02 0.883 0.377006
CAD_history -1.925e-02 3.799e-01 -0.051 0.959579
Stroke_history 1.594e-01 3.668e-01 0.434 0.663940
Peripheral.interv 1.323e-02 4.048e-01 0.033 0.973932
stenose50-70% -1.418e+01 8.827e+02 -0.016 0.987184
stenose70-90% -1.167e+01 8.827e+02 -0.013 0.989454
stenose90-99% -1.218e+01 8.827e+02 -0.014 0.988990
stenose100% (Occlusion) -1.160e+01 8.827e+02 -0.013 0.989516
hsCRP_plasma -3.983e-04 1.983e-03 -0.201 0.840842
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 290.48 on 278 degrees of freedom
Residual deviance: 252.63 on 260 degrees of freedom
AIC: 290.63
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.711076
Standard error............: 0.193961
Odds ratio (effect size)..: 2.036
Lower 95% CI..............: 1.392
Upper 95% CI..............: 2.978
Z-value...................: 3.666076
P-value...................: 0.0002463009
Hosmer and Lemeshow r^2...: 0.13032
Cox and Snell r^2.........: 0.12688
Nagelkerke's pseudo r^2...: 0.19612
Sample size of AE DB......: 2388
Sample size of model......: 279
Missing data %............: 88.31658
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale
0.5645 0.8471
Degrees of Freedom: 278 Total (i.e. Null); 277 Residual
Null Deviance: 309.9
Residual Deviance: 301.7 AIC: 305.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2386 0.2287 0.6171 0.7649 1.4284
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 13.273572 882.747406 0.015 0.98800
currentDF[, PROTEIN] -0.217854 0.178046 -1.224 0.22111
Age 0.008607 0.019930 0.432 0.66585
Gendermale 1.005564 0.323913 3.104 0.00191 **
Hypertension.compositeyes 0.085207 0.409705 0.208 0.83525
DiabetesStatusDiabetes -0.362545 0.386058 -0.939 0.34768
SmokerCurrentyes 0.365995 0.325207 1.125 0.26041
Med.Statin.LLDyes -0.383866 0.348667 -1.101 0.27092
Med.all.antiplateletyes 0.594389 0.542350 1.096 0.27310
GFR_MDRD -0.001712 0.009224 -0.186 0.85273
BMI 0.015316 0.036457 0.420 0.67440
CAD_history 0.166401 0.346892 0.480 0.63145
Stroke_history -0.020672 0.331278 -0.062 0.95024
Peripheral.interv 0.215540 0.383531 0.562 0.57412
stenose50-70% -12.581005 882.744345 -0.014 0.98863
stenose70-90% -13.252706 882.743558 -0.015 0.98802
stenose90-99% -13.155460 882.743548 -0.015 0.98811
stenose100% (Occlusion) -13.618488 882.744627 -0.015 0.98769
hsCRP_plasma 0.003153 0.004361 0.723 0.46965
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 309.88 on 278 degrees of freedom
Residual deviance: 291.99 on 260 degrees of freedom
AIC: 329.99
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: IPH
Effect size...............: -0.217854
Standard error............: 0.178046
Odds ratio (effect size)..: 0.804
Lower 95% CI..............: 0.567
Upper 95% CI..............: 1.14
Z-value...................: -1.223586
P-value...................: 0.2211086
Hosmer and Lemeshow r^2...: 0.05772
Cox and Snell r^2.........: 0.062097
Nagelkerke's pseudo r^2...: 0.09259
Sample size of AE DB......: 2388
Sample size of model......: 279
Missing data %............: 88.31658
Analysis of IL6_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
CAD_history + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes CAD_history Peripheral.interv
-2.03767 0.01906 0.31759 0.28534 -0.39470
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose70-99%
-0.26332 0.44676 0.69678 1.70987 -14.15643
Degrees of Freedom: 613 Total (i.e. Null); 604 Residual
Null Deviance: 849.9
Residual Deviance: 824.6 AIC: 844.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6386 -1.1238 -0.7819 1.1603 1.7127
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -3.173e+00 1.756e+00 -1.807 0.0708 .
currentDF[, PROTEIN] -1.540e-02 5.886e-02 -0.262 0.7936
Age 2.147e-02 1.055e-02 2.034 0.0420 *
Gendermale 3.077e-02 1.826e-01 0.169 0.8662
Hypertension.compositeyes 2.945e-01 2.552e-01 1.154 0.2485
DiabetesStatusDiabetes -2.425e-02 2.117e-01 -0.115 0.9088
SmokerCurrentyes 3.489e-01 1.844e-01 1.892 0.0585 .
Med.Statin.LLDyes -2.639e-01 2.026e-01 -1.302 0.1928
Med.all.antiplateletyes 6.589e-02 2.938e-01 0.224 0.8226
GFR_MDRD 4.745e-03 4.713e-03 1.007 0.3140
BMI 1.438e-02 2.247e-02 0.640 0.5220
CAD_history 2.970e-01 1.954e-01 1.520 0.1286
Stroke_history 5.443e-03 1.840e-01 0.030 0.9764
Peripheral.interv -3.830e-01 2.158e-01 -1.775 0.0759 .
stenose50-70% -1.919e-01 1.300e+00 -0.148 0.8826
stenose70-90% 5.145e-01 1.251e+00 0.411 0.6808
stenose90-99% 7.534e-01 1.251e+00 0.602 0.5469
stenose100% (Occlusion) 1.846e+00 1.719e+00 1.074 0.2827
stenose70-99% -1.407e+01 4.293e+02 -0.033 0.9739
hsCRP_plasma -3.988e-04 7.677e-04 -0.519 0.6034
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 849.91 on 613 degrees of freedom
Residual deviance: 819.86 on 594 degrees of freedom
AIC: 859.86
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.015399
Standard error............: 0.05886
Odds ratio (effect size)..: 0.985
Lower 95% CI..............: 0.877
Upper 95% CI..............: 1.105
Z-value...................: -0.261629
P-value...................: 0.7936074
Hosmer and Lemeshow r^2...: 0.035358
Cox and Snell r^2.........: 0.047765
Nagelkerke's pseudo r^2...: 0.063731
Sample size of AE DB......: 2388
Sample size of model......: 614
Missing data %............: 74.28811
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes CAD_history
0.2877 -0.2105 0.4717 0.5078
Degrees of Freedom: 616 Total (i.e. Null); 613 Residual
Null Deviance: 658.4
Residual Deviance: 639.6 AIC: 647.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3103 0.3936 0.6280 0.7490 1.1420
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.236e+01 8.343e+02 0.015 0.9882
currentDF[, PROTEIN] -2.279e-01 7.376e-02 -3.090 0.0020 **
Age 6.682e-03 1.232e-02 0.543 0.5874
Gendermale 7.361e-02 2.168e-01 0.340 0.7342
Hypertension.compositeyes 1.575e-01 2.883e-01 0.546 0.5849
DiabetesStatusDiabetes 2.084e-01 2.609e-01 0.799 0.4244
SmokerCurrentyes 5.500e-01 2.293e-01 2.399 0.0165 *
Med.Statin.LLDyes -1.219e-01 2.420e-01 -0.504 0.6145
Med.all.antiplateletyes 5.306e-01 3.297e-01 1.609 0.1075
GFR_MDRD 2.483e-03 5.598e-03 0.444 0.6574
BMI 2.501e-02 2.806e-02 0.891 0.3727
CAD_history 5.373e-01 2.479e-01 2.167 0.0302 *
Stroke_history 3.066e-01 2.238e-01 1.370 0.1707
Peripheral.interv 1.005e-01 2.631e-01 0.382 0.7024
stenose50-70% -1.414e+01 8.343e+02 -0.017 0.9865
stenose70-90% -1.420e+01 8.343e+02 -0.017 0.9864
stenose90-99% -1.414e+01 8.343e+02 -0.017 0.9865
stenose100% (Occlusion) 7.104e-01 1.070e+03 0.001 0.9995
stenose70-99% -1.442e+01 8.343e+02 -0.017 0.9862
hsCRP_plasma -7.973e-04 7.313e-04 -1.090 0.2756
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 658.36 on 616 degrees of freedom
Residual deviance: 627.52 on 597 degrees of freedom
AIC: 667.52
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.227904
Standard error............: 0.073764
Odds ratio (effect size)..: 0.796
Lower 95% CI..............: 0.689
Upper 95% CI..............: 0.92
Z-value...................: -3.089637
P-value...................: 0.00200401
Hosmer and Lemeshow r^2...: 0.046845
Cox and Snell r^2.........: 0.048756
Nagelkerke's pseudo r^2...: 0.074327
Sample size of AE DB......: 2388
Sample size of model......: 617
Missing data %............: 74.16248
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Peripheral.interv
1.8788 0.4179 0.8153 -0.4469
Degrees of Freedom: 616 Total (i.e. Null); 613 Residual
Null Deviance: 743.2
Residual Deviance: 680.3 AIC: 688.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2635 -1.0430 0.6076 0.8200 2.0560
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 14.839255 506.969431 0.029 0.9766
currentDF[, PROTEIN] 0.414706 0.071877 5.770 7.94e-09 ***
Age 0.006483 0.011992 0.541 0.5888
Gendermale 0.844744 0.201005 4.203 2.64e-05 ***
Hypertension.compositeyes 0.124301 0.286219 0.434 0.6641
DiabetesStatusDiabetes -0.036004 0.241122 -0.149 0.8813
SmokerCurrentyes -0.010489 0.210837 -0.050 0.9603
Med.Statin.LLDyes -0.055825 0.235469 -0.237 0.8126
Med.all.antiplateletyes 0.006388 0.330784 0.019 0.9846
GFR_MDRD -0.001176 0.005412 -0.217 0.8280
BMI 0.008795 0.024724 0.356 0.7220
CAD_history -0.052522 0.222360 -0.236 0.8133
Stroke_history 0.225596 0.216332 1.043 0.2970
Peripheral.interv -0.462486 0.233665 -1.979 0.0478 *
stenose50-70% -14.082511 506.967579 -0.028 0.9778
stenose70-90% -13.716572 506.967461 -0.027 0.9784
stenose90-99% -13.606310 506.967460 -0.027 0.9786
stenose100% (Occlusion) -15.178060 506.968637 -0.030 0.9761
stenose70-99% -14.767795 506.968856 -0.029 0.9768
hsCRP_plasma 0.000822 0.001299 0.633 0.5268
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 743.18 on 616 degrees of freedom
Residual deviance: 671.07 on 597 degrees of freedom
AIC: 711.07
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.414706
Standard error............: 0.071877
Odds ratio (effect size)..: 1.514
Lower 95% CI..............: 1.315
Upper 95% CI..............: 1.743
Z-value...................: 5.769662
P-value...................: 7.943079e-09
Hosmer and Lemeshow r^2...: 0.097029
Cox and Snell r^2.........: 0.110301
Nagelkerke's pseudo r^2...: 0.157536
Sample size of AE DB......: 2388
Sample size of model......: 617
Missing data %............: 74.16248
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes
-0.2863 0.6645 0.4139 -0.3598 0.4213
Degrees of Freedom: 615 Total (i.e. Null); 611 Residual
Null Deviance: 828.8
Residual Deviance: 806.9 AIC: 816.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0797 -1.2434 0.8004 0.9968 1.5487
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.6679016 1.7675384 0.378 0.705526
currentDF[, PROTEIN] 0.0853773 0.0607429 1.406 0.159857
Age -0.0007668 0.0107421 -0.071 0.943095
Gendermale 0.7046627 0.1860325 3.788 0.000152 ***
Hypertension.compositeyes -0.3427477 0.2654362 -1.291 0.196613
DiabetesStatusDiabetes -0.1475819 0.2139819 -0.690 0.490387
SmokerCurrentyes 0.3944830 0.1922973 2.051 0.040226 *
Med.Statin.LLDyes -0.3594273 0.2126356 -1.690 0.090962 .
Med.all.antiplateletyes 0.3905767 0.2954866 1.322 0.186232
GFR_MDRD -0.0050159 0.0048312 -1.038 0.299158
BMI 0.0091376 0.0228338 0.400 0.689024
CAD_history 0.2170375 0.2011279 1.079 0.280542
Stroke_history 0.2148625 0.1908222 1.126 0.260173
Peripheral.interv 0.0992787 0.2211831 0.449 0.653538
stenose50-70% -0.7347676 1.2830633 -0.573 0.566870
stenose70-90% -0.4118810 1.2418707 -0.332 0.740145
stenose90-99% -0.1347980 1.2418505 -0.109 0.913563
stenose100% (Occlusion) -0.9043600 1.6034061 -0.564 0.572738
stenose70-99% 0.3900736 1.7017441 0.229 0.818698
hsCRP_plasma -0.0006036 0.0007987 -0.756 0.449817
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 828.82 on 615 degrees of freedom
Residual deviance: 794.18 on 596 degrees of freedom
AIC: 834.18
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.085377
Standard error............: 0.060743
Odds ratio (effect size)..: 1.089
Lower 95% CI..............: 0.967
Upper 95% CI..............: 1.227
Z-value...................: 1.405553
P-value...................: 0.1598569
Hosmer and Lemeshow r^2...: 0.041805
Cox and Snell r^2.........: 0.054696
Nagelkerke's pseudo r^2...: 0.073954
Sample size of AE DB......: 2388
Sample size of model......: 616
Missing data %............: 74.20436
Analysis of IL6R_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
CAD_history + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes CAD_history Peripheral.interv
-1.39761 0.01805 0.26766 0.28298 -0.44359
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-0.76341 -0.08234 0.14517 1.15737 -15.67282
stenose70-99%
-15.68045
Degrees of Freedom: 618 Total (i.e. Null); 608 Residual
Null Deviance: 856.9
Residual Deviance: 830.8 AIC: 852.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.5341 -1.1333 -0.7798 1.1685 1.7335
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.304e+00 1.868e+00 -1.233 0.2174
currentDF[, PROTEIN] -2.550e-02 7.191e-02 -0.355 0.7229
Age 2.039e-02 1.051e-02 1.939 0.0525 .
Gendermale -8.156e-03 1.812e-01 -0.045 0.9641
Hypertension.compositeyes 2.760e-01 2.520e-01 1.095 0.2734
DiabetesStatusDiabetes -1.014e-01 2.113e-01 -0.480 0.6314
SmokerCurrentyes 2.921e-01 1.829e-01 1.597 0.1103
Med.Statin.LLDyes -1.654e-01 2.047e-01 -0.808 0.4190
Med.all.antiplateletyes 1.379e-01 2.936e-01 0.470 0.6386
GFR_MDRD 4.026e-03 4.683e-03 0.860 0.3899
BMI 3.436e-03 2.296e-02 0.150 0.8810
CAD_history 2.917e-01 1.947e-01 1.498 0.1340
Stroke_history -1.209e-02 1.823e-01 -0.066 0.9471
Peripheral.interv -4.342e-01 2.163e-01 -2.007 0.0447 *
stenose50-70% -6.652e-01 1.476e+00 -0.451 0.6523
stenose70-90% 2.555e-02 1.434e+00 0.018 0.9858
stenose90-99% 2.454e-01 1.436e+00 0.171 0.8643
stenose100% (Occlusion) 1.308e+00 1.854e+00 0.706 0.4803
stenose50-99% -1.566e+01 1.029e+03 -0.015 0.9879
stenose70-99% -1.564e+01 7.120e+02 -0.022 0.9825
hsCRP_plasma -4.107e-04 7.569e-04 -0.543 0.5874
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 856.94 on 618 degrees of freedom
Residual deviance: 827.41 on 598 degrees of freedom
AIC: 869.41
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.025502
Standard error............: 0.071908
Odds ratio (effect size)..: 0.975
Lower 95% CI..............: 0.847
Upper 95% CI..............: 1.122
Z-value...................: -0.354646
P-value...................: 0.7228549
Hosmer and Lemeshow r^2...: 0.034457
Cox and Snell r^2.........: 0.046582
Nagelkerke's pseudo r^2...: 0.062149
Sample size of AE DB......: 2388
Sample size of model......: 619
Missing data %............: 74.07873
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent +
Med.all.antiplatelet + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes Med.all.antiplateletyes CAD_history
0.4945 0.4512 0.4820 0.5581
Degrees of Freedom: 621 Total (i.e. Null); 618 Residual
Null Deviance: 665.8
Residual Deviance: 653.9 AIC: 661.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2601 0.4421 0.6377 0.7667 1.1349
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.310e+01 1.011e+03 0.013 0.9897
currentDF[, PROTEIN] 2.674e-03 8.620e-02 0.031 0.9753
Age 9.604e-03 1.224e-02 0.784 0.4328
Gendermale 1.461e-01 2.117e-01 0.690 0.4902
Hypertension.compositeyes 1.037e-01 2.844e-01 0.365 0.7153
DiabetesStatusDiabetes 2.294e-01 2.589e-01 0.886 0.3755
SmokerCurrentyes 5.379e-01 2.259e-01 2.381 0.0173 *
Med.Statin.LLDyes -2.637e-02 2.395e-01 -0.110 0.9123
Med.all.antiplateletyes 5.600e-01 3.220e-01 1.739 0.0820 .
GFR_MDRD 1.793e-03 5.543e-03 0.323 0.7464
BMI 2.298e-02 2.773e-02 0.829 0.4072
CAD_history 5.430e-01 2.441e-01 2.224 0.0261 *
Stroke_history 1.959e-01 2.191e-01 0.894 0.3713
Peripheral.interv 1.392e-01 2.614e-01 0.532 0.5944
stenose50-70% -1.431e+01 1.011e+03 -0.014 0.9887
stenose70-90% -1.446e+01 1.011e+03 -0.014 0.9886
stenose90-99% -1.431e+01 1.011e+03 -0.014 0.9887
stenose100% (Occlusion) 3.082e-01 1.229e+03 0.000 0.9998
stenose50-99% -3.990e-01 1.442e+03 0.000 0.9998
stenose70-99% -1.468e+01 1.011e+03 -0.015 0.9884
hsCRP_plasma -8.408e-04 7.371e-04 -1.141 0.2540
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 665.84 on 621 degrees of freedom
Residual deviance: 643.59 on 601 degrees of freedom
AIC: 685.59
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.002674
Standard error............: 0.086197
Odds ratio (effect size)..: 1.003
Lower 95% CI..............: 0.847
Upper 95% CI..............: 1.187
Z-value...................: 0.031024
P-value...................: 0.9752504
Hosmer and Lemeshow r^2...: 0.033428
Cox and Snell r^2.........: 0.035151
Nagelkerke's pseudo r^2...: 0.05349
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
0.7423 0.2002 0.8589 0.3515 -0.4777
Degrees of Freedom: 621 Total (i.e. Null); 617 Residual
Null Deviance: 750.2
Residual Deviance: 714.1 AIC: 724.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0759 -1.1783 0.6695 0.8326 1.7892
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.378e+01 6.241e+02 0.022 0.9824
currentDF[, PROTEIN] 1.982e-01 7.742e-02 2.561 0.0105 *
Age 9.299e-03 1.162e-02 0.800 0.4237
Gendermale 8.983e-01 1.954e-01 4.597 4.28e-06 ***
Hypertension.compositeyes 1.373e-01 2.760e-01 0.498 0.6188
DiabetesStatusDiabetes -6.609e-03 2.343e-01 -0.028 0.9775
SmokerCurrentyes 6.358e-02 2.053e-01 0.310 0.7568
Med.Statin.LLDyes 4.918e-02 2.321e-01 0.212 0.8322
Med.all.antiplateletyes 5.701e-02 3.244e-01 0.176 0.8605
GFR_MDRD -2.183e-04 5.287e-03 -0.041 0.9671
BMI -3.735e-03 2.513e-02 -0.149 0.8818
CAD_history -1.611e-01 2.163e-01 -0.745 0.4563
Stroke_history 3.315e-01 2.104e-01 1.575 0.1152
Peripheral.interv -4.879e-01 2.286e-01 -2.135 0.0328 *
stenose50-70% -1.408e+01 6.241e+02 -0.023 0.9820
stenose70-90% -1.372e+01 6.241e+02 -0.022 0.9825
stenose90-99% -1.375e+01 6.241e+02 -0.022 0.9824
stenose100% (Occlusion) -1.502e+01 6.241e+02 -0.024 0.9808
stenose50-99% -2.931e+01 8.788e+02 -0.033 0.9734
stenose70-99% -1.442e+01 6.241e+02 -0.023 0.9816
hsCRP_plasma 1.043e-03 1.179e-03 0.884 0.3766
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 750.18 on 621 degrees of freedom
Residual deviance: 702.43 on 601 degrees of freedom
AIC: 744.43
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.198232
Standard error............: 0.077419
Odds ratio (effect size)..: 1.219
Lower 95% CI..............: 1.048
Upper 95% CI..............: 1.419
Z-value...................: 2.560522
P-value...................: 0.01045151
Hosmer and Lemeshow r^2...: 0.063657
Cox and Snell r^2.........: 0.073903
Nagelkerke's pseudo r^2...: 0.10548
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + SmokerCurrent, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale SmokerCurrentyes
0.2477 0.1965 0.6427 0.3405
Degrees of Freedom: 619 Total (i.e. Null); 616 Residual
Null Deviance: 835.3
Residual Deviance: 812.2 AIC: 820.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9967 -1.2590 0.7936 0.9869 1.6855
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 8.507e-01 1.890e+00 0.450 0.652583
currentDF[, PROTEIN] 1.700e-01 7.341e-02 2.316 0.020566 *
Age -3.382e-03 1.076e-02 -0.314 0.753214
Gendermale 6.921e-01 1.847e-01 3.748 0.000178 ***
Hypertension.compositeyes -2.837e-01 2.610e-01 -1.087 0.277074
DiabetesStatusDiabetes -1.516e-01 2.132e-01 -0.711 0.477112
SmokerCurrentyes 3.079e-01 1.906e-01 1.616 0.106170
Med.Statin.LLDyes -2.823e-01 2.140e-01 -1.319 0.187174
Med.all.antiplateletyes 3.726e-01 2.944e-01 1.265 0.205711
GFR_MDRD -5.088e-03 4.824e-03 -1.055 0.291601
BMI -6.471e-03 2.342e-02 -0.276 0.782284
CAD_history 1.857e-01 2.002e-01 0.928 0.353513
Stroke_history 1.617e-01 1.891e-01 0.855 0.392598
Peripheral.interv 5.488e-02 2.211e-01 0.248 0.803927
stenose50-70% -2.050e-01 1.476e+00 -0.139 0.889554
stenose70-90% 8.601e-02 1.439e+00 0.060 0.952351
stenose90-99% 2.269e-01 1.441e+00 0.157 0.874921
stenose100% (Occlusion) -3.913e-01 1.763e+00 -0.222 0.824387
stenose50-99% 1.452e+01 6.222e+02 0.023 0.981376
stenose70-99% 1.153e+00 1.848e+00 0.624 0.532790
hsCRP_plasma -5.008e-04 7.982e-04 -0.627 0.530421
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 835.34 on 619 degrees of freedom
Residual deviance: 799.72 on 599 degrees of freedom
AIC: 841.72
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.170015
Standard error............: 0.073413
Odds ratio (effect size)..: 1.185
Lower 95% CI..............: 1.026
Upper 95% CI..............: 1.369
Z-value...................: 2.315862
P-value...................: 0.0205658
Hosmer and Lemeshow r^2...: 0.042645
Cox and Snell r^2.........: 0.055838
Nagelkerke's pseudo r^2...: 0.07545
Sample size of AE DB......: 2388
Sample size of model......: 620
Missing data %............: 74.03685
Analysis of MCP1_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes Peripheral.interv
-2.91466 -0.34810 0.02251 0.27168 -0.41190
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
0.15264 0.84843 0.97712 1.65836 -14.89486
stenose70-99%
-14.54448
Degrees of Freedom: 637 Total (i.e. Null); 627 Residual
Null Deviance: 882.6
Residual Deviance: 828.1 AIC: 850.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.7097 -1.0741 -0.6643 1.1304 1.9192
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -3.674e+00 1.768e+00 -2.078 0.0377 *
currentDF[, PROTEIN] -3.538e-01 6.884e-02 -5.139 2.76e-07 ***
Age 2.253e-02 1.063e-02 2.118 0.0341 *
Gendermale 4.587e-02 1.831e-01 0.250 0.8022
Hypertension.compositeyes 2.489e-01 2.549e-01 0.976 0.3289
DiabetesStatusDiabetes -1.151e-01 2.131e-01 -0.540 0.5890
SmokerCurrentyes 2.944e-01 1.843e-01 1.597 0.1102
Med.Statin.LLDyes -2.974e-01 2.054e-01 -1.448 0.1476
Med.all.antiplateletyes 1.180e-01 2.931e-01 0.403 0.6873
GFR_MDRD 4.104e-03 4.750e-03 0.864 0.3876
BMI 8.952e-03 2.250e-02 0.398 0.6907
CAD_history 2.608e-01 1.947e-01 1.340 0.1803
Stroke_history 1.081e-01 1.845e-01 0.586 0.5580
Peripheral.interv -4.220e-01 2.168e-01 -1.946 0.0516 .
stenose50-70% 1.388e-01 1.300e+00 0.107 0.9150
stenose70-90% 8.620e-01 1.250e+00 0.690 0.4905
stenose90-99% 9.815e-01 1.249e+00 0.786 0.4321
stenose100% (Occlusion) 1.669e+00 1.720e+00 0.970 0.3320
stenose50-99% -1.487e+01 9.913e+02 -0.015 0.9880
stenose70-99% -1.452e+01 6.892e+02 -0.021 0.9832
hsCRP_plasma -1.977e-04 8.180e-04 -0.242 0.8090
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 882.64 on 637 degrees of freedom
Residual deviance: 821.90 on 617 degrees of freedom
AIC: 863.9
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.353797
Standard error............: 0.068844
Odds ratio (effect size)..: 0.702
Lower 95% CI..............: 0.613
Upper 95% CI..............: 0.803
Z-value...................: -5.139142
P-value...................: 2.759964e-07
Hosmer and Lemeshow r^2...: 0.068824
Cox and Snell r^2.........: 0.090823
Nagelkerke's pseudo r^2...: 0.121212
Sample size of AE DB......: 2388
Sample size of model......: 638
Missing data %............: 73.28308
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes CAD_history
0.7189 -0.2213 0.4743 0.5184
Degrees of Freedom: 640 Total (i.e. Null); 637 Residual
Null Deviance: 683
Residual Deviance: 664.1 AIC: 672.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3057 0.3895 0.6294 0.7514 1.1846
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.277e+01 8.213e+02 0.016 0.98760
currentDF[, PROTEIN] -2.100e-01 8.055e-02 -2.607 0.00914 **
Age 7.341e-03 1.215e-02 0.604 0.54564
Gendermale 1.629e-01 2.112e-01 0.771 0.44070
Hypertension.compositeyes 6.702e-02 2.849e-01 0.235 0.81405
DiabetesStatusDiabetes 1.041e-01 2.531e-01 0.411 0.68101
SmokerCurrentyes 5.453e-01 2.254e-01 2.420 0.01554 *
Med.Statin.LLDyes -7.761e-02 2.380e-01 -0.326 0.74441
Med.all.antiplateletyes 4.811e-01 3.205e-01 1.501 0.13327
GFR_MDRD 2.145e-03 5.486e-03 0.391 0.69574
BMI 3.022e-02 2.743e-02 1.102 0.27053
CAD_history 5.250e-01 2.409e-01 2.179 0.02933 *
Stroke_history 2.599e-01 2.187e-01 1.188 0.23471
Peripheral.interv 1.935e-01 2.606e-01 0.742 0.45781
stenose50-70% -1.407e+01 8.213e+02 -0.017 0.98633
stenose70-90% -1.423e+01 8.213e+02 -0.017 0.98618
stenose90-99% -1.416e+01 8.213e+02 -0.017 0.98625
stenose100% (Occlusion) 1.434e-01 1.082e+03 0.000 0.99989
stenose50-99% -1.897e-01 1.312e+03 0.000 0.99988
stenose70-99% -1.428e+01 8.213e+02 -0.017 0.98613
hsCRP_plasma -7.496e-04 7.473e-04 -1.003 0.31581
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 682.96 on 640 degrees of freedom
Residual deviance: 652.30 on 620 degrees of freedom
AIC: 694.3
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.209978
Standard error............: 0.080548
Odds ratio (effect size)..: 0.811
Lower 95% CI..............: 0.692
Upper 95% CI..............: 0.949
Z-value...................: -2.606859
P-value...................: 0.009137705
Hosmer and Lemeshow r^2...: 0.044886
Cox and Snell r^2.........: 0.046699
Nagelkerke's pseudo r^2...: 0.071249
Sample size of AE DB......: 2388
Sample size of model......: 641
Missing data %............: 73.15745
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
0.4900 0.1761 0.8581 0.3303 -0.3647
Degrees of Freedom: 640 Total (i.e. Null); 636 Residual
Null Deviance: 779.2
Residual Deviance: 742.6 AIC: 752.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0483 -1.1799 0.6663 0.8380 1.5720
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.446e+01 8.352e+02 0.017 0.9862
currentDF[, PROTEIN] 1.835e-01 7.144e-02 2.569 0.0102 *
Age 6.300e-03 1.139e-02 0.553 0.5802
Gendermale 8.984e-01 1.914e-01 4.695 2.67e-06 ***
Hypertension.compositeyes 1.616e-01 2.721e-01 0.594 0.5527
DiabetesStatusDiabetes -4.434e-02 2.286e-01 -0.194 0.8462
SmokerCurrentyes 7.693e-02 2.003e-01 0.384 0.7009
Med.Statin.LLDyes -7.305e-02 2.281e-01 -0.320 0.7487
Med.all.antiplateletyes 9.405e-02 3.169e-01 0.297 0.7666
GFR_MDRD -1.751e-04 5.212e-03 -0.034 0.9732
BMI 5.013e-03 2.372e-02 0.211 0.8326
CAD_history -1.538e-01 2.096e-01 -0.734 0.4632
Stroke_history 3.187e-01 2.076e-01 1.535 0.1247
Peripheral.interv -3.990e-01 2.240e-01 -1.781 0.0749 .
stenose50-70% -1.511e+01 8.352e+02 -0.018 0.9856
stenose70-90% -1.467e+01 8.352e+02 -0.018 0.9860
stenose90-99% -1.458e+01 8.352e+02 -0.017 0.9861
stenose100% (Occlusion) -1.570e+01 8.352e+02 -0.019 0.9850
stenose50-99% -3.123e+01 1.301e+03 -0.024 0.9808
stenose70-99% -1.572e+01 8.352e+02 -0.019 0.9850
hsCRP_plasma 9.362e-04 1.297e-03 0.722 0.4704
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 779.19 on 640 degrees of freedom
Residual deviance: 729.13 on 620 degrees of freedom
AIC: 771.13
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.183542
Standard error............: 0.071439
Odds ratio (effect size)..: 1.201
Lower 95% CI..............: 1.044
Upper 95% CI..............: 1.382
Z-value...................: 2.569224
P-value...................: 0.01019266
Hosmer and Lemeshow r^2...: 0.064242
Cox and Snell r^2.........: 0.075121
Nagelkerke's pseudo r^2...: 0.106787
Sample size of AE DB......: 2388
Sample size of model......: 641
Missing data %............: 73.15745
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes
-0.2358 0.6317 0.4079 -0.4060 0.4192
Degrees of Freedom: 638 Total (i.e. Null); 634 Residual
Null Deviance: 861.2
Residual Deviance: 838.9 AIC: 848.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9939 -1.2484 0.7941 1.0068 1.5323
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 7.965e-01 1.749e+00 0.455 0.648904
currentDF[, PROTEIN] -4.119e-02 6.612e-02 -0.623 0.533296
Age -4.261e-03 1.057e-02 -0.403 0.686765
Gendermale 6.900e-01 1.822e-01 3.786 0.000153 ***
Hypertension.compositeyes -3.421e-01 2.594e-01 -1.319 0.187182
DiabetesStatusDiabetes -1.849e-01 2.087e-01 -0.886 0.375694
SmokerCurrentyes 3.607e-01 1.870e-01 1.928 0.053803 .
Med.Statin.LLDyes -4.409e-01 2.115e-01 -2.085 0.037101 *
Med.all.antiplateletyes 3.845e-01 2.892e-01 1.329 0.183695
GFR_MDRD -5.883e-03 4.757e-03 -1.237 0.216236
BMI 3.063e-03 2.235e-02 0.137 0.891022
CAD_history 1.915e-01 1.950e-01 0.982 0.325976
Stroke_history 2.583e-01 1.877e-01 1.376 0.168780
Peripheral.interv 1.456e-01 2.168e-01 0.672 0.501897
stenose50-70% -6.460e-01 1.287e+00 -0.502 0.615744
stenose70-90% -2.998e-01 1.246e+00 -0.241 0.809789
stenose90-99% -1.076e-01 1.245e+00 -0.086 0.931122
stenose100% (Occlusion) -8.523e-01 1.608e+00 -0.530 0.596138
stenose50-99% 1.413e+01 6.238e+02 0.023 0.981927
stenose70-99% 5.240e-01 1.702e+00 0.308 0.758158
hsCRP_plasma -5.350e-04 7.957e-04 -0.672 0.501368
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 861.23 on 638 degrees of freedom
Residual deviance: 825.85 on 618 degrees of freedom
AIC: 867.85
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: -0.041195
Standard error............: 0.066125
Odds ratio (effect size)..: 0.96
Lower 95% CI..............: 0.843
Upper 95% CI..............: 1.092
Z-value...................: -0.622983
P-value...................: 0.5332958
Hosmer and Lemeshow r^2...: 0.041078
Cox and Snell r^2.........: 0.053859
Nagelkerke's pseudo r^2...: 0.072765
Sample size of AE DB......: 2388
Sample size of model......: 639
Missing data %............: 73.24121 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.PlaquePhenotypes.MODEL4.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON.RANK)) {
TRAIT = TRAITS.CON.RANK[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M4) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + hsCRP_plasma,
data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + CAD_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
1.10461 -0.08253 -0.01480 -0.30374 -0.25618
CAD_history
0.25223
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.8179 -0.7134 -0.0181 0.6918 2.5356
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.7610801 1.3489297 2.788 0.00571 **
currentDF[, TRAIT] -0.0850507 0.0553685 -1.536 0.12579
Age -0.0141240 0.0078693 -1.795 0.07389 .
Gendermale -0.0741715 0.1340836 -0.553 0.58064
Hypertension.compositeyes 0.0013148 0.1710049 0.008 0.99387
DiabetesStatusDiabetes -0.2388949 0.1703963 -1.402 0.16216
SmokerCurrentyes 0.0345861 0.1281135 0.270 0.78741
Med.Statin.LLDyes -0.2708574 0.1319532 -2.053 0.04115 *
Med.all.antiplateletyes -0.1694608 0.2416126 -0.701 0.48372
GFR_MDRD 0.0031164 0.0036469 0.855 0.39364
BMI -0.0127276 0.0159841 -0.796 0.42663
CAD_history 0.3022280 0.1347847 2.242 0.02582 *
Stroke_history 0.0493347 0.1319419 0.374 0.70879
Peripheral.interv -0.0289171 0.1476817 -0.196 0.84492
stenose50-70% -2.6729158 1.0737710 -2.489 0.01345 *
stenose70-90% -2.3552407 0.9731508 -2.420 0.01623 *
stenose90-99% -2.4519655 0.9711424 -2.525 0.01220 *
stenose100% (Occlusion) -2.8741799 1.0913091 -2.634 0.00897 **
hsCRP_plasma 0.0004683 0.0006729 0.696 0.48715
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9476 on 249 degrees of freedom
Multiple R-squared: 0.09334, Adjusted R-squared: 0.0278
F-statistic: 1.424 on 18 and 249 DF, p-value: 0.1203
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.085051
Standard error............: 0.055368
Odds ratio (effect size)..: 0.918
Lower 95% CI..............: 0.824
Upper 95% CI..............: 1.024
T-value...................: -1.536086
P-value...................: 0.1257871
R^2.......................: 0.093337
Adjusted r^2..............: 0.027795
Sample size of AE DB......: 2388
Sample size of model......: 268
Missing data %............: 88.77722
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + DiabetesStatus + Med.Statin.LLD +
CAD_history, data = currentDF)
Coefficients:
(Intercept) Age DiabetesStatusDiabetes Med.Statin.LLDyes CAD_history
1.12857 -0.01497 -0.30012 -0.24553 0.21063
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.9058 -0.6863 -0.0012 0.7162 2.5728
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.7574126 1.3650393 2.753 0.00635 **
currentDF[, TRAIT] 0.0291045 0.0602489 0.483 0.62947
Age -0.0142636 0.0080214 -1.778 0.07659 .
Gendermale -0.0575822 0.1363481 -0.422 0.67316
Hypertension.compositeyes -0.0416310 0.1714500 -0.243 0.80835
DiabetesStatusDiabetes -0.2241496 0.1718816 -1.304 0.19341
SmokerCurrentyes 0.0435941 0.1284336 0.339 0.73457
Med.Statin.LLDyes -0.2565874 0.1344193 -1.909 0.05743 .
Med.all.antiplateletyes -0.1217945 0.2435305 -0.500 0.61743
GFR_MDRD 0.0027549 0.0037036 0.744 0.45767
BMI -0.0163280 0.0161338 -1.012 0.31250
CAD_history 0.2534281 0.1364387 1.857 0.06443 .
Stroke_history 0.0387521 0.1340692 0.289 0.77279
Peripheral.interv 0.0138521 0.1499281 0.092 0.92646
stenose50-70% -2.6358961 1.0930424 -2.412 0.01661 *
stenose70-90% -2.2673760 0.9862332 -2.299 0.02233 *
stenose90-99% -2.3358513 0.9830834 -2.376 0.01826 *
stenose100% (Occlusion) -2.7347521 1.1035886 -2.478 0.01387 *
hsCRP_plasma 0.0005594 0.0006783 0.825 0.41032
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9598 on 249 degrees of freedom
Multiple R-squared: 0.08181, Adjusted R-squared: 0.01543
F-statistic: 1.233 on 18 and 249 DF, p-value: 0.2353
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.029104
Standard error............: 0.060249
Odds ratio (effect size)..: 1.03
Lower 95% CI..............: 0.915
Upper 95% CI..............: 1.159
T-value...................: 0.48307
P-value...................: 0.6294703
R^2.......................: 0.08181
Adjusted r^2..............: 0.015435
Sample size of AE DB......: 2388
Sample size of model......: 268
Missing data %............: 88.77722
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + DiabetesStatus + Med.Statin.LLD +
CAD_history, data = currentDF)
Coefficients:
(Intercept) Age DiabetesStatusDiabetes Med.Statin.LLDyes CAD_history
1.24577 -0.01694 -0.29696 -0.22735 0.20814
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.91883 -0.73434 -0.02321 0.71205 2.41508
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.9391587 1.3789460 2.857 0.00465 **
currentDF[, TRAIT] -0.1104053 0.0755416 -1.462 0.14516
Age -0.0163042 0.0080494 -2.026 0.04390 *
Gendermale -0.0309865 0.1359232 -0.228 0.81986
Hypertension.compositeyes 0.0159954 0.1748906 0.091 0.92720
DiabetesStatusDiabetes -0.2229010 0.1732834 -1.286 0.19954
SmokerCurrentyes 0.0548484 0.1288247 0.426 0.67066
Med.Statin.LLDyes -0.2373739 0.1340207 -1.771 0.07778 .
Med.all.antiplateletyes -0.1495074 0.2468978 -0.606 0.54538
GFR_MDRD 0.0030589 0.0037484 0.816 0.41528
BMI -0.0153285 0.0161300 -0.950 0.34289
CAD_history 0.2531491 0.1360555 1.861 0.06400 .
Stroke_history 0.0566228 0.1338465 0.423 0.67264
Peripheral.interv -0.0107785 0.1500217 -0.072 0.94278
stenose50-70% -2.7403356 1.0878828 -2.519 0.01241 *
stenose70-90% -2.4021458 0.9863600 -2.435 0.01559 *
stenose90-99% -2.4746008 0.9837156 -2.516 0.01253 *
stenose100% (Occlusion) -2.6850845 1.1429843 -2.349 0.01961 *
hsCRP_plasma 0.0006186 0.0006768 0.914 0.36162
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9561 on 244 degrees of freedom
Multiple R-squared: 0.0901, Adjusted R-squared: 0.02298
F-statistic: 1.342 on 18 and 244 DF, p-value: 0.1622
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.110405
Standard error............: 0.075542
Odds ratio (effect size)..: 0.895
Lower 95% CI..............: 0.772
Upper 95% CI..............: 1.038
T-value...................: -1.461517
P-value...................: 0.1451602
R^2.......................: 0.090105
Adjusted r^2..............: 0.022981
Sample size of AE DB......: 2388
Sample size of model......: 263
Missing data %............: 88.9866
Analysis of MCP1_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.Statin.LLD + Med.all.antiplatelet,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
0.90896 0.09036 -0.01335 0.46652 -0.40919
Med.Statin.LLDyes Med.all.antiplateletyes
-0.28685 0.33829
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.64392 -0.75932 0.06352 0.66219 2.52268
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.6665896 1.4253886 1.871 0.06249 .
currentDF[, TRAIT] 0.0725218 0.0582033 1.246 0.21387
Age -0.0182822 0.0082423 -2.218 0.02740 *
Gendermale 0.4529019 0.1398723 3.238 0.00136 **
Hypertension.compositeyes -0.4589879 0.1783022 -2.574 0.01059 *
DiabetesStatusDiabetes -0.2271631 0.1698214 -1.338 0.18216
SmokerCurrentyes -0.0645039 0.1356126 -0.476 0.63472
Med.Statin.LLDyes -0.2770796 0.1404174 -1.973 0.04951 *
Med.all.antiplateletyes 0.2477201 0.2397855 1.033 0.30251
GFR_MDRD -0.0023312 0.0037741 -0.618 0.53731
BMI -0.0058342 0.0158908 -0.367 0.71381
CAD_history 0.1504213 0.1426425 1.055 0.29261
Stroke_history 0.0147719 0.1374410 0.107 0.91449
Peripheral.interv -0.1156181 0.1590149 -0.727 0.46782
stenose50-70% -1.1952274 1.1480343 -1.041 0.29878
stenose70-90% -0.8922860 1.0461758 -0.853 0.39449
stenose90-99% -0.9612964 1.0452526 -0.920 0.35858
stenose100% (Occlusion) -2.0375086 1.2127086 -1.680 0.09412 .
hsCRP_plasma 0.0002384 0.0007237 0.329 0.74215
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.021 on 263 degrees of freedom
Multiple R-squared: 0.1195, Adjusted R-squared: 0.05923
F-statistic: 1.983 on 18 and 263 DF, p-value: 0.01102
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.072522
Standard error............: 0.058203
Odds ratio (effect size)..: 1.075
Lower 95% CI..............: 0.959
Upper 95% CI..............: 1.205
T-value...................: 1.246007
P-value...................: 0.2138706
R^2.......................: 0.119492
Adjusted r^2..............: 0.059229
Sample size of AE DB......: 2388
Sample size of model......: 282
Missing data %............: 88.19096
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + Med.Statin.LLD, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
1.42056 -0.15786 -0.01593 0.43251 -0.37321
Med.Statin.LLDyes
-0.27687
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.62938 -0.73219 0.02213 0.64926 2.37564
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.7696836 1.4071347 1.968 0.05008 .
currentDF[, TRAIT] -0.1596645 0.0608963 -2.622 0.00925 **
Age -0.0204731 0.0082046 -2.495 0.01320 *
Gendermale 0.4070673 0.1387248 2.934 0.00364 **
Hypertension.compositeyes -0.4316998 0.1745410 -2.473 0.01402 *
DiabetesStatusDiabetes -0.1996904 0.1681466 -1.188 0.23606
SmokerCurrentyes -0.0737715 0.1324886 -0.557 0.57813
Med.Statin.LLDyes -0.2893915 0.1398711 -2.069 0.03952 *
Med.all.antiplateletyes 0.2047848 0.2362858 0.867 0.38691
GFR_MDRD -0.0015786 0.0037332 -0.423 0.67274
BMI -0.0026959 0.0157030 -0.172 0.86382
CAD_history 0.2159653 0.1407712 1.534 0.12619
Stroke_history 0.0502527 0.1362064 0.369 0.71247
Peripheral.interv -0.1498806 0.1578178 -0.950 0.34313
stenose50-70% -1.1018731 1.1377402 -0.968 0.33370
stenose70-90% -0.9048915 1.0354045 -0.874 0.38294
stenose90-99% -0.9856399 1.0334683 -0.954 0.34110
stenose100% (Occlusion) -2.1331283 1.1977774 -1.781 0.07608 .
hsCRP_plasma 0.0001592 0.0007124 0.223 0.82333
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.01 on 263 degrees of freedom
Multiple R-squared: 0.1323, Adjusted R-squared: 0.0729
F-statistic: 2.227 on 18 and 263 DF, p-value: 0.003394
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.159664
Standard error............: 0.060896
Odds ratio (effect size)..: 0.852
Lower 95% CI..............: 0.757
Upper 95% CI..............: 0.96
T-value...................: -2.621908
P-value...................: 0.009253515
R^2.......................: 0.132285
Adjusted r^2..............: 0.072898
Sample size of AE DB......: 2388
Sample size of model......: 282
Missing data %............: 88.19096
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Gender + Hypertension.composite +
Med.Statin.LLD, data = currentDF)
Coefficients:
(Intercept) Age Gendermale Hypertension.compositeyes Med.Statin.LLDyes
1.22370 -0.01415 0.48743 -0.34890 -0.28148
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.65420 -0.71370 0.04394 0.68616 2.62817
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.7729405 1.4437166 1.921 0.05587 .
currentDF[, TRAIT] -0.0892692 0.0772661 -1.155 0.24901
Age -0.0187057 0.0083515 -2.240 0.02595 *
Gendermale 0.4637153 0.1414187 3.279 0.00118 **
Hypertension.compositeyes -0.4013863 0.1791037 -2.241 0.02587 *
DiabetesStatusDiabetes -0.2122018 0.1717052 -1.236 0.21763
SmokerCurrentyes -0.0928692 0.1350210 -0.688 0.49219
Med.Statin.LLDyes -0.2859631 0.1419745 -2.014 0.04502 *
Med.all.antiplateletyes 0.2033344 0.2404618 0.846 0.39856
GFR_MDRD -0.0015604 0.0038453 -0.406 0.68522
BMI -0.0042388 0.0159383 -0.266 0.79049
CAD_history 0.1856238 0.1430297 1.298 0.19551
Stroke_history 0.0175814 0.1381435 0.127 0.89883
Peripheral.interv -0.1036751 0.1606087 -0.646 0.51917
stenose50-70% -1.3545938 1.1546015 -1.173 0.24179
stenose70-90% -1.0398848 1.0539217 -0.987 0.32472
stenose90-99% -1.1278478 1.0514119 -1.073 0.28440
stenose100% (Occlusion) -2.2387467 1.2187238 -1.837 0.06736 .
hsCRP_plasma 0.0002015 0.0007230 0.279 0.78068
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.023 on 259 degrees of freedom
Multiple R-squared: 0.1172, Adjusted R-squared: 0.05581
F-statistic: 1.91 on 18 and 259 DF, p-value: 0.01554
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.089269
Standard error............: 0.077266
Odds ratio (effect size)..: 0.915
Lower 95% CI..............: 0.786
Upper 95% CI..............: 1.064
T-value...................: -1.155347
P-value...................: 0.2490129
R^2.......................: 0.117163
Adjusted r^2..............: 0.055807
Sample size of AE DB......: 2388
Sample size of model......: 278
Missing data %............: 88.35846
Analysis of IL6_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + CAD_history +
Stroke_history + hsCRP_plasma, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] CAD_history Stroke_history hsCRP_plasma
-0.0102133 0.1194738 -0.2522780 0.2547525 0.0004843
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.08559 -0.64622 0.01259 0.61647 2.89440
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.3292152 0.8037644 0.410 0.68225
currentDF[, TRAIT] 0.1188011 0.0390716 3.041 0.00247 **
Age -0.0057304 0.0049456 -1.159 0.24705
Gendermale 0.0779960 0.0863697 0.903 0.36687
Hypertension.compositeyes 0.0059062 0.1196948 0.049 0.96066
DiabetesStatusDiabetes 0.0265491 0.0992727 0.267 0.78923
SmokerCurrentyes 0.0556969 0.0867398 0.642 0.52105
Med.Statin.LLDyes -0.1269603 0.0951680 -1.334 0.18269
Med.all.antiplateletyes 0.0842321 0.1376219 0.612 0.54074
GFR_MDRD -0.0021476 0.0022014 -0.976 0.32968
BMI -0.0108513 0.0105771 -1.026 0.30535
CAD_history -0.2196432 0.0916106 -2.398 0.01681 *
Stroke_history 0.2495314 0.0858403 2.907 0.00379 **
Peripheral.interv -0.0319998 0.1011919 -0.316 0.75194
stenose50-70% 0.3367012 0.5829363 0.578 0.56376
stenose70-90% 0.5050711 0.5620595 0.899 0.36923
stenose90-99% 0.3553822 0.5620349 0.632 0.52743
stenose100% (Occlusion) 0.5893787 0.7441795 0.792 0.42869
stenose70-99% 1.0155702 0.7896134 1.286 0.19889
hsCRP_plasma 0.0004197 0.0003397 1.235 0.21717
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9632 on 593 degrees of freedom
Multiple R-squared: 0.06585, Adjusted R-squared: 0.03592
F-statistic: 2.2 on 19 and 593 DF, p-value: 0.002438
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.118801
Standard error............: 0.039072
Odds ratio (effect size)..: 1.126
Lower 95% CI..............: 1.043
Upper 95% CI..............: 1.216
T-value...................: 3.040602
P-value...................: 0.00246525
R^2.......................: 0.065849
Adjusted r^2..............: 0.035918
Sample size of AE DB......: 2388
Sample size of model......: 613
Missing data %............: 74.32998
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + CAD_history + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes CAD_history Stroke_history
0.631954 -0.141333 -0.008044 -0.148043 -0.179849 0.282466
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.89600 -0.62467 0.04063 0.64149 2.69206
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.3981963 0.8034180 0.496 0.62034
currentDF[, TRAIT] -0.1324395 0.0412655 -3.209 0.00140 **
Age -0.0087393 0.0049756 -1.756 0.07953 .
Gendermale 0.0608222 0.0871623 0.698 0.48557
Hypertension.compositeyes 0.0015723 0.1196609 0.013 0.98952
DiabetesStatusDiabetes 0.0401908 0.0993075 0.405 0.68584
SmokerCurrentyes 0.0403300 0.0867586 0.465 0.64221
Med.Statin.LLDyes -0.1444999 0.0955452 -1.512 0.13097
Med.all.antiplateletyes 0.0672193 0.1376200 0.488 0.62542
GFR_MDRD -0.0014576 0.0022057 -0.661 0.50898
BMI -0.0077850 0.0106146 -0.733 0.46360
CAD_history -0.1880533 0.0919104 -2.046 0.04119 *
Stroke_history 0.2641847 0.0858106 3.079 0.00218 **
Peripheral.interv -0.0499322 0.1018471 -0.490 0.62413
stenose50-70% 0.3351941 0.5826500 0.575 0.56531
stenose70-90% 0.5366193 0.5620986 0.955 0.34013
stenose90-99% 0.4179846 0.5624100 0.743 0.45765
stenose100% (Occlusion) 0.6346060 0.7444406 0.852 0.39430
stenose70-99% 1.0566801 0.7893180 1.339 0.18117
hsCRP_plasma 0.0003459 0.0003393 1.020 0.30833
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9626 on 591 degrees of freedom
Multiple R-squared: 0.06775, Adjusted R-squared: 0.03778
F-statistic: 2.261 on 19 and 591 DF, p-value: 0.001744
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.13244
Standard error............: 0.041265
Odds ratio (effect size)..: 0.876
Lower 95% CI..............: 0.808
Upper 95% CI..............: 0.95
T-value...................: -3.209452
P-value...................: 0.001401953
R^2.......................: 0.06775
Adjusted r^2..............: 0.037779
Sample size of AE DB......: 2388
Sample size of model......: 611
Missing data %............: 74.41374
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
CAD_history + Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes CAD_history Stroke_history
0.06268 -0.05999 -0.15096 -0.22254 0.29840
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.02020 -0.58612 0.03226 0.62982 2.78365
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.4682123 0.8229269 0.569 0.56961
currentDF[, TRAIT] -0.0586902 0.0423583 -1.386 0.16644
Age -0.0059465 0.0051230 -1.161 0.24624
Gendermale 0.0795257 0.0891399 0.892 0.37270
Hypertension.compositeyes -0.0106395 0.1234224 -0.086 0.93134
DiabetesStatusDiabetes 0.0148287 0.1048173 0.141 0.88755
SmokerCurrentyes 0.0750944 0.0906607 0.828 0.40786
Med.Statin.LLDyes -0.1554293 0.0982137 -1.583 0.11409
Med.all.antiplateletyes 0.0491141 0.1460104 0.336 0.73672
GFR_MDRD -0.0025222 0.0023388 -1.078 0.28130
BMI -0.0087790 0.0109157 -0.804 0.42159
CAD_history -0.2018037 0.0954170 -2.115 0.03488 *
Stroke_history 0.2799083 0.0898376 3.116 0.00193 **
Peripheral.interv -0.0524032 0.1069737 -0.490 0.62442
stenose50-70% 0.1592612 0.5933329 0.268 0.78848
stenose70-90% 0.3658739 0.5687231 0.643 0.52028
stenose90-99% 0.2478824 0.5680324 0.436 0.66273
stenose100% (Occlusion) 0.4433709 0.7506941 0.591 0.55502
stenose70-99% 1.9707718 1.1255726 1.751 0.08051 .
hsCRP_plasma 0.0003700 0.0005774 0.641 0.52192
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9695 on 555 degrees of freedom
Multiple R-squared: 0.06092, Adjusted R-squared: 0.02877
F-statistic: 1.895 on 19 and 555 DF, p-value: 0.01246
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.05869
Standard error............: 0.042358
Odds ratio (effect size)..: 0.943
Lower 95% CI..............: 0.868
Upper 95% CI..............: 1.025
T-value...................: -1.385565
P-value...................: 0.1664362
R^2.......................: 0.060915
Adjusted r^2..............: 0.028766
Sample size of AE DB......: 2388
Sample size of model......: 575
Missing data %............: 75.92127
Analysis of IL6R_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + GFR_MDRD + Stroke_history +
Peripheral.interv + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
0.435203 0.178335 -0.010371 -0.167664 -0.438824
GFR_MDRD Stroke_history Peripheral.interv stenose50-70% stenose70-90%
-0.003929 0.177631 0.251044 0.754456 0.775869
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
1.023291 0.513541 0.658657 -0.199445
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2897 -0.6551 -0.0386 0.6427 3.1361
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.5614134 0.9022961 0.622 0.5340
currentDF[, TRAIT] 0.1796870 0.0394568 4.554 6.38e-06 ***
Age -0.0092173 0.0050214 -1.836 0.0669 .
Gendermale 0.0124573 0.0872508 0.143 0.8865
Hypertension.compositeyes -0.0178822 0.1207259 -0.148 0.8823
DiabetesStatusDiabetes -0.1532610 0.1003493 -1.527 0.1272
SmokerCurrentyes 0.0806171 0.0878219 0.918 0.3590
Med.Statin.LLDyes -0.4205752 0.0971165 -4.331 1.74e-05 ***
Med.all.antiplateletyes -0.0097451 0.1398121 -0.070 0.9445
GFR_MDRD -0.0044086 0.0022316 -1.976 0.0487 *
BMI -0.0088807 0.0110444 -0.804 0.4217
CAD_history -0.0871286 0.0931680 -0.935 0.3501
Stroke_history 0.1557898 0.0868635 1.794 0.0734 .
Peripheral.interv 0.2597093 0.1026991 2.529 0.0117 *
stenose50-70% 0.8330438 0.7172129 1.162 0.2459
stenose70-90% 0.8416904 0.6996858 1.203 0.2295
stenose90-99% 1.0877944 0.6999532 1.554 0.1207
stenose100% (Occlusion) 0.5369462 0.8565711 0.627 0.5310
stenose50-99% 0.6525262 0.9835743 0.663 0.5073
stenose70-99% -0.1579257 0.8980699 -0.176 0.8605
hsCRP_plasma -0.0002230 0.0003455 -0.646 0.5188
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9796 on 597 degrees of freedom
Multiple R-squared: 0.1234, Adjusted R-squared: 0.09405
F-statistic: 4.203 on 20 and 597 DF, p-value: 4.233e-09
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.179687
Standard error............: 0.039457
Odds ratio (effect size)..: 1.197
Lower 95% CI..............: 1.108
Upper 95% CI..............: 1.293
T-value...................: 4.554018
P-value...................: 6.382359e-06
R^2.......................: 0.123416
Adjusted r^2..............: 0.09405
Sample size of AE DB......: 2388
Sample size of model......: 618
Missing data %............: 74.1206
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + DiabetesStatus + Med.Statin.LLD +
GFR_MDRD + Stroke_history + Peripheral.interv + stenose,
data = currentDF)
Coefficients:
(Intercept) Age DiabetesStatusDiabetes Med.Statin.LLDyes GFR_MDRD
0.393940 -0.011146 -0.162148 -0.442817 -0.003293
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
0.190041 0.229073 0.763493 0.810713 1.071875
stenose100% (Occlusion) stenose50-99% stenose70-99%
0.495589 0.607365 -0.133855
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.4555 -0.6554 -0.0491 0.6560 3.2215
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.5232714 0.9158052 0.571 0.5680
currentDF[, TRAIT] 0.0628962 0.0426381 1.475 0.1407
Age -0.0097021 0.0051290 -1.892 0.0590 .
Gendermale 0.0723512 0.0895023 0.808 0.4192
Hypertension.compositeyes -0.0058188 0.1225313 -0.047 0.9621
DiabetesStatusDiabetes -0.1604094 0.1019520 -1.573 0.1162
SmokerCurrentyes 0.0572906 0.0892080 0.642 0.5210
Med.Statin.LLDyes -0.4196048 0.0990136 -4.238 2.62e-05 ***
Med.all.antiplateletyes -0.0179751 0.1419354 -0.127 0.8993
GFR_MDRD -0.0039746 0.0022695 -1.751 0.0804 .
BMI -0.0080950 0.0112566 -0.719 0.4723
CAD_history -0.0893468 0.0948629 -0.942 0.3467
Stroke_history 0.1755604 0.0882045 1.990 0.0470 *
Peripheral.interv 0.2385749 0.1049558 2.273 0.0234 *
stenose50-70% 0.7835914 0.7282810 1.076 0.2824
stenose70-90% 0.8101935 0.7107123 1.140 0.2548
stenose90-99% 1.0612696 0.7112906 1.492 0.1362
stenose100% (Occlusion) 0.4137413 0.8706729 0.475 0.6348
stenose50-99% 0.5881169 0.9981839 0.589 0.5560
stenose70-99% -0.1414861 0.9116295 -0.155 0.8767
hsCRP_plasma -0.0002785 0.0003504 -0.795 0.4270
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.994 on 595 degrees of freedom
Multiple R-squared: 0.09475, Adjusted R-squared: 0.06433
F-statistic: 3.114 on 20 and 595 DF, p-value: 6.831e-06
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.062896
Standard error............: 0.042638
Odds ratio (effect size)..: 1.065
Lower 95% CI..............: 0.98
Upper 95% CI..............: 1.158
T-value...................: 1.475115
P-value...................: 0.1407105
R^2.......................: 0.094754
Adjusted r^2..............: 0.064325
Sample size of AE DB......: 2388
Sample size of model......: 616
Missing data %............: 74.20436
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + GFR_MDRD + Stroke_history +
Peripheral.interv + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
0.455034 0.091728 -0.012686 -0.203464 -0.448500
GFR_MDRD Stroke_history Peripheral.interv stenose50-70% stenose70-90%
-0.003803 0.205875 0.195164 0.913705 0.922682
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
1.166042 0.558003 0.607138 -0.219689
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.2856 -0.6402 -0.0580 0.6591 3.1786
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.857e-01 9.328e-01 0.628 0.5303
currentDF[, TRAIT] 9.128e-02 4.377e-02 2.085 0.0375 *
Age -1.185e-02 5.286e-03 -2.241 0.0254 *
Gendermale 3.067e-02 9.141e-02 0.336 0.7374
Hypertension.compositeyes -8.534e-03 1.266e-01 -0.067 0.9463
DiabetesStatusDiabetes -1.918e-01 1.072e-01 -1.790 0.0739 .
SmokerCurrentyes 4.729e-02 9.314e-02 0.508 0.6119
Med.Statin.LLDyes -4.212e-01 1.017e-01 -4.142 3.97e-05 ***
Med.all.antiplateletyes -6.688e-02 1.502e-01 -0.445 0.6563
GFR_MDRD -4.269e-03 2.405e-03 -1.775 0.0764 .
BMI -5.803e-03 1.167e-02 -0.497 0.6192
CAD_history -1.165e-01 9.825e-02 -1.186 0.2362
Stroke_history 1.864e-01 9.218e-02 2.022 0.0437 *
Peripheral.interv 2.121e-01 1.098e-01 1.932 0.0539 .
stenose50-70% 9.716e-01 7.367e-01 1.319 0.1878
stenose70-90% 9.611e-01 7.151e-01 1.344 0.1795
stenose90-99% 1.208e+00 7.149e-01 1.690 0.0915 .
stenose100% (Occlusion) 5.454e-01 8.744e-01 0.624 0.5331
stenose50-99% 6.006e-01 1.002e+00 0.599 0.5493
stenose70-99% -1.766e-01 1.232e+00 -0.143 0.8860
hsCRP_plasma -3.377e-06 5.948e-04 -0.006 0.9955
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.998 on 557 degrees of freedom
Multiple R-squared: 0.09857, Adjusted R-squared: 0.0662
F-statistic: 3.045 on 20 and 557 DF, p-value: 1.121e-05
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: 0.091278
Standard error............: 0.043771
Odds ratio (effect size)..: 1.096
Lower 95% CI..............: 1.006
Upper 95% CI..............: 1.194
T-value...................: 2.085347
P-value...................: 0.03749243
R^2.......................: 0.098566
Adjusted r^2..............: 0.066198
Sample size of AE DB......: 2388
Sample size of model......: 578
Missing data %............: 75.79564
Analysis of MCP1_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
Stroke_history + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes Stroke_history stenose50-70%
-0.42576 -0.06444 -0.22141 0.22349 0.75123
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
0.70819 0.49049 -0.41548 0.49364 1.08929
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.10369 -0.69224 -0.04003 0.63048 3.03947
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.5630821 0.8283966 0.680 0.4969
currentDF[, TRAIT] -0.0677480 0.0395711 -1.712 0.0874 .
Age -0.0059183 0.0050491 -1.172 0.2416
Gendermale 0.1226563 0.0875344 1.401 0.1616
Hypertension.compositeyes -0.1546531 0.1216133 -1.272 0.2040
DiabetesStatusDiabetes -0.1084350 0.1004437 -1.080 0.2808
SmokerCurrentyes -0.1235931 0.0878488 -1.407 0.1600
Med.Statin.LLDyes -0.2000183 0.0978361 -2.044 0.0413 *
Med.all.antiplateletyes -0.0576239 0.1401295 -0.411 0.6811
GFR_MDRD -0.0022978 0.0022513 -1.021 0.3078
BMI -0.0091489 0.0107512 -0.851 0.3951
CAD_history -0.0672097 0.0927196 -0.725 0.4688
Stroke_history 0.2190806 0.0876801 2.499 0.0127 *
Peripheral.interv 0.0468415 0.1027657 0.456 0.6487
stenose50-70% 0.7003120 0.6042077 1.159 0.2469
stenose70-90% 0.6869730 0.5825308 1.179 0.2387
stenose90-99% 0.4732416 0.5825709 0.812 0.4169
stenose100% (Occlusion) -0.5522528 0.7712670 -0.716 0.4742
stenose50-99% 0.6623472 0.9166165 0.723 0.4702
stenose70-99% 1.1552669 0.8186149 1.411 0.1587
hsCRP_plasma 0.0004701 0.0003520 1.336 0.1822
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9987 on 616 degrees of freedom
Multiple R-squared: 0.06066, Adjusted R-squared: 0.03016
F-statistic: 1.989 on 20 and 616 DF, p-value: 0.006473
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.067748
Standard error............: 0.039571
Odds ratio (effect size)..: 0.934
Lower 95% CI..............: 0.865
Upper 95% CI..............: 1.01
T-value...................: -1.712058
P-value...................: 0.08738937
R^2.......................: 0.060655
Adjusted r^2..............: 0.030157
Sample size of AE DB......: 2388
Sample size of model......: 637
Missing data %............: 73.32496
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
Stroke_history + stenose, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes Stroke_history stenose50-70%
-0.5003 -0.1230 -0.2297 0.2087 0.8328
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
0.7985 0.5948 -0.2635 0.5650 1.1288
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.88484 -0.70661 -0.03428 0.63432 3.07566
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.5742271 0.8260859 0.695 0.48724
currentDF[, TRAIT] -0.1189861 0.0415453 -2.864 0.00433 **
Age -0.0070845 0.0050597 -1.400 0.16197
Gendermale 0.0721309 0.0882979 0.817 0.41430
Hypertension.compositeyes -0.1591920 0.1212731 -1.313 0.18978
DiabetesStatusDiabetes -0.0980149 0.1002494 -0.978 0.32860
SmokerCurrentyes -0.1196738 0.0876529 -1.365 0.17265
Med.Statin.LLDyes -0.2126537 0.0979115 -2.172 0.03025 *
Med.all.antiplateletyes -0.0655511 0.1398324 -0.469 0.63939
GFR_MDRD -0.0021616 0.0022506 -0.960 0.33720
BMI -0.0079822 0.0107586 -0.742 0.45841
CAD_history -0.0566264 0.0926877 -0.611 0.54147
Stroke_history 0.2087343 0.0874892 2.386 0.01734 *
Peripheral.interv 0.0554092 0.1031622 0.537 0.59139
stenose50-70% 0.7817065 0.6025178 1.297 0.19498
stenose70-90% 0.7713051 0.5811929 1.327 0.18497
stenose90-99% 0.5692721 0.5816193 0.979 0.32808
stenose100% (Occlusion) -0.3952595 0.7697019 -0.514 0.60777
stenose50-99% 0.7193582 0.9137138 0.787 0.43142
stenose70-99% 1.2093888 0.8164214 1.481 0.13903
hsCRP_plasma 0.0004756 0.0003507 1.356 0.17556
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9958 on 614 degrees of freedom
Multiple R-squared: 0.06904, Adjusted R-squared: 0.03871
F-statistic: 2.277 on 20 and 614 DF, p-value: 0.001266
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.118986
Standard error............: 0.041545
Odds ratio (effect size)..: 0.888
Lower 95% CI..............: 0.818
Upper 95% CI..............: 0.963
T-value...................: -2.864007
P-value...................: 0.004326106
R^2.......................: 0.069035
Adjusted r^2..............: 0.038711
Sample size of AE DB......: 2388
Sample size of model......: 635
Missing data %............: 73.40871
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
Stroke_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes Stroke_history
0.1628 -0.1192 -0.2413 0.2636
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
hsCRP_plasma, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.96854 -0.64904 -0.03876 0.60683 3.06536
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.6933010 0.8499220 0.816 0.41500
currentDF[, TRAIT] -0.0966390 0.0431813 -2.238 0.02560 *
Age -0.0061171 0.0052516 -1.165 0.24458
Gendermale 0.1368620 0.0907245 1.509 0.13196
Hypertension.compositeyes -0.1448775 0.1262510 -1.148 0.25164
DiabetesStatusDiabetes -0.1093450 0.1061710 -1.030 0.30349
SmokerCurrentyes -0.1075266 0.0920646 -1.168 0.24331
Med.Statin.LLDyes -0.2274730 0.1013434 -2.245 0.02517 *
Med.all.antiplateletyes -0.0498487 0.1486438 -0.335 0.73748
GFR_MDRD -0.0029751 0.0023967 -1.241 0.21499
BMI -0.0085743 0.0112184 -0.764 0.44500
CAD_history -0.0655035 0.0966036 -0.678 0.49800
Stroke_history 0.2537293 0.0920522 2.756 0.00603 **
Peripheral.interv 0.0148010 0.1086944 0.136 0.89173
stenose50-70% 0.5323579 0.6160904 0.864 0.38790
stenose70-90% 0.5842951 0.5905842 0.989 0.32291
stenose90-99% 0.3761791 0.5899430 0.638 0.52395
stenose100% (Occlusion) -0.6197206 0.7795402 -0.795 0.42695
stenose50-99% 0.7112581 0.9245184 0.769 0.44201
stenose70-99% 1.1103070 1.1692152 0.950 0.34270
hsCRP_plasma -0.0001038 0.0005997 -0.173 0.86270
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.007 on 576 degrees of freedom
Multiple R-squared: 0.06809, Adjusted R-squared: 0.03573
F-statistic: 2.104 on 20 and 576 DF, p-value: 0.003462
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.096639
Standard error............: 0.043181
Odds ratio (effect size)..: 0.908
Lower 95% CI..............: 0.834
Upper 95% CI..............: 0.988
T-value...................: -2.237981
P-value...................: 0.02560367
R^2.......................: 0.068089
Adjusted r^2..............: 0.035731
Sample size of AE DB......: 2388
Sample size of model......: 597
Missing data %............: 75 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Multi.Protein.PlaquePhenotypes.RANK.MODEL4.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M4) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + hsCRP_plasma,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Med.all.antiplatelet + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Med.all.antiplateletyes Peripheral.interv
-1.1596 0.6403 1.0824 -0.5324
Degrees of Freedom: 268 Total (i.e. Null); 265 Residual
Null Deviance: 367.8
Residual Deviance: 357.1 AIC: 365.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.721 -1.207 0.777 1.024 1.987
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.657e+01 8.827e+02 -0.019 0.9850
currentDF[, PROTEIN] 1.193e-01 1.379e-01 0.865 0.3868
Age 6.003e-03 1.744e-02 0.344 0.7307
Gendermale 2.131e-02 2.932e-01 0.073 0.9421
Hypertension.compositeyes 7.854e-01 3.754e-01 2.092 0.0364 *
DiabetesStatusDiabetes -4.366e-01 3.729e-01 -1.171 0.2417
SmokerCurrentyes -9.264e-02 2.784e-01 -0.333 0.7393
Med.Statin.LLDyes 7.990e-02 2.926e-01 0.273 0.7848
Med.all.antiplateletyes 1.452e+00 5.763e-01 2.519 0.0118 *
GFR_MDRD -4.875e-03 8.062e-03 -0.605 0.5454
BMI -3.826e-03 3.503e-02 -0.109 0.9130
CAD_history 1.639e-01 2.999e-01 0.547 0.5847
Stroke_history -4.972e-02 2.916e-01 -0.171 0.8646
Peripheral.interv -5.325e-01 3.199e-01 -1.665 0.0959 .
stenose50-70% 1.555e+01 8.827e+02 0.018 0.9859
stenose70-90% 1.533e+01 8.827e+02 0.017 0.9861
stenose90-99% 1.478e+01 8.827e+02 0.017 0.9866
stenose100% (Occlusion) 1.670e+01 8.827e+02 0.019 0.9849
hsCRP_plasma 2.293e-04 1.500e-03 0.153 0.8785
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 367.81 on 268 degrees of freedom
Residual deviance: 347.27 on 250 degrees of freedom
AIC: 385.27
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.119317
Standard error............: 0.137871
Odds ratio (effect size)..: 1.127
Lower 95% CI..............: 0.86
Upper 95% CI..............: 1.476
Z-value...................: 0.865425
P-value...................: 0.3868057
Hosmer and Lemeshow r^2...: 0.055845
Cox and Snell r^2.........: 0.073515
Nagelkerke's pseudo r^2...: 0.09865
Sample size of AE DB......: 2388
Sample size of model......: 269
Missing data %............: 88.73534
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ 1, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept)
1.265
Degrees of Freedom: 267 Total (i.e. Null); 267 Residual
Null Deviance: 282.5
Residual Deviance: 282.5 AIC: 284.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.03216 0.00043 0.63109 0.74468 1.15631
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.732e+01 2.400e+03 0.007 0.994
currentDF[, PROTEIN] -1.979e-01 1.619e-01 -1.223 0.221
Age 1.704e-03 2.059e-02 0.083 0.934
Gendermale -2.853e-01 3.592e-01 -0.794 0.427
Hypertension.compositeyes 1.133e-01 4.443e-01 0.255 0.799
DiabetesStatusDiabetes 9.509e-02 4.506e-01 0.211 0.833
SmokerCurrentyes 3.723e-01 3.388e-01 1.099 0.272
Med.Statin.LLDyes 5.238e-03 3.450e-01 0.015 0.988
Med.all.antiplateletyes 9.172e-01 5.669e-01 1.618 0.106
GFR_MDRD -2.450e-03 9.592e-03 -0.255 0.798
BMI -3.337e-02 4.034e-02 -0.827 0.408
CAD_history 1.347e-01 3.525e-01 0.382 0.702
Stroke_history 2.922e-01 3.577e-01 0.817 0.414
Peripheral.interv -4.212e-01 3.606e-01 -1.168 0.243
stenose50-70% -9.056e-01 2.618e+03 0.000 1.000
stenose70-90% -1.587e+01 2.400e+03 -0.007 0.995
stenose90-99% -1.618e+01 2.400e+03 -0.007 0.995
stenose100% (Occlusion) -3.871e-01 2.662e+03 0.000 1.000
hsCRP_plasma 2.233e-05 1.768e-03 0.013 0.990
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 282.52 on 267 degrees of freedom
Residual deviance: 268.34 on 249 degrees of freedom
AIC: 306.34
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.197947
Standard error............: 0.161913
Odds ratio (effect size)..: 0.82
Lower 95% CI..............: 0.597
Upper 95% CI..............: 1.127
Z-value...................: -1.222556
P-value...................: 0.2214974
Hosmer and Lemeshow r^2...: 0.050195
Cox and Snell r^2.........: 0.05154
Nagelkerke's pseudo r^2...: 0.079106
Sample size of AE DB......: 2388
Sample size of model......: 268
Missing data %............: 88.77722
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite +
DiabetesStatus + BMI, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes DiabetesStatusDiabetes BMI
-1.50676 0.92764 0.91937 -0.96551 0.06233
Degrees of Freedom: 268 Total (i.e. Null); 264 Residual
Null Deviance: 277.9
Residual Deviance: 258.8 AIC: 268.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3536 0.3810 0.5203 0.6864 1.4348
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.139e+01 8.827e+02 0.013 0.98971
currentDF[, PROTEIN] 1.642e-01 1.690e-01 0.972 0.33115
Age -4.375e-04 2.173e-02 -0.020 0.98394
Gendermale 1.080e+00 3.462e-01 3.119 0.00181 **
Hypertension.compositeyes 8.208e-01 4.205e-01 1.952 0.05093 .
DiabetesStatusDiabetes -8.081e-01 4.286e-01 -1.886 0.05935 .
SmokerCurrentyes 3.842e-01 3.576e-01 1.074 0.28266
Med.Statin.LLDyes -3.148e-02 3.784e-01 -0.083 0.93371
Med.all.antiplateletyes 6.024e-01 6.006e-01 1.003 0.31587
GFR_MDRD -1.040e-02 1.041e-02 -0.999 0.31763
BMI 4.420e-02 4.424e-02 0.999 0.31774
CAD_history -4.480e-02 3.804e-01 -0.118 0.90624
Stroke_history -6.954e-03 3.719e-01 -0.019 0.98508
Peripheral.interv -1.508e-01 3.913e-01 -0.385 0.69991
stenose50-70% -1.453e+01 8.827e+02 -0.016 0.98686
stenose70-90% -1.212e+01 8.827e+02 -0.014 0.98905
stenose90-99% -1.233e+01 8.827e+02 -0.014 0.98886
stenose100% (Occlusion) -1.233e+01 8.827e+02 -0.014 0.98885
hsCRP_plasma -6.836e-04 1.841e-03 -0.371 0.71035
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 277.85 on 268 degrees of freedom
Residual deviance: 248.92 on 250 degrees of freedom
AIC: 286.92
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.164233
Standard error............: 0.168998
Odds ratio (effect size)..: 1.178
Lower 95% CI..............: 0.846
Upper 95% CI..............: 1.641
Z-value...................: 0.971804
P-value...................: 0.3311482
Hosmer and Lemeshow r^2...: 0.104119
Cox and Snell r^2.........: 0.101965
Nagelkerke's pseudo r^2...: 0.158323
Sample size of AE DB......: 2388
Sample size of model......: 269
Missing data %............: 88.73534
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale
-1.16709 0.02764 0.68346
Degrees of Freedom: 268 Total (i.e. Null); 266 Residual
Null Deviance: 299.8
Residual Deviance: 290.9 AIC: 296.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.17959 0.04718 0.63393 0.75588 1.32398
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 10.824949 882.746852 0.012 0.9902
currentDF[, PROTEIN] -0.061940 0.155846 -0.397 0.6910
Age 0.029119 0.019769 1.473 0.1408
Gendermale 0.759603 0.320114 2.373 0.0176 *
Hypertension.compositeyes 0.137913 0.416919 0.331 0.7408
DiabetesStatusDiabetes -0.485078 0.403890 -1.201 0.2297
SmokerCurrentyes 0.390151 0.322786 1.209 0.2268
Med.Statin.LLDyes -0.103067 0.340278 -0.303 0.7620
Med.all.antiplateletyes 0.293274 0.587081 0.500 0.6174
GFR_MDRD -0.001683 0.009405 -0.179 0.8580
BMI 0.023201 0.038976 0.595 0.5517
CAD_history 0.098145 0.346738 0.283 0.7771
Stroke_history -0.119419 0.339051 -0.352 0.7247
Peripheral.interv 0.185422 0.374163 0.496 0.6202
stenose50-70% -13.360543 882.744229 -0.015 0.9879
stenose70-90% -13.113999 882.743629 -0.015 0.9881
stenose90-99% -13.082823 882.743610 -0.015 0.9882
stenose100% (Occlusion) -12.806824 882.744499 -0.015 0.9884
hsCRP_plasma 0.003722 0.004579 0.813 0.4163
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 299.76 on 268 degrees of freedom
Residual deviance: 285.14 on 250 degrees of freedom
AIC: 323.14
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: IPH
Effect size...............: -0.06194
Standard error............: 0.155846
Odds ratio (effect size)..: 0.94
Lower 95% CI..............: 0.693
Upper 95% CI..............: 1.276
Z-value...................: -0.397442
P-value...................: 0.6910419
Hosmer and Lemeshow r^2...: 0.048752
Cox and Snell r^2.........: 0.052877
Nagelkerke's pseudo r^2...: 0.078701
Sample size of AE DB......: 2388
Sample size of model......: 269
Missing data %............: 88.73534
Analysis of MCP1_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
DiabetesStatus + Med.all.antiplatelet + Peripheral.interv,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes DiabetesStatusDiabetes Med.all.antiplateletyes Peripheral.interv
-0.6342 0.5475 -0.6292 0.7942 -0.6265
Degrees of Freedom: 282 Total (i.e. Null); 278 Residual
Null Deviance: 385.1
Residual Deviance: 372.2 AIC: 382.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.8687 -1.1890 0.7609 0.9977 2.0563
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.603e+01 8.827e+02 -0.018 0.9855
currentDF[, PROTEIN] -1.311e-01 1.265e-01 -1.036 0.3002
Age 1.166e-02 1.704e-02 0.684 0.4941
Gendermale 1.499e-01 2.926e-01 0.512 0.6083
Hypertension.compositeyes 5.881e-01 3.663e-01 1.606 0.1084
DiabetesStatusDiabetes -7.689e-01 3.511e-01 -2.190 0.0285 *
SmokerCurrentyes 1.482e-01 2.779e-01 0.533 0.5939
Med.Statin.LLDyes -1.047e-01 2.928e-01 -0.358 0.7207
Med.all.antiplateletyes 1.198e+00 5.103e-01 2.348 0.0189 *
GFR_MDRD -3.765e-03 7.829e-03 -0.481 0.6306
BMI 6.503e-03 3.266e-02 0.199 0.8422
CAD_history 1.458e-01 2.957e-01 0.493 0.6219
Stroke_history -3.861e-01 2.831e-01 -1.364 0.1726
Peripheral.interv -6.597e-01 3.226e-01 -2.045 0.0409 *
stenose50-70% 1.484e+01 8.827e+02 0.017 0.9866
stenose70-90% 1.476e+01 8.827e+02 0.017 0.9867
stenose90-99% 1.408e+01 8.827e+02 0.016 0.9873
stenose100% (Occlusion) 1.553e+01 8.827e+02 0.018 0.9860
hsCRP_plasma 1.219e-04 1.575e-03 0.077 0.9383
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 385.14 on 282 degrees of freedom
Residual deviance: 360.92 on 264 degrees of freedom
AIC: 398.92
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.13109
Standard error............: 0.126542
Odds ratio (effect size)..: 0.877
Lower 95% CI..............: 0.684
Upper 95% CI..............: 1.124
Z-value...................: -1.035945
P-value...................: 0.3002277
Hosmer and Lemeshow r^2...: 0.062882
Cox and Snell r^2.........: 0.082016
Nagelkerke's pseudo r^2...: 0.110301
Sample size of AE DB......: 2388
Sample size of model......: 283
Missing data %............: 88.14908
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Stroke_history, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Stroke_history
1.2479 -0.4765 0.4920
Degrees of Freedom: 281 Total (i.e. Null); 279 Residual
Null Deviance: 297.1
Residual Deviance: 283.9 AIC: 289.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.34755 0.06012 0.58686 0.73422 1.31594
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.748e+01 2.400e+03 0.007 0.99419
currentDF[, PROTEIN] -5.045e-01 1.592e-01 -3.170 0.00153 **
Age -5.547e-03 2.045e-02 -0.271 0.78618
Gendermale -7.921e-02 3.634e-01 -0.218 0.82743
Hypertension.compositeyes 2.925e-02 4.378e-01 0.067 0.94673
DiabetesStatusDiabetes 2.155e-01 4.403e-01 0.490 0.62446
SmokerCurrentyes 3.666e-01 3.426e-01 1.070 0.28459
Med.Statin.LLDyes 4.374e-02 3.430e-01 0.128 0.89854
Med.all.antiplateletyes 1.015e+00 5.424e-01 1.871 0.06138 .
GFR_MDRD -5.296e-03 9.597e-03 -0.552 0.58102
BMI -2.040e-02 4.045e-02 -0.504 0.61395
CAD_history 4.851e-02 3.488e-01 0.139 0.88938
Stroke_history 3.564e-01 3.577e-01 0.996 0.31907
Peripheral.interv -4.691e-01 3.713e-01 -1.264 0.20639
stenose50-70% -7.343e-01 2.623e+03 0.000 0.99978
stenose70-90% -1.569e+01 2.400e+03 -0.007 0.99478
stenose90-99% -1.608e+01 2.400e+03 -0.007 0.99465
stenose100% (Occlusion) -5.321e-01 2.709e+03 0.000 0.99984
hsCRP_plasma -6.307e-05 1.702e-03 -0.037 0.97043
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 297.07 on 281 degrees of freedom
Residual deviance: 272.39 on 263 degrees of freedom
AIC: 310.39
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.50448
Standard error............: 0.159154
Odds ratio (effect size)..: 0.604
Lower 95% CI..............: 0.442
Upper 95% CI..............: 0.825
Z-value...................: -3.16975
P-value...................: 0.001525702
Hosmer and Lemeshow r^2...: 0.083107
Cox and Snell r^2.........: 0.083826
Nagelkerke's pseudo r^2...: 0.128712
Sample size of AE DB......: 2388
Sample size of model......: 282
Missing data %............: 88.19096
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Hypertension.composite, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Hypertension.compositeyes
0.0789 0.5522 0.5932 1.0357
Degrees of Freedom: 282 Total (i.e. Null); 279 Residual
Null Deviance: 295
Residual Deviance: 270.6 AIC: 278.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3141 0.3124 0.5145 0.6850 1.5427
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.105e+01 8.827e+02 0.013 0.990009
currentDF[, PROTEIN] 5.645e-01 1.658e-01 3.405 0.000661 ***
Age 9.354e-03 2.085e-02 0.449 0.653654
Gendermale 6.345e-01 3.419e-01 1.856 0.063462 .
Hypertension.compositeyes 9.458e-01 4.203e-01 2.250 0.024443 *
DiabetesStatusDiabetes -2.360e-01 4.246e-01 -0.556 0.578317
SmokerCurrentyes 4.125e-01 3.493e-01 1.181 0.237653
Med.Statin.LLDyes 7.017e-03 3.696e-01 0.019 0.984853
Med.all.antiplateletyes 1.850e-01 5.906e-01 0.313 0.754077
GFR_MDRD -7.158e-03 9.898e-03 -0.723 0.469559
BMI 3.406e-02 4.044e-02 0.842 0.399695
CAD_history 4.642e-03 3.745e-01 0.012 0.990112
Stroke_history 6.665e-02 3.605e-01 0.185 0.853332
Peripheral.interv -3.889e-02 3.986e-01 -0.098 0.922261
stenose50-70% -1.430e+01 8.827e+02 -0.016 0.987078
stenose70-90% -1.185e+01 8.827e+02 -0.013 0.989291
stenose90-99% -1.235e+01 8.827e+02 -0.014 0.988834
stenose100% (Occlusion) -1.216e+01 8.827e+02 -0.014 0.989013
hsCRP_plasma -4.565e-04 1.916e-03 -0.238 0.811647
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 295.01 on 282 degrees of freedom
Residual deviance: 259.25 on 264 degrees of freedom
AIC: 297.25
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.564483
Standard error............: 0.165767
Odds ratio (effect size)..: 1.759
Lower 95% CI..............: 1.271
Upper 95% CI..............: 2.434
Z-value...................: 3.405272
P-value...................: 0.0006609828
Hosmer and Lemeshow r^2...: 0.121223
Cox and Snell r^2.........: 0.118709
Nagelkerke's pseudo r^2...: 0.183361
Sample size of AE DB......: 2388
Sample size of model......: 283
Missing data %............: 88.14908
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + DiabetesStatus,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Gendermale DiabetesStatusDiabetes
0.6474 0.8393 -0.5088
Degrees of Freedom: 282 Total (i.e. Null); 280 Residual
Null Deviance: 316.6
Residual Deviance: 306.3 AIC: 312.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.21255 0.03224 0.60894 0.76603 1.53045
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.172e+01 8.827e+02 0.013 0.98941
currentDF[, PROTEIN] -1.546e-01 1.461e-01 -1.059 0.28982
Age 1.509e-02 1.947e-02 0.775 0.43807
Gendermale 9.703e-01 3.200e-01 3.032 0.00243 **
Hypertension.compositeyes 9.932e-02 4.094e-01 0.243 0.80834
DiabetesStatusDiabetes -5.111e-01 3.750e-01 -1.363 0.17298
SmokerCurrentyes 4.463e-01 3.232e-01 1.381 0.16740
Med.Statin.LLDyes -3.783e-01 3.469e-01 -1.091 0.27549
Med.all.antiplateletyes 4.714e-01 5.319e-01 0.886 0.37550
GFR_MDRD -8.638e-04 9.135e-03 -0.095 0.92467
BMI 1.923e-02 3.600e-02 0.534 0.59323
CAD_history 2.176e-01 3.461e-01 0.629 0.52963
Stroke_history -2.648e-02 3.306e-01 -0.080 0.93617
Peripheral.interv 2.434e-01 3.828e-01 0.636 0.52492
stenose50-70% -1.248e+01 8.827e+02 -0.014 0.98872
stenose70-90% -1.316e+01 8.827e+02 -0.015 0.98811
stenose90-99% -1.314e+01 8.827e+02 -0.015 0.98813
stenose100% (Occlusion) -1.352e+01 8.827e+02 -0.015 0.98778
hsCRP_plasma 3.179e-03 4.363e-03 0.729 0.46623
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 316.62 on 282 degrees of freedom
Residual deviance: 297.37 on 264 degrees of freedom
AIC: 335.37
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: IPH
Effect size...............: -0.154647
Standard error............: 0.146099
Odds ratio (effect size)..: 0.857
Lower 95% CI..............: 0.643
Upper 95% CI..............: 1.141
Z-value...................: -1.058506
P-value...................: 0.2898247
Hosmer and Lemeshow r^2...: 0.060794
Cox and Snell r^2.........: 0.065755
Nagelkerke's pseudo r^2...: 0.097656
Sample size of AE DB......: 2388
Sample size of model......: 283
Missing data %............: 88.14908
Analysis of IL6_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
CAD_history + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes CAD_history Peripheral.interv
-2.03767 0.01906 0.31759 0.28534 -0.39470
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose70-99%
-0.26332 0.44676 0.69678 1.70987 -14.15643
Degrees of Freedom: 613 Total (i.e. Null); 604 Residual
Null Deviance: 849.9
Residual Deviance: 824.6 AIC: 844.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.639 -1.124 -0.782 1.160 1.713
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -3.125e+00 1.750e+00 -1.786 0.0741 .
currentDF[, PROTEIN] -2.045e-02 8.657e-02 -0.236 0.8133
Age 2.150e-02 1.055e-02 2.037 0.0416 *
Gendermale 3.066e-02 1.826e-01 0.168 0.8667
Hypertension.compositeyes 2.947e-01 2.552e-01 1.155 0.2482
DiabetesStatusDiabetes -2.433e-02 2.117e-01 -0.115 0.9085
SmokerCurrentyes 3.486e-01 1.844e-01 1.891 0.0586 .
Med.Statin.LLDyes -2.635e-01 2.026e-01 -1.301 0.1933
Med.all.antiplateletyes 6.608e-02 2.939e-01 0.225 0.8221
GFR_MDRD 4.748e-03 4.713e-03 1.007 0.3137
BMI 1.441e-02 2.247e-02 0.642 0.5212
CAD_history 2.976e-01 1.954e-01 1.523 0.1277
Stroke_history 4.809e-03 1.840e-01 0.026 0.9791
Peripheral.interv -3.832e-01 2.158e-01 -1.776 0.0758 .
stenose50-70% -1.930e-01 1.300e+00 -0.148 0.8820
stenose70-90% 5.134e-01 1.251e+00 0.410 0.6815
stenose90-99% 7.524e-01 1.251e+00 0.602 0.5474
stenose100% (Occlusion) 1.842e+00 1.718e+00 1.072 0.2838
stenose70-99% -1.407e+01 4.293e+02 -0.033 0.9739
hsCRP_plasma -3.991e-04 7.679e-04 -0.520 0.6032
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 849.91 on 613 degrees of freedom
Residual deviance: 819.87 on 594 degrees of freedom
AIC: 859.87
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.020447
Standard error............: 0.086566
Odds ratio (effect size)..: 0.98
Lower 95% CI..............: 0.827
Upper 95% CI..............: 1.161
Z-value...................: -0.236202
P-value...................: 0.8132758
Hosmer and Lemeshow r^2...: 0.035343
Cox and Snell r^2.........: 0.047745
Nagelkerke's pseudo r^2...: 0.063704
Sample size of AE DB......: 2388
Sample size of model......: 614
Missing data %............: 74.28811
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes CAD_history
0.9687 -0.3028 0.4678 0.5081
Degrees of Freedom: 616 Total (i.e. Null); 613 Residual
Null Deviance: 658.4
Residual Deviance: 639.9 AIC: 647.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3183 0.3944 0.6278 0.7480 1.1415
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.308e+01 8.347e+02 0.016 0.98750
currentDF[, PROTEIN] -3.246e-01 1.069e-01 -3.036 0.00239 **
Age 6.979e-03 1.231e-02 0.567 0.57092
Gendermale 7.282e-02 2.168e-01 0.336 0.73693
Hypertension.compositeyes 1.616e-01 2.881e-01 0.561 0.57480
DiabetesStatusDiabetes 2.080e-01 2.608e-01 0.797 0.42523
SmokerCurrentyes 5.486e-01 2.293e-01 2.393 0.01671 *
Med.Statin.LLDyes -1.187e-01 2.418e-01 -0.491 0.62337
Med.all.antiplateletyes 5.316e-01 3.297e-01 1.612 0.10691
GFR_MDRD 2.491e-03 5.598e-03 0.445 0.65630
BMI 2.510e-02 2.805e-02 0.895 0.37089
CAD_history 5.359e-01 2.479e-01 2.162 0.03064 *
Stroke_history 3.038e-01 2.237e-01 1.358 0.17445
Peripheral.interv 9.879e-02 2.631e-01 0.376 0.70726
stenose50-70% -1.414e+01 8.347e+02 -0.017 0.98648
stenose70-90% -1.421e+01 8.347e+02 -0.017 0.98642
stenose90-99% -1.415e+01 8.347e+02 -0.017 0.98647
stenose100% (Occlusion) 6.239e-01 1.074e+03 0.001 0.99954
stenose70-99% -1.443e+01 8.347e+02 -0.017 0.98620
hsCRP_plasma -7.901e-04 7.316e-04 -1.080 0.28013
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 658.36 on 616 degrees of freedom
Residual deviance: 627.90 on 597 degrees of freedom
AIC: 667.9
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.324626
Standard error............: 0.106915
Odds ratio (effect size)..: 0.723
Lower 95% CI..............: 0.586
Upper 95% CI..............: 0.891
Z-value...................: -3.036315
P-value...................: 0.002394889
Hosmer and Lemeshow r^2...: 0.046255
Cox and Snell r^2.........: 0.048157
Nagelkerke's pseudo r^2...: 0.073414
Sample size of AE DB......: 2388
Sample size of model......: 617
Missing data %............: 74.16248
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Peripheral.interv
0.5293 0.6114 0.8125 -0.4397
Degrees of Freedom: 616 Total (i.e. Null); 613 Residual
Null Deviance: 743.2
Residual Deviance: 680.1 AIC: 688.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2677 -1.0403 0.6028 0.8173 2.0610
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.352e+01 5.059e+02 0.027 0.9787
currentDF[, PROTEIN] 6.055e-01 1.037e-01 5.838 5.28e-09 ***
Age 6.235e-03 1.200e-02 0.520 0.6033
Gendermale 8.432e-01 2.013e-01 4.189 2.80e-05 ***
Hypertension.compositeyes 1.228e-01 2.865e-01 0.429 0.6682
DiabetesStatusDiabetes -3.444e-02 2.411e-01 -0.143 0.8864
SmokerCurrentyes -5.286e-03 2.111e-01 -0.025 0.9800
Med.Statin.LLDyes -5.567e-02 2.356e-01 -0.236 0.8132
Med.all.antiplateletyes -5.235e-03 3.311e-01 -0.016 0.9874
GFR_MDRD -1.149e-03 5.415e-03 -0.212 0.8320
BMI 8.579e-03 2.474e-02 0.347 0.7288
CAD_history -6.148e-02 2.220e-01 -0.277 0.7818
Stroke_history 2.278e-01 2.165e-01 1.052 0.2928
Peripheral.interv -4.543e-01 2.339e-01 -1.942 0.0521 .
stenose50-70% -1.407e+01 5.059e+02 -0.028 0.9778
stenose70-90% -1.371e+01 5.059e+02 -0.027 0.9784
stenose90-99% -1.360e+01 5.059e+02 -0.027 0.9786
stenose100% (Occlusion) -1.511e+01 5.059e+02 -0.030 0.9762
stenose70-99% -1.475e+01 5.059e+02 -0.029 0.9767
hsCRP_plasma 8.231e-04 1.316e-03 0.625 0.5318
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 743.18 on 616 degrees of freedom
Residual deviance: 671.07 on 597 degrees of freedom
AIC: 711.07
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.605506
Standard error............: 0.103716
Odds ratio (effect size)..: 1.832
Lower 95% CI..............: 1.495
Upper 95% CI..............: 2.245
Z-value...................: 5.838117
P-value...................: 5.279419e-09
Hosmer and Lemeshow r^2...: 0.097027
Cox and Snell r^2.........: 0.110299
Nagelkerke's pseudo r^2...: 0.157534
Sample size of AE DB......: 2388
Sample size of model......: 617
Missing data %............: 74.16248
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes
-0.2863 0.6645 0.4139 -0.3598 0.4213
Degrees of Freedom: 615 Total (i.e. Null); 611 Residual
Null Deviance: 828.8
Residual Deviance: 806.9 AIC: 816.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0878 -1.2415 0.8000 0.9943 1.5548
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.3978635 1.7606654 0.226 0.821222
currentDF[, PROTEIN] 0.1303245 0.0892699 1.460 0.144320
Age -0.0008199 0.0107395 -0.076 0.939143
Gendermale 0.7038625 0.1860745 3.783 0.000155 ***
Hypertension.compositeyes -0.3438930 0.2655006 -1.295 0.195230
DiabetesStatusDiabetes -0.1476838 0.2140216 -0.690 0.490168
SmokerCurrentyes 0.3955331 0.1923278 2.057 0.039729 *
Med.Statin.LLDyes -0.3590541 0.2126520 -1.688 0.091323 .
Med.all.antiplateletyes 0.3879883 0.2955953 1.313 0.189329
GFR_MDRD -0.0050049 0.0048318 -1.036 0.300281
BMI 0.0091710 0.0228344 0.402 0.687956
CAD_history 0.2170901 0.2010528 1.080 0.280246
Stroke_history 0.2138322 0.1908381 1.120 0.262505
Peripheral.interv 0.1016178 0.2212728 0.459 0.646060
stenose50-70% -0.7340905 1.2832124 -0.572 0.567273
stenose70-90% -0.4135027 1.2420292 -0.333 0.739191
stenose90-99% -0.1350682 1.2420013 -0.109 0.913400
stenose100% (Occlusion) -0.8891041 1.6032226 -0.555 0.579187
stenose70-99% 0.3924623 1.7022428 0.231 0.817660
hsCRP_plasma -0.0006085 0.0007988 -0.762 0.446223
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 828.82 on 615 degrees of freedom
Residual deviance: 794.02 on 596 degrees of freedom
AIC: 834.02
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.130324
Standard error............: 0.08927
Odds ratio (effect size)..: 1.139
Lower 95% CI..............: 0.956
Upper 95% CI..............: 1.357
Z-value...................: 1.459892
P-value...................: 0.1443198
Hosmer and Lemeshow r^2...: 0.041991
Cox and Snell r^2.........: 0.054933
Nagelkerke's pseudo r^2...: 0.074274
Sample size of AE DB......: 2388
Sample size of model......: 616
Missing data %............: 74.20436
Analysis of IL6R_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
CAD_history + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes CAD_history Peripheral.interv
-1.39761 0.01805 0.26766 0.28298 -0.44359
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-0.76341 -0.08234 0.14517 1.15737 -15.67282
stenose70-99%
-15.68045
Degrees of Freedom: 618 Total (i.e. Null); 608 Residual
Null Deviance: 856.9
Residual Deviance: 830.8 AIC: 852.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.5362 -1.1336 -0.7777 1.1683 1.7316
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.244e+00 1.864e+00 -1.203 0.2288
currentDF[, PROTEIN] -2.870e-02 8.420e-02 -0.341 0.7332
Age 2.035e-02 1.052e-02 1.933 0.0532 .
Gendermale -7.018e-03 1.812e-01 -0.039 0.9691
Hypertension.compositeyes 2.763e-01 2.520e-01 1.097 0.2729
DiabetesStatusDiabetes -1.002e-01 2.111e-01 -0.474 0.6352
SmokerCurrentyes 2.927e-01 1.830e-01 1.600 0.1097
Med.Statin.LLDyes -1.664e-01 2.054e-01 -0.810 0.4177
Med.all.antiplateletyes 1.380e-01 2.936e-01 0.470 0.6384
GFR_MDRD 3.991e-03 4.690e-03 0.851 0.3947
BMI 3.507e-03 2.295e-02 0.153 0.8786
CAD_history 2.929e-01 1.945e-01 1.506 0.1320
Stroke_history -1.298e-02 1.821e-01 -0.071 0.9432
Peripheral.interv -4.343e-01 2.163e-01 -2.008 0.0447 *
stenose50-70% -6.697e-01 1.476e+00 -0.454 0.6501
stenose70-90% 2.169e-02 1.434e+00 0.015 0.9879
stenose90-99% 2.411e-01 1.436e+00 0.168 0.8666
stenose100% (Occlusion) 1.304e+00 1.854e+00 0.703 0.4817
stenose50-99% -1.567e+01 1.029e+03 -0.015 0.9879
stenose70-99% -1.564e+01 7.110e+02 -0.022 0.9824
hsCRP_plasma -4.118e-04 7.572e-04 -0.544 0.5865
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 856.94 on 618 degrees of freedom
Residual deviance: 827.42 on 598 degrees of freedom
AIC: 869.42
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.028703
Standard error............: 0.0842
Odds ratio (effect size)..: 0.972
Lower 95% CI..............: 0.824
Upper 95% CI..............: 1.146
Z-value...................: -0.340892
P-value...................: 0.7331848
Hosmer and Lemeshow r^2...: 0.034446
Cox and Snell r^2.........: 0.046567
Nagelkerke's pseudo r^2...: 0.062129
Sample size of AE DB......: 2388
Sample size of model......: 619
Missing data %............: 74.07873
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent +
Med.all.antiplatelet + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes Med.all.antiplateletyes CAD_history
0.4945 0.4512 0.4820 0.5581
Degrees of Freedom: 621 Total (i.e. Null); 618 Residual
Null Deviance: 665.8
Residual Deviance: 653.9 AIC: 661.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2594 0.4425 0.6377 0.7661 1.1346
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.310e+01 1.011e+03 0.013 0.9897
currentDF[, PROTEIN] 7.121e-03 1.002e-01 0.071 0.9433
Age 9.646e-03 1.226e-02 0.787 0.4312
Gendermale 1.459e-01 2.117e-01 0.689 0.4909
Hypertension.compositeyes 1.036e-01 2.844e-01 0.364 0.7157
DiabetesStatusDiabetes 2.299e-01 2.587e-01 0.889 0.3742
SmokerCurrentyes 5.375e-01 2.260e-01 2.379 0.0174 *
Med.Statin.LLDyes -2.465e-02 2.401e-01 -0.103 0.9182
Med.all.antiplateletyes 5.599e-01 3.220e-01 1.739 0.0820 .
GFR_MDRD 1.810e-03 5.550e-03 0.326 0.7443
BMI 2.302e-02 2.772e-02 0.830 0.4064
CAD_history 5.432e-01 2.439e-01 2.227 0.0260 *
Stroke_history 1.954e-01 2.189e-01 0.893 0.3720
Peripheral.interv 1.382e-01 2.615e-01 0.529 0.5971
stenose50-70% -1.432e+01 1.011e+03 -0.014 0.9887
stenose70-90% -1.446e+01 1.011e+03 -0.014 0.9886
stenose90-99% -1.431e+01 1.011e+03 -0.014 0.9887
stenose100% (Occlusion) 3.060e-01 1.229e+03 0.000 0.9998
stenose50-99% -4.011e-01 1.442e+03 0.000 0.9998
stenose70-99% -1.468e+01 1.011e+03 -0.015 0.9884
hsCRP_plasma -8.393e-04 7.374e-04 -1.138 0.2551
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 665.84 on 621 degrees of freedom
Residual deviance: 643.58 on 601 degrees of freedom
AIC: 685.58
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.007121
Standard error............: 0.10019
Odds ratio (effect size)..: 1.007
Lower 95% CI..............: 0.828
Upper 95% CI..............: 1.226
Z-value...................: 0.071079
P-value...................: 0.943335
Hosmer and Lemeshow r^2...: 0.033434
Cox and Snell r^2.........: 0.035158
Nagelkerke's pseudo r^2...: 0.0535
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
0.3305 0.2398 0.8514 0.3619 -0.4835
Degrees of Freedom: 621 Total (i.e. Null); 617 Residual
Null Deviance: 750.2
Residual Deviance: 714.3 AIC: 724.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1084 -1.1775 0.6665 0.8395 1.7256
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.329e+01 6.236e+02 0.021 0.9830
currentDF[, PROTEIN] 2.360e-01 9.449e-02 2.497 0.0125 *
Age 9.854e-03 1.165e-02 0.846 0.3975
Gendermale 8.899e-01 1.953e-01 4.557 5.2e-06 ***
Hypertension.compositeyes 1.338e-01 2.763e-01 0.484 0.6281
DiabetesStatusDiabetes -1.547e-02 2.337e-01 -0.066 0.9472
SmokerCurrentyes 5.933e-02 2.054e-01 0.289 0.7727
Med.Statin.LLDyes 6.082e-02 2.329e-01 0.261 0.7940
Med.all.antiplateletyes 5.539e-02 3.245e-01 0.171 0.8645
GFR_MDRD 1.544e-04 5.301e-03 0.029 0.9768
BMI -4.085e-03 2.512e-02 -0.163 0.8708
CAD_history -1.715e-01 2.159e-01 -0.794 0.4271
Stroke_history 3.399e-01 2.103e-01 1.616 0.1061
Peripheral.interv -4.900e-01 2.288e-01 -2.142 0.0322 *
stenose50-70% -1.406e+01 6.236e+02 -0.023 0.9820
stenose70-90% -1.370e+01 6.236e+02 -0.022 0.9825
stenose90-99% -1.372e+01 6.236e+02 -0.022 0.9824
stenose100% (Occlusion) -1.499e+01 6.236e+02 -0.024 0.9808
stenose50-99% -2.925e+01 8.788e+02 -0.033 0.9734
stenose70-99% -1.440e+01 6.236e+02 -0.023 0.9816
hsCRP_plasma 1.055e-03 1.180e-03 0.894 0.3712
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 750.18 on 621 degrees of freedom
Residual deviance: 702.66 on 601 degrees of freedom
AIC: 744.66
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.235974
Standard error............: 0.09449
Odds ratio (effect size)..: 1.266
Lower 95% CI..............: 1.052
Upper 95% CI..............: 1.524
Z-value...................: 2.497357
P-value...................: 0.0125123
Hosmer and Lemeshow r^2...: 0.06335
Cox and Snell r^2.........: 0.07356
Nagelkerke's pseudo r^2...: 0.10499
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + SmokerCurrent, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale SmokerCurrentyes
-0.1522 0.2498 0.6365 0.3340
Degrees of Freedom: 619 Total (i.e. Null); 616 Residual
Null Deviance: 835.3
Residual Deviance: 810.9 AIC: 818.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0278 -1.2499 0.7814 0.9985 1.6067
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 4.328e-01 1.886e+00 0.229 0.818487
currentDF[, PROTEIN] 2.194e-01 8.702e-02 2.521 0.011704 *
Age -2.754e-03 1.079e-02 -0.255 0.798489
Gendermale 6.859e-01 1.848e-01 3.711 0.000206 ***
Hypertension.compositeyes -2.878e-01 2.614e-01 -1.101 0.270823
DiabetesStatusDiabetes -1.545e-01 2.130e-01 -0.725 0.468254
SmokerCurrentyes 3.034e-01 1.908e-01 1.590 0.111766
Med.Statin.LLDyes -2.655e-01 2.148e-01 -1.236 0.216525
Med.all.antiplateletyes 3.741e-01 2.947e-01 1.270 0.204246
GFR_MDRD -4.773e-03 4.840e-03 -0.986 0.324056
BMI -6.643e-03 2.344e-02 -0.283 0.776888
CAD_history 1.800e-01 2.001e-01 0.899 0.368391
Stroke_history 1.644e-01 1.892e-01 0.869 0.384946
Peripheral.interv 4.845e-02 2.214e-01 0.219 0.826790
stenose50-70% -1.988e-01 1.475e+00 -0.135 0.892768
stenose70-90% 8.911e-02 1.438e+00 0.062 0.950580
stenose90-99% 2.268e-01 1.440e+00 0.158 0.874809
stenose100% (Occlusion) -3.762e-01 1.763e+00 -0.213 0.831001
stenose50-99% 1.457e+01 6.226e+02 0.023 0.981333
stenose70-99% 1.153e+00 1.844e+00 0.625 0.531866
hsCRP_plasma -4.849e-04 7.984e-04 -0.607 0.543636
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 835.34 on 619 degrees of freedom
Residual deviance: 798.71 on 599 degrees of freedom
AIC: 840.71
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.21938
Standard error............: 0.087023
Odds ratio (effect size)..: 1.245
Lower 95% CI..............: 1.05
Upper 95% CI..............: 1.477
Z-value...................: 2.520944
P-value...................: 0.01170406
Hosmer and Lemeshow r^2...: 0.04385
Cox and Snell r^2.........: 0.057369
Nagelkerke's pseudo r^2...: 0.077519
Sample size of AE DB......: 2388
Sample size of model......: 620
Missing data %............: 74.03685
Analysis of MCP1_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes Peripheral.interv
-2.39988 -0.44033 0.02181 0.26603 -0.41214
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
0.10233 0.80161 0.93392 1.61242 -14.94601
stenose70-99%
-14.58139
Degrees of Freedom: 637 Total (i.e. Null); 627 Residual
Null Deviance: 882.6
Residual Deviance: 828.8 AIC: 850.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.7296 -1.0748 -0.6531 1.1213 1.9692
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -3.185e+00 1.759e+00 -1.811 0.0701 .
currentDF[, PROTEIN] -4.475e-01 8.767e-02 -5.104 3.32e-07 ***
Age 2.189e-02 1.062e-02 2.061 0.0393 *
Gendermale 4.745e-02 1.830e-01 0.259 0.7954
Hypertension.compositeyes 2.459e-01 2.551e-01 0.964 0.3351
DiabetesStatusDiabetes -1.058e-01 2.126e-01 -0.498 0.6186
SmokerCurrentyes 2.913e-01 1.842e-01 1.582 0.1137
Med.Statin.LLDyes -2.958e-01 2.055e-01 -1.440 0.1500
Med.all.antiplateletyes 1.271e-01 2.933e-01 0.434 0.6646
GFR_MDRD 4.087e-03 4.747e-03 0.861 0.3893
BMI 9.852e-03 2.247e-02 0.438 0.6611
CAD_history 2.717e-01 1.945e-01 1.397 0.1625
Stroke_history 1.043e-01 1.845e-01 0.565 0.5719
Peripheral.interv -4.251e-01 2.167e-01 -1.962 0.0498 *
stenose50-70% 8.138e-02 1.294e+00 0.063 0.9498
stenose70-90% 8.083e-01 1.243e+00 0.650 0.5156
stenose90-99% 9.315e-01 1.243e+00 0.749 0.4536
stenose100% (Occlusion) 1.628e+00 1.713e+00 0.950 0.3420
stenose50-99% -1.493e+01 9.904e+02 -0.015 0.9880
stenose70-99% -1.457e+01 6.868e+02 -0.021 0.9831
hsCRP_plasma -1.953e-04 8.261e-04 -0.236 0.8131
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 882.64 on 637 degrees of freedom
Residual deviance: 822.45 on 617 degrees of freedom
AIC: 864.45
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.447486
Standard error............: 0.087672
Odds ratio (effect size)..: 0.639
Lower 95% CI..............: 0.538
Upper 95% CI..............: 0.759
Z-value...................: -5.104117
P-value...................: 3.323428e-07
Hosmer and Lemeshow r^2...: 0.068196
Cox and Snell r^2.........: 0.090032
Nagelkerke's pseudo r^2...: 0.120157
Sample size of AE DB......: 2388
Sample size of model......: 638
Missing data %............: 73.28308
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + Med.all.antiplatelet + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes Med.all.antiplateletyes CAD_history
0.5805 -0.2561 0.4792 0.4410 0.5331
Degrees of Freedom: 640 Total (i.e. Null); 636 Residual
Null Deviance: 683
Residual Deviance: 663.3 AIC: 673.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3079 0.3988 0.6302 0.7500 1.1886
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.304e+01 8.257e+02 0.016 0.9874
currentDF[, PROTEIN] -2.416e-01 9.930e-02 -2.433 0.0150 *
Age 7.120e-03 1.214e-02 0.586 0.5577
Gendermale 1.621e-01 2.111e-01 0.768 0.4425
Hypertension.compositeyes 6.908e-02 2.849e-01 0.243 0.8084
DiabetesStatusDiabetes 1.106e-01 2.528e-01 0.438 0.6616
SmokerCurrentyes 5.456e-01 2.252e-01 2.423 0.0154 *
Med.Statin.LLDyes -7.351e-02 2.379e-01 -0.309 0.7574
Med.all.antiplateletyes 4.861e-01 3.204e-01 1.517 0.1293
GFR_MDRD 2.182e-03 5.484e-03 0.398 0.6908
BMI 3.061e-02 2.736e-02 1.119 0.2632
CAD_history 5.312e-01 2.407e-01 2.207 0.0273 *
Stroke_history 2.544e-01 2.187e-01 1.163 0.2447
Peripheral.interv 1.899e-01 2.604e-01 0.729 0.4658
stenose50-70% -1.411e+01 8.257e+02 -0.017 0.9864
stenose70-90% -1.426e+01 8.257e+02 -0.017 0.9862
stenose90-99% -1.418e+01 8.257e+02 -0.017 0.9863
stenose100% (Occlusion) 1.502e-01 1.086e+03 0.000 0.9999
stenose50-99% -2.239e-01 1.316e+03 0.000 0.9999
stenose70-99% -1.432e+01 8.257e+02 -0.017 0.9862
hsCRP_plasma -7.554e-04 7.479e-04 -1.010 0.3125
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 682.96 on 640 degrees of freedom
Residual deviance: 653.34 on 620 degrees of freedom
AIC: 695.34
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.241606
Standard error............: 0.099301
Odds ratio (effect size)..: 0.785
Lower 95% CI..............: 0.646
Upper 95% CI..............: 0.954
Z-value...................: -2.433053
P-value...................: 0.01497212
Hosmer and Lemeshow r^2...: 0.043362
Cox and Snell r^2.........: 0.04515
Nagelkerke's pseudo r^2...: 0.068885
Sample size of AE DB......: 2388
Sample size of model......: 641
Missing data %............: 73.15745
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
0.2756 0.2211 0.8570 0.3349 -0.3642
Degrees of Freedom: 640 Total (i.e. Null); 636 Residual
Null Deviance: 779.2
Residual Deviance: 743 AIC: 753
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0590 -1.1830 0.6686 0.8340 1.5657
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.421e+01 8.368e+02 0.017 0.9865
currentDF[, PROTEIN] 2.300e-01 9.342e-02 2.462 0.0138 *
Age 6.612e-03 1.139e-02 0.581 0.5615
Gendermale 8.980e-01 1.913e-01 4.695 2.67e-06 ***
Hypertension.compositeyes 1.628e-01 2.722e-01 0.598 0.5498
DiabetesStatusDiabetes -5.155e-02 2.282e-01 -0.226 0.8213
SmokerCurrentyes 7.727e-02 2.002e-01 0.386 0.6996
Med.Statin.LLDyes -7.564e-02 2.280e-01 -0.332 0.7401
Med.all.antiplateletyes 8.708e-02 3.168e-01 0.275 0.7834
GFR_MDRD -1.562e-04 5.212e-03 -0.030 0.9761
BMI 4.533e-03 2.369e-02 0.191 0.8483
CAD_history -1.616e-01 2.093e-01 -0.772 0.4402
Stroke_history 3.225e-01 2.074e-01 1.555 0.1199
Peripheral.interv -3.953e-01 2.238e-01 -1.766 0.0773 .
stenose50-70% -1.508e+01 8.368e+02 -0.018 0.9856
stenose70-90% -1.464e+01 8.368e+02 -0.017 0.9860
stenose90-99% -1.456e+01 8.368e+02 -0.017 0.9861
stenose100% (Occlusion) -1.569e+01 8.368e+02 -0.019 0.9850
stenose50-99% -3.120e+01 1.302e+03 -0.024 0.9809
stenose70-99% -1.570e+01 8.368e+02 -0.019 0.9850
hsCRP_plasma 9.345e-04 1.300e-03 0.719 0.4721
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 779.19 on 640 degrees of freedom
Residual deviance: 729.62 on 620 degrees of freedom
AIC: 771.62
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.229996
Standard error............: 0.093417
Odds ratio (effect size)..: 1.259
Lower 95% CI..............: 1.048
Upper 95% CI..............: 1.511
Z-value...................: 2.462037
P-value...................: 0.01381502
Hosmer and Lemeshow r^2...: 0.063619
Cox and Snell r^2.........: 0.07442
Nagelkerke's pseudo r^2...: 0.105791
Sample size of AE DB......: 2388
Sample size of model......: 641
Missing data %............: 73.15745
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes
-0.2358 0.6317 0.4079 -0.4060 0.4192
Degrees of Freedom: 638 Total (i.e. Null); 634 Residual
Null Deviance: 861.2
Residual Deviance: 838.9 AIC: 848.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9749 -1.2424 0.7969 1.0058 1.5314
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 8.622e-01 1.750e+00 0.493 0.622313
currentDF[, PROTEIN] -6.833e-02 8.480e-02 -0.806 0.420364
Age -4.438e-03 1.057e-02 -0.420 0.674652
Gendermale 6.920e-01 1.823e-01 3.796 0.000147 ***
Hypertension.compositeyes -3.447e-01 2.594e-01 -1.329 0.183993
DiabetesStatusDiabetes -1.860e-01 2.087e-01 -0.891 0.372807
SmokerCurrentyes 3.582e-01 1.871e-01 1.914 0.055564 .
Med.Statin.LLDyes -4.437e-01 2.115e-01 -2.097 0.035959 *
Med.all.antiplateletyes 3.849e-01 2.892e-01 1.331 0.183178
GFR_MDRD -5.926e-03 4.758e-03 -1.246 0.212891
BMI 3.031e-03 2.235e-02 0.136 0.892158
CAD_history 1.916e-01 1.949e-01 0.983 0.325626
Stroke_history 2.615e-01 1.877e-01 1.393 0.163546
Peripheral.interv 1.459e-01 2.169e-01 0.673 0.500968
stenose50-70% -6.404e-01 1.287e+00 -0.498 0.618782
stenose70-90% -2.939e-01 1.246e+00 -0.236 0.813503
stenose90-99% -1.048e-01 1.245e+00 -0.084 0.932958
stenose100% (Occlusion) -8.639e-01 1.609e+00 -0.537 0.591219
stenose50-99% 1.414e+01 6.240e+02 0.023 0.981926
stenose70-99% 5.429e-01 1.702e+00 0.319 0.749796
hsCRP_plasma -5.275e-04 7.988e-04 -0.660 0.509031
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 861.23 on 638 degrees of freedom
Residual deviance: 825.59 on 618 degrees of freedom
AIC: 867.59
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: -0.068328
Standard error............: 0.084797
Odds ratio (effect size)..: 0.934
Lower 95% CI..............: 0.791
Upper 95% CI..............: 1.103
Z-value...................: -0.80579
P-value...................: 0.4203639
Hosmer and Lemeshow r^2...: 0.041381
Cox and Snell r^2.........: 0.054245
Nagelkerke's pseudo r^2...: 0.073286
Sample size of AE DB......: 2388
Sample size of model......: 639
Missing data %............: 73.24121 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.PlaquePhenotypes.RANK.MODEL4.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Model 5
In this model we correct for Age, Gender, Hypertension status, Diabetes status, current smoker status, lipid-lowering drugs (LLDs), antiplatelet medication, eGFR (MDRD), BMI, CAD history, stroke history, peripheral interventions, stenosis, and IL6 in plaques.
Natural log-transformed data
First we use the natural-log transformed data.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON)) {
TRAIT = TRAITS.CON[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M5) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_LN,
data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing Macrophages_LNNote: Using an external vector in selections is ambiguous.
[34mℹ[39m Use `all_of(COVARIATES_M5)` instead of `COVARIATES_M5` to silence this message.
[34mℹ[39m See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
[90mThis message is displayed once per session.[39m
Call:
lm(formula = currentDF[, PROTEIN] ~ IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) IL6_pg_ug_2015_LN
4.611 0.185
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.4165 -0.8007 0.0170 0.6097 3.9655
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.927383 1.271370 4.662 4.78e-06 ***
currentDF[, TRAIT] -0.021467 0.030894 -0.695 0.488
Age -0.001101 0.008324 -0.132 0.895
Gendermale -0.138367 0.141507 -0.978 0.329
Hypertension.compositeyes -0.050626 0.198464 -0.255 0.799
DiabetesStatusDiabetes 0.083022 0.160017 0.519 0.604
SmokerCurrentyes -0.060466 0.140820 -0.429 0.668
Med.Statin.LLDyes -0.227598 0.142187 -1.601 0.111
Med.all.antiplateletyes -0.169649 0.215412 -0.788 0.432
GFR_MDRD 0.004727 0.003655 1.293 0.197
BMI -0.007313 0.017749 -0.412 0.681
CAD_history 0.094211 0.138611 0.680 0.497
Stroke_history 0.075899 0.130234 0.583 0.560
Peripheral.interv 0.109728 0.154872 0.709 0.479
stenose50-70% -0.898824 0.820875 -1.095 0.274
stenose70-90% -1.030382 0.767061 -1.343 0.180
stenose90-99% -1.011916 0.762658 -1.327 0.186
stenose100% (Occlusion) -1.493765 1.019983 -1.464 0.144
IL6_pg_ug_2015_LN 0.187771 0.040747 4.608 6.10e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.06 on 289 degrees of freedom
Multiple R-squared: 0.09795, Adjusted R-squared: 0.04177
F-statistic: 1.743 on 18 and 289 DF, p-value: 0.03197
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.021467
Standard error............: 0.030894
Odds ratio (effect size)..: 0.979
Lower 95% CI..............: 0.921
Upper 95% CI..............: 1.04
T-value...................: -0.694856
P-value...................: 0.4877039
R^2.......................: 0.097948
Adjusted r^2..............: 0.041765
Sample size of AE DB......: 2388
Sample size of model......: 308
Missing data %............: 87.10218
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Med.Statin.LLD + IL6_pg_ug_2015_LN,
data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes IL6_pg_ug_2015_LN
4.6808 -0.1892 0.1643
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.4525 -0.7612 0.0033 0.6267 3.9346
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.181174 1.230408 5.024 8.78e-07 ***
currentDF[, TRAIT] 0.023514 0.039255 0.599 0.550
Age -0.002751 0.008070 -0.341 0.733
Gendermale -0.155936 0.137818 -1.131 0.259
Hypertension.compositeyes -0.054517 0.188258 -0.290 0.772
DiabetesStatusDiabetes 0.049238 0.154631 0.318 0.750
SmokerCurrentyes -0.086609 0.135319 -0.640 0.523
Med.Statin.LLDyes -0.241771 0.137175 -1.763 0.079 .
Med.all.antiplateletyes -0.221620 0.208851 -1.061 0.289
GFR_MDRD 0.004772 0.003605 1.324 0.187
BMI -0.009630 0.016987 -0.567 0.571
CAD_history 0.080537 0.136960 0.588 0.557
Stroke_history 0.039877 0.126630 0.315 0.753
Peripheral.interv 0.134259 0.154797 0.867 0.386
stenose50-70% -0.929859 0.809564 -1.149 0.252
stenose70-90% -1.038246 0.756292 -1.373 0.171
stenose90-99% -1.015694 0.752079 -1.351 0.178
stenose100% (Occlusion) -1.518787 1.002792 -1.515 0.131
IL6_pg_ug_2015_LN 0.171314 0.039323 4.357 1.82e-05 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.046 on 296 degrees of freedom
Multiple R-squared: 0.09119, Adjusted R-squared: 0.03592
F-statistic: 1.65 on 18 and 296 DF, p-value: 0.04768
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.023514
Standard error............: 0.039255
Odds ratio (effect size)..: 1.024
Lower 95% CI..............: 0.948
Upper 95% CI..............: 1.106
T-value...................: 0.59901
P-value...................: 0.5496245
R^2.......................: 0.091189
Adjusted r^2..............: 0.035923
Sample size of AE DB......: 2388
Sample size of model......: 315
Missing data %............: 86.80904
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ GFR_MDRD + IL6_pg_ug_2015_LN,
data = currentDF)
Coefficients:
(Intercept) GFR_MDRD IL6_pg_ug_2015_LN
4.194942 0.004928 0.165697
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3449 -0.7867 -0.0304 0.6422 4.0349
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.225614 1.280705 4.861 1.92e-06 ***
currentDF[, TRAIT] -0.096433 0.098811 -0.976 0.330
Age -0.003013 0.008161 -0.369 0.712
Gendermale -0.127779 0.139441 -0.916 0.360
Hypertension.compositeyes -0.004603 0.195515 -0.024 0.981
DiabetesStatusDiabetes 0.088105 0.160926 0.547 0.584
SmokerCurrentyes -0.057679 0.139138 -0.415 0.679
Med.Statin.LLDyes -0.228912 0.139883 -1.636 0.103
Med.all.antiplateletyes -0.219084 0.214922 -1.019 0.309
GFR_MDRD 0.005865 0.003695 1.587 0.114
BMI -0.010273 0.017341 -0.592 0.554
CAD_history 0.108852 0.140247 0.776 0.438
Stroke_history 0.077217 0.129761 0.595 0.552
Peripheral.interv 0.155096 0.157608 0.984 0.326
stenose50-70% -0.931291 0.820260 -1.135 0.257
stenose70-90% -1.066183 0.767461 -1.389 0.166
stenose90-99% -1.047425 0.762490 -1.374 0.171
stenose100% (Occlusion) -1.542241 1.019750 -1.512 0.132
IL6_pg_ug_2015_LN 0.169171 0.039667 4.265 2.71e-05 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.059 on 289 degrees of freedom
Multiple R-squared: 0.09279, Adjusted R-squared: 0.03629
F-statistic: 1.642 on 18 and 289 DF, p-value: 0.04945
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.096433
Standard error............: 0.098811
Odds ratio (effect size)..: 0.908
Lower 95% CI..............: 0.748
Upper 95% CI..............: 1.102
T-value...................: -0.975931
P-value...................: 0.3299147
R^2.......................: 0.092794
Adjusted r^2..............: 0.03629
Sample size of AE DB......: 2388
Sample size of model......: 308
Missing data %............: 87.10218
Analysis of MCP1_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + DiabetesStatus +
Med.Statin.LLD + CAD_history + Peripheral.interv + IL6_pg_ug_2015_LN,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] DiabetesStatusDiabetes Med.Statin.LLDyes CAD_history
5.42282 0.03618 -0.19017 -0.21111 0.18964
Peripheral.interv IL6_pg_ug_2015_LN
-0.19098 0.17093
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.0894 -0.5107 0.0377 0.6253 2.1622
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.5922102 0.8650138 7.621 2.24e-13 ***
currentDF[, TRAIT] 0.0325660 0.0220355 1.478 0.1403
Age -0.0083277 0.0054360 -1.532 0.1264
Gendermale 0.1385775 0.0943481 1.469 0.1428
Hypertension.compositeyes -0.1510837 0.1290660 -1.171 0.2425
DiabetesStatusDiabetes -0.1665340 0.1070314 -1.556 0.1206
SmokerCurrentyes -0.0779224 0.0928753 -0.839 0.4020
Med.Statin.LLDyes -0.2435613 0.0983058 -2.478 0.0137 *
Med.all.antiplateletyes 0.1077614 0.1519566 0.709 0.4787
GFR_MDRD -0.0009545 0.0023944 -0.399 0.6904
BMI -0.0130165 0.0117355 -1.109 0.2681
CAD_history 0.1775369 0.0964592 1.841 0.0665 .
Stroke_history 0.0196930 0.0890960 0.221 0.8252
Peripheral.interv -0.1903656 0.1107707 -1.719 0.0866 .
stenose50-70% -0.2004232 0.6205990 -0.323 0.7469
stenose70-90% -0.2165956 0.5830618 -0.371 0.7105
stenose90-99% -0.1922047 0.5805857 -0.331 0.7408
stenose100% (Occlusion) -1.2943097 0.7227984 -1.791 0.0742 .
IL6_pg_ug_2015_LN 0.1735288 0.0274057 6.332 7.20e-10 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.81 on 361 degrees of freedom
Multiple R-squared: 0.1632, Adjusted R-squared: 0.1215
F-statistic: 3.911 on 18 and 361 DF, p-value: 2.367e-07
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.032566
Standard error............: 0.022036
Odds ratio (effect size)..: 1.033
Lower 95% CI..............: 0.989
Upper 95% CI..............: 1.079
T-value...................: 1.477887
P-value...................: 0.1403099
R^2.......................: 0.163189
Adjusted r^2..............: 0.121464
Sample size of AE DB......: 2388
Sample size of model......: 380
Missing data %............: 84.0871
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + Med.Statin.LLD +
Med.all.antiplatelet + CAD_history + Peripheral.interv +
IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
5.82157 -0.08187 -0.01093 0.14979 -0.16992
DiabetesStatusDiabetes Med.Statin.LLDyes Med.all.antiplateletyes CAD_history Peripheral.interv
-0.18956 -0.17667 0.23118 0.22428 -0.16555
IL6_pg_ug_2015_LN
0.14869
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.06735 -0.55452 -0.00776 0.57409 2.18813
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.681140 0.844925 7.907 3.10e-14 ***
currentDF[, TRAIT] -0.082710 0.026881 -3.077 0.00225 **
Age -0.013151 0.005325 -2.470 0.01397 *
Gendermale 0.142034 0.092428 1.537 0.12523
Hypertension.compositeyes -0.182526 0.123943 -1.473 0.14170
DiabetesStatusDiabetes -0.180275 0.104594 -1.724 0.08562 .
SmokerCurrentyes -0.086804 0.089914 -0.965 0.33497
Med.Statin.LLDyes -0.194348 0.095049 -2.045 0.04159 *
Med.all.antiplateletyes 0.140214 0.147589 0.950 0.34272
GFR_MDRD -0.001075 0.002351 -0.457 0.64778
BMI -0.011283 0.011311 -0.998 0.31917
CAD_history 0.208520 0.095341 2.187 0.02936 *
Stroke_history 0.038319 0.086917 0.441 0.65957
Peripheral.interv -0.182971 0.109885 -1.665 0.09674 .
stenose50-70% -0.144584 0.612292 -0.236 0.81346
stenose70-90% -0.199810 0.575211 -0.347 0.72851
stenose90-99% -0.173815 0.572786 -0.303 0.76171
stenose100% (Occlusion) -1.254017 0.712227 -1.761 0.07912 .
IL6_pg_ug_2015_LN 0.150253 0.026926 5.580 4.67e-08 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.7993 on 368 degrees of freedom
Multiple R-squared: 0.1799, Adjusted R-squared: 0.1398
F-statistic: 4.485 on 18 and 368 DF, p-value: 7.585e-09
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.08271
Standard error............: 0.026881
Odds ratio (effect size)..: 0.921
Lower 95% CI..............: 0.873
Upper 95% CI..............: 0.97
T-value...................: -3.076904
P-value...................: 0.002248252
R^2.......................: 0.179909
Adjusted r^2..............: 0.139796
Sample size of AE DB......: 2388
Sample size of model......: 387
Missing data %............: 83.79397
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + DiabetesStatus + Med.Statin.LLD + Med.all.antiplatelet +
CAD_history + IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale DiabetesStatusDiabetes
5.662582 -0.102797 -0.007737 0.233123 -0.157455
Med.Statin.LLDyes Med.all.antiplateletyes CAD_history IL6_pg_ug_2015_LN
-0.194810 0.255192 0.196574 0.172016
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.3634 -0.5541 0.0188 0.6013 2.2016
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.619759 0.872874 7.584 2.89e-13 ***
currentDF[, TRAIT] -0.115158 0.063779 -1.806 0.0718 .
Age -0.009234 0.005326 -1.734 0.0838 .
Gendermale 0.217503 0.093097 2.336 0.0200 *
Hypertension.compositeyes -0.154299 0.128341 -1.202 0.2301
DiabetesStatusDiabetes -0.137882 0.106947 -1.289 0.1981
SmokerCurrentyes -0.098746 0.091868 -1.075 0.2832
Med.Statin.LLDyes -0.201521 0.096729 -2.083 0.0379 *
Med.all.antiplateletyes 0.159414 0.150841 1.057 0.2913
GFR_MDRD -0.000691 0.002419 -0.286 0.7753
BMI -0.011145 0.011563 -0.964 0.3358
CAD_history 0.207952 0.097714 2.128 0.0340 *
Stroke_history 0.041639 0.089080 0.467 0.6405
Peripheral.interv -0.138894 0.112537 -1.234 0.2179
stenose50-70% -0.225423 0.617761 -0.365 0.7154
stenose70-90% -0.213750 0.580972 -0.368 0.7132
stenose90-99% -0.178468 0.578172 -0.309 0.7577
stenose100% (Occlusion) -1.264080 0.720276 -1.755 0.0801 .
IL6_pg_ug_2015_LN 0.174170 0.026779 6.504 2.62e-10 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8061 on 360 degrees of freedom
Multiple R-squared: 0.1713, Adjusted R-squared: 0.1299
F-statistic: 4.135 on 18 and 360 DF, p-value: 6.343e-08
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.115159
Standard error............: 0.063779
Odds ratio (effect size)..: 0.891
Lower 95% CI..............: 0.786
Upper 95% CI..............: 1.01
T-value...................: -1.805579
P-value...................: 0.07181944
R^2.......................: 0.171328
Adjusted r^2..............: 0.129895
Sample size of AE DB......: 2388
Sample size of model......: 379
Missing data %............: 84.12898
Analysis of IL6_pg_ug_2015_LN.
- processing Macrophages_LNattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsense
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Hypertension.composite + SmokerCurrent + Med.Statin.LLD +
Med.all.antiplatelet + GFR_MDRD + BMI + CAD_history + Stroke_history +
Peripheral.interv + stenose + IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Hypertension.compositeyes SmokerCurrentyes
0 0 0 0 0
Med.Statin.LLDyes Med.all.antiplateletyes GFR_MDRD BMI CAD_history
0 0 0 0 0
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
0 0 0 0 0
stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_LN
0 0 0 1 essentially perfect fit: summary may be unreliable
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-9.364e-16 -2.744e-17 1.700e-19 2.931e-17 2.894e-16
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.000e+00 4.875e-17 0.000e+00 1
currentDF[, TRAIT] 0.000e+00 1.348e-18 0.000e+00 1
Age 0.000e+00 3.016e-19 0.000e+00 1
Gendermale 0.000e+00 5.374e-18 0.000e+00 1
Hypertension.compositeyes 0.000e+00 7.505e-18 0.000e+00 1
DiabetesStatusDiabetes 0.000e+00 5.875e-18 0.000e+00 1
SmokerCurrentyes 0.000e+00 5.417e-18 0.000e+00 1
Med.Statin.LLDyes 0.000e+00 5.946e-18 0.000e+00 1
Med.all.antiplateletyes 0.000e+00 8.002e-18 0.000e+00 1
GFR_MDRD 0.000e+00 1.280e-19 0.000e+00 1
BMI 0.000e+00 6.748e-19 0.000e+00 1
CAD_history 0.000e+00 5.515e-18 0.000e+00 1
Stroke_history 0.000e+00 5.200e-18 0.000e+00 1
Peripheral.interv 0.000e+00 6.415e-18 0.000e+00 1
stenose50-70% 0.000e+00 3.494e-17 0.000e+00 1
stenose70-90% 0.000e+00 3.375e-17 0.000e+00 1
stenose90-99% 0.000e+00 3.374e-17 0.000e+00 1
stenose100% (Occlusion) 0.000e+00 4.412e-17 0.000e+00 1
stenose50-99% 0.000e+00 6.266e-17 0.000e+00 1
stenose70-99% 0.000e+00 4.545e-17 0.000e+00 1
IL6_pg_ug_2015_LN 1.000e+00 1.682e-18 5.944e+17 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 7.474e-17 on 955 degrees of freedom
Multiple R-squared: 1, Adjusted R-squared: 1
F-statistic: 1.857e+34 on 20 and 955 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Macrophages_LN ' .essentially perfect fit: summary may be unreliableCollecting data.essentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableWe have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0
Standard error............: 0
Odds ratio (effect size)..: 1
Lower 95% CI..............: 1
Upper 95% CI..............: 1
T-value...................: 0
P-value...................: 1
R^2.......................: 1
Adjusted r^2..............: 1
Sample size of AE DB......: 2388
Sample size of model......: 976
Missing data %............: 59.12898
- processing SMC_LNattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsense
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet +
BMI + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_LN +
CAD_history, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes SmokerCurrentyes
0.000e+00 0.000e+00 0.000e+00 0.000e+00 0.000e+00
Med.Statin.LLDyes Med.all.antiplateletyes BMI Stroke_history Peripheral.interv
0.000e+00 0.000e+00 0.000e+00 0.000e+00 0.000e+00
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
0.000e+00 0.000e+00 0.000e+00 0.000e+00 0.000e+00
stenose70-99% IL6_pg_ug_2015_LN CAD_history
0.000e+00 1.000e+00 -7.715e-18 essentially perfect fit: summary may be unreliable
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-9.157e-15 -3.370e-17 6.900e-18 4.980e-17 4.712e-16
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.000e+00 1.998e-16 0.000e+00 1
currentDF[, TRAIT] 0.000e+00 6.793e-18 0.000e+00 1
Age 0.000e+00 1.239e-18 0.000e+00 1
Gendermale 0.000e+00 2.212e-17 0.000e+00 1
Hypertension.compositeyes 0.000e+00 3.043e-17 0.000e+00 1
DiabetesStatusDiabetes 0.000e+00 2.413e-17 0.000e+00 1
SmokerCurrentyes 0.000e+00 2.219e-17 0.000e+00 1
Med.Statin.LLDyes 0.000e+00 2.412e-17 0.000e+00 1
Med.all.antiplateletyes 0.000e+00 3.275e-17 0.000e+00 1
GFR_MDRD 0.000e+00 5.282e-19 0.000e+00 1
BMI 0.000e+00 2.745e-18 0.000e+00 1
CAD_history 0.000e+00 2.271e-17 0.000e+00 1
Stroke_history 0.000e+00 2.128e-17 0.000e+00 1
Peripheral.interv 0.000e+00 2.637e-17 0.000e+00 1
stenose50-70% 0.000e+00 1.438e-16 0.000e+00 1
stenose70-90% 0.000e+00 1.390e-16 0.000e+00 1
stenose90-99% 0.000e+00 1.389e-16 0.000e+00 1
stenose100% (Occlusion) 0.000e+00 1.767e-16 0.000e+00 1
stenose50-99% 0.000e+00 2.582e-16 0.000e+00 1
stenose70-99% 0.000e+00 1.872e-16 0.000e+00 1
IL6_pg_ug_2015_LN 1.000e+00 6.882e-18 1.453e+17 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 3.077e-16 on 965 degrees of freedom
Multiple R-squared: 1, Adjusted R-squared: 1
F-statistic: 1.117e+33 on 20 and 965 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' SMC_LN ' .essentially perfect fit: summary may be unreliableCollecting data.essentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableWe have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0
Standard error............: 0
Odds ratio (effect size)..: 1
Lower 95% CI..............: 1
Upper 95% CI..............: 1
T-value...................: 0
P-value...................: 1
R^2.......................: 1
Adjusted r^2..............: 1
Sample size of AE DB......: 2388
Sample size of model......: 986
Missing data %............: 58.71022
- processing VesselDensity_LNattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsense
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + stenose + IL6_pg_ug_2015_LN,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
0 0 0 0 0
DiabetesStatusDiabetes SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes GFR_MDRD
0 0 0 0 0
BMI CAD_history Stroke_history stenose50-70% stenose70-90%
0 0 0 0 0
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_LN
0 0 0 0 1 essentially perfect fit: summary may be unreliable
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.969e-16 -2.654e-17 1.430e-18 2.794e-17 3.111e-16
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.000e+00 4.555e-17 0.000e+00 1
currentDF[, TRAIT] 0.000e+00 2.672e-18 0.000e+00 1
Age 0.000e+00 2.841e-19 0.000e+00 1
Gendermale 0.000e+00 5.085e-18 0.000e+00 1
Hypertension.compositeyes 0.000e+00 7.075e-18 0.000e+00 1
DiabetesStatusDiabetes 0.000e+00 5.696e-18 0.000e+00 1
SmokerCurrentyes 0.000e+00 5.167e-18 0.000e+00 1
Med.Statin.LLDyes 0.000e+00 5.575e-18 0.000e+00 1
Med.all.antiplateletyes 0.000e+00 7.841e-18 0.000e+00 1
GFR_MDRD 0.000e+00 1.234e-19 0.000e+00 1
BMI 0.000e+00 6.333e-19 0.000e+00 1
CAD_history 0.000e+00 5.331e-18 0.000e+00 1
Stroke_history 0.000e+00 4.953e-18 0.000e+00 1
Peripheral.interv 0.000e+00 6.250e-18 0.000e+00 1
stenose50-70% 0.000e+00 3.205e-17 0.000e+00 1
stenose70-90% 0.000e+00 3.076e-17 0.000e+00 1
stenose90-99% 0.000e+00 3.072e-17 0.000e+00 1
stenose100% (Occlusion) 0.000e+00 4.017e-17 0.000e+00 1
stenose50-99% 0.000e+00 5.700e-17 0.000e+00 1
stenose70-99% 0.000e+00 4.583e-17 0.000e+00 1
IL6_pg_ug_2015_LN 1.000e+00 1.580e-18 6.327e+17 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 6.797e-17 on 869 degrees of freedom
Multiple R-squared: 1, Adjusted R-squared: 1
F-statistic: 2.083e+34 on 20 and 869 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' VesselDensity_LN ' .essentially perfect fit: summary may be unreliableCollecting data.essentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableWe have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: 0
Standard error............: 0
Odds ratio (effect size)..: 1
Lower 95% CI..............: 1
Upper 95% CI..............: 1
T-value...................: 0
P-value...................: 1
R^2.......................: 1
Adjusted r^2..............: 1
Sample size of AE DB......: 2388
Sample size of model......: 890
Missing data %............: 62.73032
Analysis of IL6R_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Med.Statin.LLD + Peripheral.interv + stenose + IL6_pg_ug_2015_LN,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Med.Statin.LLDyes
-1.242877 0.056355 -0.006051 -0.127290 -0.343429
Peripheral.interv stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.267173 0.649136 0.905228 1.038322 0.609550
stenose50-99% stenose70-99% IL6_pg_ug_2015_LN
0.884428 -0.025479 0.285405
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.9558 -0.5150 0.1072 0.6086 2.9779
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.966276 0.715026 -1.351 0.17690
currentDF[, TRAIT] 0.055979 0.018885 2.964 0.00311 **
Age -0.007873 0.004258 -1.849 0.06476 .
Gendermale -0.100562 0.075655 -1.329 0.18411
Hypertension.compositeyes 0.102874 0.104214 0.987 0.32384
DiabetesStatusDiabetes -0.105455 0.082109 -1.284 0.19935
SmokerCurrentyes -0.007566 0.075970 -0.100 0.92069
Med.Statin.LLDyes -0.342999 0.083058 -4.130 3.96e-05 ***
Med.all.antiplateletyes 0.061685 0.111912 0.551 0.58164
GFR_MDRD -0.002185 0.001823 -1.199 0.23093
BMI -0.006955 0.009654 -0.720 0.47143
CAD_history -0.045923 0.077279 -0.594 0.55249
Stroke_history 0.046251 0.072628 0.637 0.52440
Peripheral.interv 0.275802 0.090336 3.053 0.00233 **
stenose50-70% 0.687748 0.534119 1.288 0.19820
stenose70-90% 0.943458 0.518762 1.819 0.06929 .
stenose90-99% 1.071486 0.518557 2.066 0.03908 *
stenose100% (Occlusion) 0.650093 0.648653 1.002 0.31650
stenose50-99% 0.877489 0.891309 0.984 0.32513
stenose70-99% -0.006258 0.666402 -0.009 0.99251
IL6_pg_ug_2015_LN 0.282153 0.023495 12.009 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.027 on 922 degrees of freedom
Multiple R-squared: 0.2018, Adjusted R-squared: 0.1845
F-statistic: 11.65 on 20 and 922 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: 0.055979
Standard error............: 0.018885
Odds ratio (effect size)..: 1.058
Lower 95% CI..............: 1.019
Upper 95% CI..............: 1.097
T-value...................: 2.964161
P-value...................: 0.00311319
R^2.......................: 0.201768
Adjusted r^2..............: 0.184452
Sample size of AE DB......: 2388
Sample size of model......: 943
Missing data %............: 60.51089
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + GFR_MDRD + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
-1.112015 0.097459 -0.006820 -0.119368 -0.333161
GFR_MDRD Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
-0.002565 0.268643 0.679203 0.926560 1.056767
stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_LN
0.534907 0.747309 -0.034556 0.301993
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.1096 -0.5523 0.0949 0.6268 3.1080
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.149126 0.704847 -1.630 0.1034
currentDF[, TRAIT] 0.095663 0.023010 4.157 3.51e-05 ***
Age -0.007165 0.004206 -1.703 0.0888 .
Gendermale -0.025751 0.074756 -0.344 0.7306
Hypertension.compositeyes 0.089848 0.101636 0.884 0.3769
DiabetesStatusDiabetes -0.115065 0.081121 -1.418 0.1564
SmokerCurrentyes -0.009264 0.074833 -0.124 0.9015
Med.Statin.LLDyes -0.334934 0.080984 -4.136 3.86e-05 ***
Med.all.antiplateletyes 0.067913 0.110179 0.616 0.5378
GFR_MDRD -0.002576 0.001810 -1.423 0.1550
BMI -0.002947 0.009437 -0.312 0.7549
CAD_history -0.048394 0.076543 -0.632 0.5274
Stroke_history 0.055612 0.071499 0.778 0.4369
Peripheral.interv 0.275458 0.089322 3.084 0.0021 **
stenose50-70% 0.684789 0.528754 1.295 0.1956
stenose70-90% 0.937515 0.513760 1.825 0.0683 .
stenose90-99% 1.063799 0.513562 2.071 0.0386 *
stenose100% (Occlusion) 0.572933 0.627488 0.913 0.3614
stenose50-99% 0.751427 0.883539 0.850 0.3953
stenose70-99% -0.031342 0.660105 -0.047 0.9621
IL6_pg_ug_2015_LN 0.299518 0.023167 12.928 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.017 on 932 degrees of freedom
Multiple R-squared: 0.2084, Adjusted R-squared: 0.1914
F-statistic: 12.27 on 20 and 932 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: 0.095663
Standard error............: 0.02301
Odds ratio (effect size)..: 1.1
Lower 95% CI..............: 1.052
Upper 95% CI..............: 1.151
T-value...................: 4.157498
P-value...................: 3.514086e-05
R^2.......................: 0.208431
Adjusted r^2..............: 0.191445
Sample size of AE DB......: 2388
Sample size of model......: 953
Missing data %............: 60.09213
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
DiabetesStatus + Med.Statin.LLD + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age DiabetesStatusDiabetes Med.Statin.LLDyes
-1.417139 0.100429 -0.009354 -0.155244 -0.374452
Peripheral.interv stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.280068 0.737543 1.050648 1.157583 0.634774
stenose50-99% stenose70-99% IL6_pg_ug_2015_LN
0.845134 0.159239 0.287450
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-5.9547 -0.5083 0.0729 0.5954 2.9537
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.059091 0.743676 -1.424 0.1548
currentDF[, TRAIT] 0.101026 0.042011 2.405 0.0164 *
Age -0.011355 0.004466 -2.543 0.0112 *
Gendermale -0.077358 0.079545 -0.973 0.3311
Hypertension.compositeyes 0.106818 0.109344 0.977 0.3289
DiabetesStatusDiabetes -0.154746 0.088733 -1.744 0.0815 .
SmokerCurrentyes -0.031953 0.080677 -0.396 0.6922
Med.Statin.LLDyes -0.375621 0.086700 -4.332 1.65e-05 ***
Med.all.antiplateletyes 0.048492 0.122309 0.396 0.6919
GFR_MDRD -0.002204 0.001966 -1.121 0.2627
BMI -0.006095 0.010100 -0.603 0.5464
CAD_history -0.088731 0.083166 -1.067 0.2863
Stroke_history 0.034438 0.077028 0.447 0.6549
Peripheral.interv 0.276295 0.097946 2.821 0.0049 **
stenose50-70% 0.770678 0.544201 1.416 0.1571
stenose70-90% 1.081230 0.525369 2.058 0.0399 *
stenose90-99% 1.183737 0.524757 2.256 0.0243 *
stenose100% (Occlusion) 0.703847 0.656668 1.072 0.2841
stenose50-99% 0.897784 0.901672 0.996 0.3197
stenose70-99% 0.192480 0.738956 0.260 0.7946
IL6_pg_ug_2015_LN 0.284042 0.024577 11.557 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.039 on 837 degrees of freedom
Multiple R-squared: 0.1997, Adjusted R-squared: 0.1806
F-statistic: 10.45 on 20 and 837 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: 0.101026
Standard error............: 0.042011
Odds ratio (effect size)..: 1.106
Lower 95% CI..............: 1.019
Upper 95% CI..............: 1.201
T-value...................: 2.404755
P-value...................: 0.01639953
R^2.......................: 0.199738
Adjusted r^2..............: 0.180616
Sample size of AE DB......: 2388
Sample size of model......: 858
Missing data %............: 64.07035
Analysis of MCP1_pg_ug_2015_LN.
- processing Macrophages_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
stenose + IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes stenose50-70% stenose70-90%
-0.06925 -0.06816 -0.14401 0.41560 0.37828
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_LN
0.20462 -0.82420 1.06365 0.78594 0.43860
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.9520 -0.7606 -0.0173 0.8465 3.4182
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.0163763 0.7449520 -0.022 0.982466
currentDF[, TRAIT] -0.0688244 0.0205939 -3.342 0.000864 ***
Age 0.0013390 0.0046147 0.290 0.771754
Gendermale 0.0813908 0.0821211 0.991 0.321885
Hypertension.compositeyes -0.1421067 0.1146687 -1.239 0.215546
DiabetesStatusDiabetes -0.0367938 0.0897758 -0.410 0.682015
SmokerCurrentyes -0.0469934 0.0827910 -0.568 0.570430
Med.Statin.LLDyes -0.1426960 0.0911033 -1.566 0.117607
Med.all.antiplateletyes -0.0340903 0.1222730 -0.279 0.780455
GFR_MDRD 0.0002204 0.0019577 0.113 0.910382
BMI -0.0020417 0.0103105 -0.198 0.843073
CAD_history 0.0283634 0.0843530 0.336 0.736759
Stroke_history 0.0501069 0.0794523 0.631 0.528418
Peripheral.interv 0.1051598 0.0980445 1.073 0.283735
stenose50-70% 0.3655695 0.5338315 0.685 0.493634
stenose70-90% 0.3468000 0.5157343 0.672 0.501467
stenose90-99% 0.1783612 0.5154914 0.346 0.729417
stenose100% (Occlusion) -0.8757534 0.6741363 -1.299 0.194232
stenose50-99% 1.0443032 0.9573696 1.091 0.275634
stenose70-99% 0.7383695 0.6944600 1.063 0.287947
IL6_pg_ug_2015_LN 0.4385550 0.0258285 16.979 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.142 on 954 degrees of freedom
Multiple R-squared: 0.2511, Adjusted R-squared: 0.2354
F-statistic: 15.99 on 20 and 954 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Macrophages_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Macrophages_LN
Effect size...............: -0.068824
Standard error............: 0.020594
Odds ratio (effect size)..: 0.933
Lower 95% CI..............: 0.897
Upper 95% CI..............: 0.972
T-value...................: -3.341973
P-value...................: 0.000864164
R^2.......................: 0.251058
Adjusted r^2..............: 0.235357
Sample size of AE DB......: 2388
Sample size of model......: 975
Missing data %............: 59.17085
- processing SMC_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ Med.Statin.LLD + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes stenose50-70% stenose70-90% stenose90-99%
0.009487 -0.164150 0.412654 0.355694 0.189719
stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_LN
-0.600048 1.032517 0.768769 0.423669
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.8483 -0.7505 -0.0237 0.8525 3.3474
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.0325248 0.7466028 -0.044 0.9653
currentDF[, TRAIT] -0.0139722 0.0253879 -0.550 0.5822
Age 0.0025893 0.0046357 0.559 0.5766
Gendermale 0.0688454 0.0826644 0.833 0.4051
Hypertension.compositeyes -0.1507656 0.1136938 -1.326 0.1851
DiabetesStatusDiabetes -0.0656779 0.0901625 -0.728 0.4665
SmokerCurrentyes -0.0363466 0.0829328 -0.438 0.6613
Med.Statin.LLDyes -0.1625254 0.0903411 -1.799 0.0723 .
Med.all.antiplateletyes -0.0230150 0.1223899 -0.188 0.8509
GFR_MDRD 0.0005668 0.0019755 0.287 0.7743
BMI -0.0024383 0.0102576 -0.238 0.8122
CAD_history 0.0296729 0.0849242 0.349 0.7269
Stroke_history 0.0269355 0.0795241 0.339 0.7349
Peripheral.interv 0.1480121 0.0985442 1.502 0.1334
stenose50-70% 0.3622053 0.5371766 0.674 0.5003
stenose70-90% 0.3267152 0.5193234 0.629 0.5294
stenose90-99% 0.1660522 0.5191143 0.320 0.7491
stenose100% (Occlusion) -0.6657976 0.6600302 -1.009 0.3134
stenose50-99% 1.0441546 0.9646197 1.082 0.2793
stenose70-99% 0.7257635 0.6993507 1.038 0.2996
IL6_pg_ug_2015_LN 0.4232919 0.0258245 16.391 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.15 on 964 degrees of freedom
Multiple R-squared: 0.2402, Adjusted R-squared: 0.2244
F-statistic: 15.23 on 20 and 964 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' SMC_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: SMC_LN
Effect size...............: -0.013972
Standard error............: 0.025388
Odds ratio (effect size)..: 0.986
Lower 95% CI..............: 0.938
Upper 95% CI..............: 1.036
T-value...................: -0.550351
P-value...................: 0.5822061
R^2.......................: 0.240151
Adjusted r^2..............: 0.224387
Sample size of AE DB......: 2388
Sample size of model......: 985
Missing data %............: 58.75209
- processing VesselDensity_LN
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Gender +
Med.Statin.LLD + IL6_pg_ug_2015_LN, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Gendermale Med.Statin.LLDyes IL6_pg_ug_2015_LN
0.4345 -0.1410 0.1228 -0.1753 0.4234
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_LN, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.7823 -0.7462 -0.0609 0.8324 3.4019
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.809e-01 7.789e-01 0.489 0.62491
currentDF[, TRAIT] -1.340e-01 4.572e-02 -2.931 0.00347 **
Age 1.477e-03 4.863e-03 0.304 0.76142
Gendermale 1.221e-01 8.693e-02 1.405 0.16051
Hypertension.compositeyes -1.576e-01 1.210e-01 -1.303 0.19295
DiabetesStatusDiabetes -3.504e-02 9.739e-02 -0.360 0.71912
SmokerCurrentyes -4.309e-02 8.835e-02 -0.488 0.62582
Med.Statin.LLDyes -1.778e-01 9.557e-02 -1.860 0.06321 .
Med.all.antiplateletyes 4.854e-02 1.341e-01 0.362 0.71739
GFR_MDRD -6.416e-05 2.113e-03 -0.030 0.97578
BMI -4.015e-03 1.083e-02 -0.371 0.71082
CAD_history 5.405e-02 9.124e-02 0.592 0.55375
Stroke_history 3.583e-02 8.467e-02 0.423 0.67226
Peripheral.interv 8.863e-02 1.069e-01 0.829 0.40716
stenose50-70% 2.078e-01 5.479e-01 0.379 0.70463
stenose70-90% 2.034e-01 5.259e-01 0.387 0.69900
stenose90-99% 7.189e-02 5.252e-01 0.137 0.89115
stenose100% (Occlusion) -9.176e-01 6.867e-01 -1.336 0.18184
stenose50-99% 9.888e-01 9.744e-01 1.015 0.31047
stenose70-99% 4.743e-01 7.835e-01 0.605 0.54506
IL6_pg_ug_2015_LN 4.268e-01 2.716e-02 15.715 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.162 on 868 degrees of freedom
Multiple R-squared: 0.25, Adjusted R-squared: 0.2327
F-statistic: 14.47 on 20 and 868 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' VesselDensity_LN ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: VesselDensity_LN
Effect size...............: -0.133995
Standard error............: 0.045718
Odds ratio (effect size)..: 0.875
Lower 95% CI..............: 0.8
Upper 95% CI..............: 0.957
T-value...................: -2.930908
P-value...................: 0.00346839
R^2.......................: 0.250029
Adjusted r^2..............: 0.232749
Sample size of AE DB......: 2388
Sample size of model......: 889
Missing data %............: 62.77219 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Multi.Protein.PlaquePhenotypes.MODEL5.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M5) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_LN,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Hypertension.composite + DiabetesStatus + GFR_MDRD + Stroke_history,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Hypertension.compositeyes DiabetesStatusDiabetes GFR_MDRD
0.12030 0.21230 0.63975 -0.55916 -0.01326
Stroke_history
-0.39735
Degrees of Freedom: 318 Total (i.e. Null); 313 Residual
Null Deviance: 432.7
Residual Deviance: 416.8 AIC: 428.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2221 -1.1884 0.7612 1.0022 1.7701
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.990445 2.534116 0.391 0.6959
currentDF[, PROTEIN] 0.227533 0.119111 1.910 0.0561 .
Age -0.006221 0.016260 -0.383 0.7020
Gendermale -0.392668 0.279558 -1.405 0.1601
Hypertension.compositeyes 0.733341 0.379484 1.932 0.0533 .
DiabetesStatusDiabetes -0.504068 0.309402 -1.629 0.1033
SmokerCurrentyes -0.143862 0.269962 -0.533 0.5941
Med.Statin.LLDyes -0.075632 0.278371 -0.272 0.7859
Med.all.antiplateletyes 0.370670 0.414175 0.895 0.3708
GFR_MDRD -0.015640 0.007490 -2.088 0.0368 *
BMI -0.031275 0.034200 -0.914 0.3605
CAD_history 0.036519 0.274286 0.133 0.8941
Stroke_history -0.420124 0.254378 -1.652 0.0986 .
Peripheral.interv -0.384648 0.304697 -1.262 0.2068
stenose50-70% 0.868301 1.568518 0.554 0.5799
stenose70-90% 0.706068 1.456805 0.485 0.6279
stenose90-99% 0.323228 1.446476 0.223 0.8232
stenose100% (Occlusion) 1.180498 1.998297 0.591 0.5547
IL6_pg_ug_2015_LN -0.010201 0.080798 -0.126 0.8995
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 432.7 on 318 degrees of freedom
Residual deviance: 408.1 on 300 degrees of freedom
AIC: 446.1
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.227533
Standard error............: 0.119111
Odds ratio (effect size)..: 1.255
Lower 95% CI..............: 0.994
Upper 95% CI..............: 1.586
Z-value...................: 1.91025
P-value...................: 0.05610103
Hosmer and Lemeshow r^2...: 0.056853
Cox and Snell r^2.........: 0.074218
Nagelkerke's pseudo r^2...: 0.099969
Sample size of AE DB......: 2388
Sample size of model......: 319
Missing data %............: 86.64154
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ DiabetesStatus +
Med.all.antiplatelet + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) DiabetesStatusDiabetes Med.all.antiplateletyes stenose50-70% stenose70-90%
16.84114 0.57077 0.72493 -0.04498 -16.30025
stenose90-99% stenose100% (Occlusion)
-16.48248 0.72493
Degrees of Freedom: 318 Total (i.e. Null); 312 Residual
Null Deviance: 338.2
Residual Deviance: 323.6 AIC: 337.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.00741 0.00022 0.61415 0.76055 1.14093
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.772e+01 2.796e+03 0.006 0.9949
currentDF[, PROTEIN] 9.851e-02 1.347e-01 0.731 0.4647
Age 2.759e-03 1.919e-02 0.144 0.8857
Gendermale -3.944e-02 3.230e-01 -0.122 0.9028
Hypertension.compositeyes 3.110e-01 4.299e-01 0.724 0.4694
DiabetesStatusDiabetes 7.254e-01 4.068e-01 1.783 0.0746 .
SmokerCurrentyes 3.079e-01 3.221e-01 0.956 0.3391
Med.Statin.LLDyes -1.470e-03 3.222e-01 -0.005 0.9964
Med.all.antiplateletyes 6.842e-01 4.460e-01 1.534 0.1250
GFR_MDRD -9.908e-03 8.779e-03 -1.129 0.2591
BMI -5.029e-02 4.101e-02 -1.226 0.2201
CAD_history -5.053e-02 3.195e-01 -0.158 0.8743
Stroke_history 3.052e-01 3.125e-01 0.977 0.3287
Peripheral.interv -4.444e-01 3.400e-01 -1.307 0.1911
stenose50-70% -2.758e-02 2.995e+03 0.000 1.0000
stenose70-90% -1.623e+01 2.796e+03 -0.006 0.9954
stenose90-99% -1.648e+01 2.796e+03 -0.006 0.9953
stenose100% (Occlusion) 7.061e-01 3.606e+03 0.000 0.9998
IL6_pg_ug_2015_LN -6.681e-02 9.415e-02 -0.710 0.4780
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 338.23 on 318 degrees of freedom
Residual deviance: 315.17 on 300 degrees of freedom
AIC: 353.17
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.098509
Standard error............: 0.134721
Odds ratio (effect size)..: 1.104
Lower 95% CI..............: 0.847
Upper 95% CI..............: 1.437
Z-value...................: 0.731202
P-value...................: 0.4646559
Hosmer and Lemeshow r^2...: 0.068172
Cox and Snell r^2.........: 0.069732
Nagelkerke's pseudo r^2...: 0.106682
Sample size of AE DB......: 2388
Sample size of model......: 319
Missing data %............: 86.64154
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite +
Stroke_history + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes Stroke_history IL6_pg_ug_2015_LN
0.9404 0.8368 0.8895 0.6832 0.2639
Degrees of Freedom: 318 Total (i.e. Null); 314 Residual
Null Deviance: 296.4
Residual Deviance: 276.5 AIC: 286.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5998 0.3280 0.5023 0.6613 1.3541
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.659e+01 1.693e+03 0.010 0.99218
currentDF[, PROTEIN] -1.287e-02 1.496e-01 -0.086 0.93142
Age -1.270e-02 2.136e-02 -0.594 0.55226
Gendermale 9.800e-01 3.428e-01 2.859 0.00425 **
Hypertension.compositeyes 8.923e-01 4.375e-01 2.039 0.04140 *
DiabetesStatusDiabetes -1.737e-01 4.043e-01 -0.430 0.66748
SmokerCurrentyes -5.799e-02 3.613e-01 -0.161 0.87248
Med.Statin.LLDyes -1.196e-01 3.675e-01 -0.326 0.74475
Med.all.antiplateletyes 9.547e-02 5.545e-01 0.172 0.86331
GFR_MDRD -8.596e-03 9.983e-03 -0.861 0.38916
BMI 1.285e-02 4.392e-02 0.293 0.76981
CAD_history -2.536e-01 3.602e-01 -0.704 0.48136
Stroke_history 7.146e-01 3.673e-01 1.946 0.05170 .
Peripheral.interv -1.081e-01 3.816e-01 -0.283 0.77690
stenose50-70% -1.543e+01 1.693e+03 -0.009 0.99273
stenose70-90% -1.427e+01 1.693e+03 -0.008 0.99327
stenose90-99% -1.452e+01 1.693e+03 -0.009 0.99316
stenose100% (Occlusion) 5.480e-01 2.137e+03 0.000 0.99980
IL6_pg_ug_2015_LN 2.491e-01 1.126e-01 2.212 0.02697 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 296.40 on 318 degrees of freedom
Residual deviance: 269.53 on 300 degrees of freedom
AIC: 307.53
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: Fat10Perc
Effect size...............: -0.012874
Standard error............: 0.149596
Odds ratio (effect size)..: 0.987
Lower 95% CI..............: 0.736
Upper 95% CI..............: 1.324
Z-value...................: -0.086057
P-value...................: 0.9314209
Hosmer and Lemeshow r^2...: 0.090654
Cox and Snell r^2.........: 0.080781
Nagelkerke's pseudo r^2...: 0.133498
Sample size of AE DB......: 2388
Sample size of model......: 319
Missing data %............: 86.64154
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite +
GFR_MDRD, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes GFR_MDRD
1.27860 0.64039 0.57993 -0.01649
Degrees of Freedom: 318 Total (i.e. Null); 315 Residual
Null Deviance: 365.7
Residual Deviance: 353.2 AIC: 361.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0936 -1.1115 0.6435 0.8045 1.3204
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 13.326245 623.802229 0.021 0.9830
currentDF[, PROTEIN] -0.083005 0.127209 -0.653 0.5141
Age 0.013635 0.017553 0.777 0.4373
Gendermale 0.614092 0.293958 2.089 0.0367 *
Hypertension.compositeyes 0.675576 0.386942 1.746 0.0808 .
DiabetesStatusDiabetes -0.550357 0.335330 -1.641 0.1007
SmokerCurrentyes 0.062372 0.307216 0.203 0.8391
Med.Statin.LLDyes 0.002723 0.308712 0.009 0.9930
Med.all.antiplateletyes -0.783958 0.578683 -1.355 0.1755
GFR_MDRD -0.012688 0.008376 -1.515 0.1298
BMI 0.036855 0.037293 0.988 0.3230
CAD_history 0.021073 0.315139 0.067 0.9467
Stroke_history 0.106885 0.286648 0.373 0.7092
Peripheral.interv 0.269576 0.354570 0.760 0.4471
stenose50-70% -12.761963 623.798211 -0.020 0.9837
stenose70-90% -12.986066 623.797895 -0.021 0.9834
stenose90-99% -12.843961 623.797875 -0.021 0.9836
stenose100% (Occlusion) -13.670628 623.799581 -0.022 0.9825
IL6_pg_ug_2015_LN 0.095395 0.091250 1.045 0.2958
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 365.74 on 318 degrees of freedom
Residual deviance: 344.46 on 300 degrees of freedom
AIC: 382.46
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: IPH
Effect size...............: -0.083005
Standard error............: 0.127209
Odds ratio (effect size)..: 0.92
Lower 95% CI..............: 0.717
Upper 95% CI..............: 1.181
Z-value...................: -0.652513
P-value...................: 0.5140706
Hosmer and Lemeshow r^2...: 0.058163
Cox and Snell r^2.........: 0.06451
Nagelkerke's pseudo r^2...: 0.094554
Sample size of AE DB......: 2388
Sample size of model......: 319
Missing data %............: 86.64154
Analysis of MCP1_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
DiabetesStatus + GFR_MDRD + Stroke_history + Peripheral.interv,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] DiabetesStatusDiabetes GFR_MDRD Stroke_history
2.75963 -0.23220 -0.69021 -0.01253 -0.50821
Peripheral.interv
-0.56921
Degrees of Freedom: 390 Total (i.e. Null); 385 Residual
Null Deviance: 529.8
Residual Deviance: 508.7 AIC: 520.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9390 -1.2075 0.7881 1.0028 1.6679
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.615657 2.401219 0.256 0.79765
currentDF[, PROTEIN] -0.215684 0.137600 -1.567 0.11700
Age 0.015147 0.013814 1.097 0.27285
Gendermale -0.205593 0.243600 -0.844 0.39868
Hypertension.compositeyes 0.471313 0.322171 1.463 0.14349
DiabetesStatusDiabetes -0.720366 0.273492 -2.634 0.00844 **
SmokerCurrentyes 0.156046 0.236488 0.660 0.50935
Med.Statin.LLDyes -0.077618 0.251245 -0.309 0.75737
Med.all.antiplateletyes 0.276338 0.391583 0.706 0.48038
GFR_MDRD -0.010076 0.006240 -1.615 0.10635
BMI 0.003885 0.029690 0.131 0.89588
CAD_history -0.015261 0.250409 -0.061 0.95140
Stroke_history -0.555223 0.228526 -2.430 0.01512 *
Peripheral.interv -0.560383 0.285195 -1.965 0.04942 *
stenose50-70% 0.572791 1.638818 0.350 0.72670
stenose70-90% 0.573134 1.547009 0.370 0.71103
stenose90-99% 0.260900 1.540455 0.169 0.86551
stenose100% (Occlusion) 1.170352 2.033339 0.576 0.56490
IL6_pg_ug_2015_LN 0.033806 0.073081 0.463 0.64366
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 529.80 on 390 degrees of freedom
Residual deviance: 502.25 on 372 degrees of freedom
AIC: 540.25
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.215684
Standard error............: 0.1376
Odds ratio (effect size)..: 0.806
Lower 95% CI..............: 0.615
Upper 95% CI..............: 1.055
Z-value...................: -1.567475
P-value...................: 0.1170036
Hosmer and Lemeshow r^2...: 0.052
Cox and Snell r^2.........: 0.068034
Nagelkerke's pseudo r^2...: 0.091684
Sample size of AE DB......: 2388
Sample size of model......: 391
Missing data %............: 83.62647
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
DiabetesStatus + Med.all.antiplatelet + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] DiabetesStatusDiabetes Med.all.antiplateletyes Peripheral.interv
19.836681 -0.605307 0.496906 0.945983 -0.497109
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
-0.362219 -16.187313 -16.664391 -0.008556
Degrees of Freedom: 390 Total (i.e. Null); 382 Residual
Null Deviance: 393.5
Residual Deviance: 360.5 AIC: 378.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.37247 0.00035 0.55119 0.69395 1.29272
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.976e+01 2.690e+03 0.007 0.99414
currentDF[, PROTEIN] -5.976e-01 1.839e-01 -3.250 0.00115 **
Age 9.003e-03 1.747e-02 0.515 0.60623
Gendermale -9.870e-02 3.054e-01 -0.323 0.74655
Hypertension.compositeyes 1.539e-01 3.957e-01 0.389 0.69738
DiabetesStatusDiabetes 5.913e-01 3.780e-01 1.564 0.11779
SmokerCurrentyes 3.815e-01 3.000e-01 1.272 0.20350
Med.Statin.LLDyes 6.889e-02 3.025e-01 0.228 0.81986
Med.all.antiplateletyes 9.329e-01 4.358e-01 2.141 0.03231 *
GFR_MDRD -1.867e-03 7.733e-03 -0.241 0.80920
BMI -3.382e-02 3.913e-02 -0.864 0.38744
CAD_history 4.504e-02 3.045e-01 0.148 0.88240
Stroke_history 3.011e-01 2.941e-01 1.024 0.30583
Peripheral.interv -5.120e-01 3.361e-01 -1.523 0.12774
stenose50-70% -2.787e-01 2.878e+03 0.000 0.99992
stenose70-90% -1.612e+01 2.690e+03 -0.006 0.99522
stenose90-99% -1.663e+01 2.690e+03 -0.006 0.99507
stenose100% (Occlusion) 1.404e-02 3.236e+03 0.000 1.00000
IL6_pg_ug_2015_LN -1.417e-02 9.018e-02 -0.157 0.87517
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 393.52 on 390 degrees of freedom
Residual deviance: 355.78 on 372 degrees of freedom
AIC: 393.78
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.597578
Standard error............: 0.183866
Odds ratio (effect size)..: 0.55
Lower 95% CI..............: 0.384
Upper 95% CI..............: 0.789
Z-value...................: -3.250077
P-value...................: 0.001153738
Hosmer and Lemeshow r^2...: 0.095909
Cox and Snell r^2.........: 0.092015
Nagelkerke's pseudo r^2...: 0.145023
Sample size of AE DB......: 2388
Sample size of model......: 391
Missing data %............: 83.62647
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Hypertension.composite + BMI + Stroke_history +
IL6_pg_ug_2015_LN, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Hypertension.compositeyes BMI
-3.32554 0.60420 0.82335 0.68998 0.05451
Stroke_history IL6_pg_ug_2015_LN
0.64154 0.17450
Degrees of Freedom: 390 Total (i.e. Null); 384 Residual
Null Deviance: 367.5
Residual Deviance: 326.7 AIC: 340.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.6873 0.2956 0.4470 0.6240 1.7142
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 9.920e+00 9.783e+02 0.010 0.991909
currentDF[, PROTEIN] 6.236e-01 1.805e-01 3.455 0.000549 ***
Age 6.051e-04 1.827e-02 0.033 0.973581
Gendermale 8.943e-01 3.020e-01 2.961 0.003065 **
Hypertension.compositeyes 8.125e-01 4.021e-01 2.020 0.043352 *
DiabetesStatusDiabetes -2.452e-01 3.580e-01 -0.685 0.493320
SmokerCurrentyes 1.535e-02 3.156e-01 0.049 0.961216
Med.Statin.LLDyes -2.041e-01 3.500e-01 -0.583 0.559900
Med.all.antiplateletyes 4.440e-02 5.323e-01 0.083 0.933531
GFR_MDRD 1.616e-03 8.527e-03 0.190 0.849698
BMI 5.189e-02 3.986e-02 1.302 0.192964
CAD_history -2.668e-01 3.395e-01 -0.786 0.431944
Stroke_history 6.524e-01 3.304e-01 1.974 0.048329 *
Peripheral.interv 1.371e-01 3.784e-01 0.362 0.717064
stenose50-70% -1.464e+01 9.783e+02 -0.015 0.988061
stenose70-90% -1.308e+01 9.783e+02 -0.013 0.989335
stenose90-99% -1.351e+01 9.783e+02 -0.014 0.988977
stenose100% (Occlusion) -1.354e+01 9.783e+02 -0.014 0.988957
IL6_pg_ug_2015_LN 1.574e-01 1.003e-01 1.570 0.116511
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 367.47 on 390 degrees of freedom
Residual deviance: 318.31 on 372 degrees of freedom
AIC: 356.31
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.623593
Standard error............: 0.18047
Odds ratio (effect size)..: 1.866
Lower 95% CI..............: 1.31
Upper 95% CI..............: 2.657
Z-value...................: 3.455391
P-value...................: 0.0005494961
Hosmer and Lemeshow r^2...: 0.133787
Cox and Snell r^2.........: 0.118153
Nagelkerke's pseudo r^2...: 0.193914
Sample size of AE DB......: 2388
Sample size of model......: 391
Missing data %............: 83.62647
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
BMI, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age Gendermale BMI
-2.47828 0.02961 0.56213 0.04578
Degrees of Freedom: 390 Total (i.e. Null); 387 Residual
Null Deviance: 442.5
Residual Deviance: 430.1 AIC: 438.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0691 -0.8812 0.6388 0.7834 1.5392
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 10.956858 617.026269 0.018 0.9858
currentDF[, PROTEIN] 0.058760 0.152206 0.386 0.6995
Age 0.020541 0.015307 1.342 0.1796
Gendermale 0.587393 0.261581 2.246 0.0247 *
Hypertension.compositeyes 0.413722 0.344099 1.202 0.2292
DiabetesStatusDiabetes -0.444173 0.299202 -1.485 0.1377
SmokerCurrentyes -0.071966 0.266152 -0.270 0.7869
Med.Statin.LLDyes -0.080150 0.284447 -0.282 0.7781
Med.all.antiplateletyes -0.115336 0.453960 -0.254 0.7994
GFR_MDRD -0.006601 0.007114 -0.928 0.3535
BMI 0.047927 0.033475 1.432 0.1522
CAD_history 0.123168 0.294174 0.419 0.6754
Stroke_history 0.240489 0.261867 0.918 0.3584
Peripheral.interv 0.364679 0.343814 1.061 0.2888
stenose50-70% -12.703643 617.023149 -0.021 0.9836
stenose70-90% -12.917664 617.022854 -0.021 0.9833
stenose90-99% -12.667837 617.022837 -0.021 0.9836
stenose100% (Occlusion) -12.703899 617.024124 -0.021 0.9836
IL6_pg_ug_2015_LN 0.054674 0.082702 0.661 0.5086
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 442.47 on 390 degrees of freedom
Residual deviance: 419.44 on 372 degrees of freedom
AIC: 457.44
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: IPH
Effect size...............: 0.05876
Standard error............: 0.152206
Odds ratio (effect size)..: 1.061
Lower 95% CI..............: 0.787
Upper 95% CI..............: 1.429
Z-value...................: 0.386059
P-value...................: 0.699453
Hosmer and Lemeshow r^2...: 0.052051
Cox and Snell r^2.........: 0.057201
Nagelkerke's pseudo r^2...: 0.084431
Sample size of AE DB......: 2388
Sample size of model......: 391
Missing data %............: 83.62647
Analysis of IL6_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + CAD_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes CAD_history
-1.44653 -0.07084 0.01994 0.39936 0.25473
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-1.00356 -0.50547 -0.26062 0.82473 -13.93339
stenose70-99%
-1.52574
Degrees of Freedom: 996 Total (i.e. Null); 986 Residual
Null Deviance: 1381
Residual Deviance: 1349 AIC: 1371
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6142 -1.1333 -0.7968 1.1560 1.6718
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.129798 1.325225 -0.853 0.39392
currentDF[, PROTEIN] -0.069823 0.045164 -1.546 0.12211
Age 0.016974 0.008100 2.095 0.03613 *
Gendermale -0.133605 0.144147 -0.927 0.35400
Hypertension.compositeyes 0.232025 0.202513 1.146 0.25191
DiabetesStatusDiabetes -0.174736 0.159528 -1.095 0.27337
SmokerCurrentyes 0.414304 0.146715 2.824 0.00474 **
Med.Statin.LLDyes -0.164594 0.159158 -1.034 0.30106
Med.all.antiplateletyes -0.223848 0.217190 -1.031 0.30270
GFR_MDRD -0.001882 0.003492 -0.539 0.58999
BMI 0.012407 0.018096 0.686 0.49295
CAD_history 0.263345 0.149976 1.756 0.07910 .
Stroke_history -0.138179 0.140751 -0.982 0.32623
Peripheral.interv -0.183211 0.172892 -1.060 0.28929
stenose50-70% -0.937991 0.962569 -0.974 0.32983
stenose70-90% -0.484572 0.928921 -0.522 0.60191
stenose90-99% -0.235047 0.928443 -0.253 0.80014
stenose100% (Occlusion) 0.820707 1.245138 0.659 0.50981
stenose50-99% -14.005575 368.450051 -0.038 0.96968
stenose70-99% -1.450206 1.253664 -1.157 0.24736
IL6_pg_ug_2015_LN NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1381.3 on 996 degrees of freedom
Residual deviance: 1340.1 on 977 degrees of freedom
AIC: 1380.1
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.069823
Standard error............: 0.045164
Odds ratio (effect size)..: 0.933
Lower 95% CI..............: 0.854
Upper 95% CI..............: 1.019
Z-value...................: -1.545965
P-value...................: 0.122113
Hosmer and Lemeshow r^2...: 0.029786
Cox and Snell r^2.........: 0.040427
Nagelkerke's pseudo r^2...: 0.053918
Sample size of AE DB......: 2388
Sample size of model......: 997
Missing data %............: 58.24958
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Hypertension.composite + SmokerCurrent + BMI + Stroke_history,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Hypertension.compositeyes SmokerCurrentyes BMI
-0.64730 -0.19549 0.33966 0.44766 0.03332
Stroke_history
0.25010
Degrees of Freedom: 999 Total (i.e. Null); 994 Residual
Null Deviance: 1017
Residual Deviance: 993.2 AIC: 1005
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2738 0.4496 0.6096 0.7198 1.1160
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.232e+01 6.478e+02 0.019 0.984826
currentDF[, PROTEIN] -1.901e-01 5.643e-02 -3.370 0.000753 ***
Age 8.224e-03 9.876e-03 0.833 0.405022
Gendermale -8.624e-02 1.781e-01 -0.484 0.628235
Hypertension.compositeyes 3.110e-01 2.330e-01 1.335 0.181998
DiabetesStatusDiabetes 2.110e-01 2.038e-01 1.035 0.300511
SmokerCurrentyes 4.928e-01 1.863e-01 2.645 0.008165 **
Med.Statin.LLDyes -1.679e-02 1.955e-01 -0.086 0.931556
Med.all.antiplateletyes 1.321e-01 2.616e-01 0.505 0.613723
GFR_MDRD 4.699e-03 4.301e-03 1.092 0.274655
BMI 3.343e-02 2.363e-02 1.415 0.157050
CAD_history 2.203e-01 1.882e-01 1.171 0.241696
Stroke_history 2.401e-01 1.765e-01 1.360 0.173700
Peripheral.interv -1.730e-02 2.154e-01 -0.080 0.935980
stenose50-70% -1.361e+01 6.478e+02 -0.021 0.983245
stenose70-90% -1.401e+01 6.478e+02 -0.022 0.982741
stenose90-99% -1.406e+01 6.478e+02 -0.022 0.982686
stenose100% (Occlusion) 5.521e-01 8.166e+02 0.001 0.999461
stenose50-99% 1.725e-02 1.208e+03 0.000 0.999989
stenose70-99% -1.372e+01 6.478e+02 -0.021 0.983109
IL6_pg_ug_2015_LN NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1017.22 on 999 degrees of freedom
Residual deviance: 980.22 on 980 degrees of freedom
AIC: 1020.2
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.190149
Standard error............: 0.056431
Odds ratio (effect size)..: 0.827
Lower 95% CI..............: 0.74
Upper 95% CI..............: 0.924
Z-value...................: -3.369571
P-value...................: 0.000752854
Hosmer and Lemeshow r^2...: 0.03637
Cox and Snell r^2.........: 0.036321
Nagelkerke's pseudo r^2...: 0.056893
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
1.5088 0.3120 0.8361 0.3705 -0.6128
Degrees of Freedom: 999 Total (i.e. Null); 995 Residual
Null Deviance: 1165
Residual Deviance: 1078 AIC: 1088
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2376 -1.0048 0.6046 0.8035 2.0522
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.416e+01 3.908e+02 0.036 0.971101
currentDF[, PROTEIN] 3.150e-01 5.445e-02 5.785 7.25e-09 ***
Age 9.863e-03 9.331e-03 1.057 0.290516
Gendermale 8.540e-01 1.612e-01 5.299 1.16e-07 ***
Hypertension.compositeyes 6.925e-02 2.349e-01 0.295 0.768118
DiabetesStatusDiabetes -1.188e-01 1.840e-01 -0.646 0.518436
SmokerCurrentyes 9.721e-02 1.711e-01 0.568 0.569863
Med.Statin.LLDyes -1.762e-01 1.905e-01 -0.925 0.354945
Med.all.antiplateletyes 6.857e-02 2.500e-01 0.274 0.783889
GFR_MDRD -2.444e-04 4.099e-03 -0.060 0.952452
BMI 4.105e-03 2.044e-02 0.201 0.840876
CAD_history 8.625e-02 1.753e-01 0.492 0.622789
Stroke_history 3.758e-01 1.703e-01 2.207 0.027313 *
Peripheral.interv -6.179e-01 1.860e-01 -3.322 0.000895 ***
stenose50-70% -1.354e+01 3.908e+02 -0.035 0.972374
stenose70-90% -1.348e+01 3.908e+02 -0.035 0.972476
stenose90-99% -1.333e+01 3.908e+02 -0.034 0.972791
stenose100% (Occlusion) -1.432e+01 3.908e+02 -0.037 0.970764
stenose50-99% -1.499e+01 3.908e+02 -0.038 0.969397
stenose70-99% -1.463e+01 3.908e+02 -0.037 0.970143
IL6_pg_ug_2015_LN NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1164.5 on 999 degrees of freedom
Residual deviance: 1066.6 on 980 degrees of freedom
AIC: 1106.6
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: 0.314972
Standard error............: 0.054447
Odds ratio (effect size)..: 1.37
Lower 95% CI..............: 1.232
Upper 95% CI..............: 1.525
Z-value...................: 5.78494
P-value...................: 7.25384e-09
Hosmer and Lemeshow r^2...: 0.084067
Cox and Snell r^2.........: 0.093259
Nagelkerke's pseudo r^2...: 0.135564
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Med.Statin.LLD +
BMI + CAD_history + Stroke_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Med.Statin.LLDyes BMI CAD_history
0.16028 0.59271 -0.25963 0.02923 0.30318
Stroke_history stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.25028 -1.09743 -0.97086 -0.65159 -0.80087
stenose50-99% stenose70-99%
-15.27559 0.59126
Degrees of Freedom: 998 Total (i.e. Null); 987 Residual
Null Deviance: 1331
Residual Deviance: 1288 AIC: 1312
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9361 -1.2697 0.8098 0.9793 1.4501
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.257533 1.493884 0.172 0.8631
currentDF[, PROTEIN] 0.039778 0.046572 0.854 0.3930
Age 0.001667 0.008309 0.201 0.8410
Gendermale 0.639327 0.146514 4.364 1.28e-05 ***
Hypertension.compositeyes -0.107679 0.207227 -0.520 0.6033
DiabetesStatusDiabetes -0.123508 0.163543 -0.755 0.4501
SmokerCurrentyes 0.124348 0.151574 0.820 0.4120
Med.Statin.LLDyes -0.249362 0.167276 -1.491 0.1360
Med.all.antiplateletyes 0.162196 0.221065 0.734 0.4631
GFR_MDRD -0.004962 0.003614 -1.373 0.1698
BMI 0.033097 0.018698 1.770 0.0767 .
CAD_history 0.311877 0.157241 1.983 0.0473 *
Stroke_history 0.230077 0.146495 1.571 0.1163
Peripheral.interv 0.037229 0.178257 0.209 0.8346
stenose50-70% -1.012619 1.165333 -0.869 0.3849
stenose70-90% -0.905980 1.139839 -0.795 0.4267
stenose90-99% -0.591956 1.139857 -0.519 0.6035
stenose100% (Occlusion) -0.746506 1.357852 -0.550 0.5825
stenose50-99% -15.241325 376.943340 -0.040 0.9677
stenose70-99% 0.596010 1.581074 0.377 0.7062
IL6_pg_ug_2015_LN NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1331.0 on 998 degrees of freedom
Residual deviance: 1283.3 on 979 degrees of freedom
AIC: 1323.3
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.039778
Standard error............: 0.046572
Odds ratio (effect size)..: 1.041
Lower 95% CI..............: 0.95
Upper 95% CI..............: 1.14
Z-value...................: 0.85412
P-value...................: 0.3930386
Hosmer and Lemeshow r^2...: 0.035859
Cox and Snell r^2.........: 0.046653
Nagelkerke's pseudo r^2...: 0.063374
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
Analysis of IL6R_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
CAD_history + stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes CAD_history stenose50-70%
-0.5484 0.0167 0.3493 0.2402 -1.6362
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
-1.1930 -0.9512 0.1470 -14.6281 -2.1898
IL6_pg_ug_2015_LN
-0.0803
Degrees of Freedom: 963 Total (i.e. Null); 953 Residual
Null Deviance: 1336
Residual Deviance: 1307 AIC: 1329
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6363 -1.1288 -0.8086 1.1628 1.6918
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.131467 1.509873 0.087 0.9306
currentDF[, PROTEIN] 0.015880 0.064650 0.246 0.8060
Age 0.012327 0.008316 1.482 0.1383
Gendermale -0.137060 0.147383 -0.930 0.3524
Hypertension.compositeyes 0.234963 0.204339 1.150 0.2502
DiabetesStatusDiabetes -0.225859 0.162459 -1.390 0.1645
SmokerCurrentyes 0.351674 0.149268 2.356 0.0185 *
Med.Statin.LLDyes -0.160052 0.163105 -0.981 0.3265
Med.all.antiplateletyes -0.279489 0.221207 -1.263 0.2064
GFR_MDRD -0.002737 0.003625 -0.755 0.4502
BMI 0.005206 0.018794 0.277 0.7818
CAD_history 0.256263 0.152852 1.677 0.0936 .
Stroke_history -0.127472 0.142976 -0.892 0.3726
Peripheral.interv -0.198088 0.177734 -1.115 0.2651
stenose50-70% -1.500411 1.195569 -1.255 0.2095
stenose70-90% -1.121396 1.168598 -0.960 0.3373
stenose90-99% -0.870897 1.168781 -0.745 0.4562
stenose100% (Occlusion) 0.178054 1.432143 0.124 0.9011
stenose50-99% -14.651114 369.668141 -0.040 0.9684
stenose70-99% -2.052663 1.439555 -1.426 0.1539
IL6_pg_ug_2015_LN -0.086194 0.049532 -1.740 0.0818 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1335.6 on 963 degrees of freedom
Residual deviance: 1297.1 on 943 degrees of freedom
AIC: 1339.1
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.01588
Standard error............: 0.06465
Odds ratio (effect size)..: 1.016
Lower 95% CI..............: 0.895
Upper 95% CI..............: 1.153
Z-value...................: 0.245629
P-value...................: 0.8059697
Hosmer and Lemeshow r^2...: 0.028821
Cox and Snell r^2.........: 0.039144
Nagelkerke's pseudo r^2...: 0.052206
Sample size of AE DB......: 2388
Sample size of model......: 964
Missing data %............: 59.63149
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
SmokerCurrent + CAD_history + Stroke_history + IL6_pg_ug_2015_LN,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes SmokerCurrentyes CAD_history Stroke_history
0.1065 0.3455 0.4323 0.2732 0.2837
IL6_pg_ug_2015_LN
-0.2068
Degrees of Freedom: 966 Total (i.e. Null); 961 Residual
Null Deviance: 985.8
Residual Deviance: 960.7 AIC: 972.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2145 0.4440 0.6086 0.7177 1.1783
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.259e+01 7.227e+02 0.017 0.986097
currentDF[, PROTEIN] 5.215e-02 8.232e-02 0.634 0.526381
Age 7.063e-03 1.015e-02 0.696 0.486455
Gendermale -3.182e-02 1.811e-01 -0.176 0.860579
Hypertension.compositeyes 3.185e-01 2.345e-01 1.358 0.174433
DiabetesStatusDiabetes 2.481e-01 2.084e-01 1.190 0.234003
SmokerCurrentyes 4.669e-01 1.891e-01 2.469 0.013536 *
Med.Statin.LLDyes -4.153e-03 2.003e-01 -0.021 0.983458
Med.all.antiplateletyes 1.838e-01 2.645e-01 0.695 0.487095
GFR_MDRD 3.662e-03 4.444e-03 0.824 0.409912
BMI 2.659e-02 2.439e-02 1.090 0.275597
CAD_history 2.855e-01 1.932e-01 1.477 0.139611
Stroke_history 2.739e-01 1.794e-01 1.527 0.126881
Peripheral.interv -6.486e-02 2.204e-01 -0.294 0.768565
stenose50-70% -1.368e+01 7.227e+02 -0.019 0.984895
stenose70-90% -1.407e+01 7.227e+02 -0.019 0.984466
stenose90-99% -1.409e+01 7.227e+02 -0.019 0.984450
stenose100% (Occlusion) 5.863e-01 8.745e+02 0.001 0.999465
stenose50-99% -6.587e-02 1.250e+03 0.000 0.999958
stenose70-99% -1.373e+01 7.227e+02 -0.019 0.984847
IL6_pg_ug_2015_LN -2.201e-01 6.190e-02 -3.555 0.000378 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 985.80 on 966 degrees of freedom
Residual deviance: 948.12 on 946 degrees of freedom
AIC: 990.12
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.052151
Standard error............: 0.082317
Odds ratio (effect size)..: 1.054
Lower 95% CI..............: 0.897
Upper 95% CI..............: 1.238
Z-value...................: 0.633541
P-value...................: 0.5263807
Hosmer and Lemeshow r^2...: 0.038216
Cox and Snell r^2.........: 0.03821
Nagelkerke's pseudo r^2...: 0.059778
Sample size of AE DB......: 2388
Sample size of model......: 967
Missing data %............: 59.50586
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Stroke_history +
Peripheral.interv + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Stroke_history Peripheral.interv IL6_pg_ug_2015_LN
1.5720 0.7867 0.3729 -0.6177 0.3207
Degrees of Freedom: 966 Total (i.e. Null); 962 Residual
Null Deviance: 1120
Residual Deviance: 1038 AIC: 1048
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2342 -1.0138 0.6048 0.7899 1.9678
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.395e+01 4.391e+02 0.032 0.97466
currentDF[, PROTEIN] -7.853e-02 7.347e-02 -1.069 0.28509
Age 1.118e-02 9.683e-03 1.154 0.24832
Gendermale 7.989e-01 1.656e-01 4.825 1.4e-06 ***
Hypertension.compositeyes 5.443e-02 2.395e-01 0.227 0.82023
DiabetesStatusDiabetes -7.246e-02 1.884e-01 -0.385 0.70045
SmokerCurrentyes 1.276e-01 1.752e-01 0.728 0.46643
Med.Statin.LLDyes -1.814e-01 1.955e-01 -0.928 0.35336
Med.all.antiplateletyes 7.743e-02 2.552e-01 0.303 0.76159
GFR_MDRD 5.217e-04 4.295e-03 0.121 0.90331
BMI -8.952e-04 2.143e-02 -0.042 0.96668
CAD_history 6.938e-02 1.792e-01 0.387 0.69860
Stroke_history 3.818e-01 1.736e-01 2.199 0.02785 *
Peripheral.interv -5.960e-01 1.914e-01 -3.114 0.00185 **
stenose50-70% -1.335e+01 4.391e+02 -0.030 0.97574
stenose70-90% -1.332e+01 4.391e+02 -0.030 0.97580
stenose90-99% -1.315e+01 4.391e+02 -0.030 0.97610
stenose100% (Occlusion) -1.417e+01 4.391e+02 -0.032 0.97425
stenose50-99% -1.479e+01 4.391e+02 -0.034 0.97314
stenose70-99% -1.456e+01 4.391e+02 -0.033 0.97355
IL6_pg_ug_2015_LN 3.472e-01 6.028e-02 5.760 8.4e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1119.8 on 966 degrees of freedom
Residual deviance: 1026.6 on 946 degrees of freedom
AIC: 1068.6
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: -0.078534
Standard error............: 0.073468
Odds ratio (effect size)..: 0.924
Lower 95% CI..............: 0.8
Upper 95% CI..............: 1.068
Z-value...................: -1.068964
P-value...................: 0.285086
Hosmer and Lemeshow r^2...: 0.083245
Cox and Snell r^2.........: 0.091898
Nagelkerke's pseudo r^2...: 0.133984
Sample size of AE DB......: 2388
Sample size of model......: 967
Missing data %............: 59.50586
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + GFR_MDRD + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale GFR_MDRD CAD_history
0.579608 0.099350 0.609467 -0.005617 0.258415
Degrees of Freedom: 965 Total (i.e. Null); 961 Residual
Null Deviance: 1287
Residual Deviance: 1260 AIC: 1270
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9401 -1.2758 0.8087 0.9790 1.4683
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.870087 1.542261 0.564 0.5726
currentDF[, PROTEIN] 0.075391 0.066105 1.140 0.2541
Age -0.002322 0.008571 -0.271 0.7864
Gendermale 0.652003 0.149841 4.351 1.35e-05 ***
Hypertension.compositeyes -0.110273 0.209219 -0.527 0.5981
DiabetesStatusDiabetes -0.162545 0.166002 -0.979 0.3275
SmokerCurrentyes 0.105910 0.154553 0.685 0.4932
Med.Statin.LLDyes -0.213342 0.171102 -1.247 0.2124
Med.all.antiplateletyes 0.100133 0.225696 0.444 0.6573
GFR_MDRD -0.006057 0.003763 -1.610 0.1075
BMI 0.021591 0.019375 1.114 0.2651
CAD_history 0.336940 0.160619 2.098 0.0359 *
Stroke_history 0.160102 0.148241 1.080 0.2801
Peripheral.interv 0.011627 0.183433 0.063 0.9495
stenose50-70% -0.707300 1.213509 -0.583 0.5600
stenose70-90% -0.719550 1.188270 -0.606 0.5448
stenose90-99% -0.430171 1.188886 -0.362 0.7175
stenose100% (Occlusion) -0.569412 1.397842 -0.407 0.6838
stenose50-99% -15.053372 375.980709 -0.040 0.9681
stenose70-99% 0.882110 1.614884 0.546 0.5849
IL6_pg_ug_2015_LN 0.019723 0.051089 0.386 0.6995
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1286.7 on 965 degrees of freedom
Residual deviance: 1241.9 on 945 degrees of freedom
AIC: 1283.9
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: 0.075391
Standard error............: 0.066105
Odds ratio (effect size)..: 1.078
Lower 95% CI..............: 0.947
Upper 95% CI..............: 1.227
Z-value...................: 1.140483
P-value...................: 0.2540851
Hosmer and Lemeshow r^2...: 0.034884
Cox and Snell r^2.........: 0.045403
Nagelkerke's pseudo r^2...: 0.061684
Sample size of AE DB......: 2388
Sample size of model......: 966
Missing data %............: 59.54774
Analysis of MCP1_pg_ug_2015_LN.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + Med.Statin.LLD + CAD_history + IL6_pg_ug_2015_LN,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes Med.Statin.LLDyes CAD_history
-1.68186 -0.46232 0.02094 0.43073 -0.24592 0.28851
IL6_pg_ug_2015_LN
0.12975
Degrees of Freedom: 995 Total (i.e. Null); 989 Residual
Null Deviance: 1380
Residual Deviance: 1300 AIC: 1314
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0805 -1.0624 -0.6758 1.0971 2.0048
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.247022 1.352245 -0.922 0.3564
currentDF[, PROTEIN] -0.443863 0.061641 -7.201 5.99e-13 ***
Age 0.019515 0.008385 2.327 0.0199 *
Gendermale -0.114207 0.148426 -0.769 0.4416
Hypertension.compositeyes 0.175828 0.208273 0.844 0.3985
DiabetesStatusDiabetes -0.203647 0.164527 -1.238 0.2158
SmokerCurrentyes 0.424195 0.151463 2.801 0.0051 **
Med.Statin.LLDyes -0.237246 0.164315 -1.444 0.1488
Med.all.antiplateletyes -0.250764 0.222840 -1.125 0.2605
GFR_MDRD -0.001521 0.003610 -0.421 0.6735
BMI 0.011814 0.018663 0.633 0.5267
CAD_history 0.291490 0.154775 1.883 0.0597 .
Stroke_history -0.136104 0.144685 -0.941 0.3469
Peripheral.interv -0.129558 0.177907 -0.728 0.4665
stenose50-70% -0.808165 0.970477 -0.833 0.4050
stenose70-90% -0.351555 0.935233 -0.376 0.7070
stenose90-99% -0.169215 0.934686 -0.181 0.8563
stenose100% (Occlusion) 0.538300 1.257511 0.428 0.6686
stenose50-99% -13.583568 359.187307 -0.038 0.9698
stenose70-99% -1.070720 1.269341 -0.844 0.3989
IL6_pg_ug_2015_LN 0.116989 0.053110 2.203 0.0276 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1379.8 on 995 degrees of freedom
Residual deviance: 1283.1 on 975 degrees of freedom
AIC: 1325.1
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.443863
Standard error............: 0.061641
Odds ratio (effect size)..: 0.642
Lower 95% CI..............: 0.569
Upper 95% CI..............: 0.724
Z-value...................: -7.200765
P-value...................: 5.987587e-13
Hosmer and Lemeshow r^2...: 0.070094
Cox and Snell r^2.........: 0.092541
Nagelkerke's pseudo r^2...: 0.123426
Sample size of AE DB......: 2388
Sample size of model......: 996
Missing data %............: 58.29146
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + BMI + Stroke_history + IL6_pg_ug_2015_LN,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes BMI Stroke_history IL6_pg_ug_2015_LN
-0.42580 -0.14037 0.41148 0.03668 0.25014 -0.14422
Degrees of Freedom: 998 Total (i.e. Null); 993 Residual
Null Deviance: 1017
Residual Deviance: 991.3 AIC: 1003
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4197 0.4376 0.6130 0.7213 1.1331
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.226e+01 6.464e+02 0.019 0.98487
currentDF[, PROTEIN] -1.355e-01 7.212e-02 -1.879 0.06027 .
Age 8.672e-03 9.911e-03 0.875 0.38160
Gendermale -8.085e-02 1.786e-01 -0.453 0.65073
Hypertension.compositeyes 2.949e-01 2.331e-01 1.265 0.20584
DiabetesStatusDiabetes 2.090e-01 2.043e-01 1.023 0.30638
SmokerCurrentyes 4.927e-01 1.869e-01 2.637 0.00837 **
Med.Statin.LLDyes -3.188e-02 1.964e-01 -0.162 0.87101
Med.all.antiplateletyes 1.278e-01 2.616e-01 0.489 0.62514
GFR_MDRD 4.933e-03 4.319e-03 1.142 0.25337
BMI 3.417e-02 2.384e-02 1.433 0.15186
CAD_history 2.175e-01 1.887e-01 1.153 0.24897
Stroke_history 2.438e-01 1.767e-01 1.380 0.16769
Peripheral.interv -1.828e-03 2.160e-01 -0.008 0.99325
stenose50-70% -1.355e+01 6.464e+02 -0.021 0.98327
stenose70-90% -1.397e+01 6.464e+02 -0.022 0.98276
stenose90-99% -1.403e+01 6.464e+02 -0.022 0.98268
stenose100% (Occlusion) 4.510e-01 8.168e+02 0.001 0.99956
stenose50-99% 1.631e-01 1.205e+03 0.000 0.99989
stenose70-99% -1.358e+01 6.464e+02 -0.021 0.98324
IL6_pg_ug_2015_LN -1.360e-01 6.296e-02 -2.161 0.03070 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1016.8 on 998 degrees of freedom
Residual deviance: 976.4 on 978 degrees of freedom
AIC: 1018.4
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.135492
Standard error............: 0.072117
Odds ratio (effect size)..: 0.873
Lower 95% CI..............: 0.758
Upper 95% CI..............: 1.006
Z-value...................: -1.878788
P-value...................: 0.06027341
Hosmer and Lemeshow r^2...: 0.039691
Cox and Snell r^2.........: 0.039592
Nagelkerke's pseudo r^2...: 0.061998
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Stroke_history +
Peripheral.interv + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Stroke_history Peripheral.interv IL6_pg_ug_2015_LN
1.5273 0.8331 0.3735 -0.6084 0.3181
Degrees of Freedom: 998 Total (i.e. Null); 994 Residual
Null Deviance: 1164
Residual Deviance: 1076 AIC: 1086
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2589 -1.0101 0.6018 0.7920 2.0993
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.415e+01 3.921e+02 0.036 0.97120
currentDF[, PROTEIN] -7.151e-02 6.520e-02 -1.097 0.27273
Age 1.046e-02 9.349e-03 1.119 0.26300
Gendermale 8.575e-01 1.615e-01 5.310 1.10e-07 ***
Hypertension.compositeyes 5.600e-02 2.356e-01 0.238 0.81211
DiabetesStatusDiabetes -1.209e-01 1.842e-01 -0.657 0.51145
SmokerCurrentyes 9.488e-02 1.714e-01 0.554 0.57983
Med.Statin.LLDyes -1.720e-01 1.913e-01 -0.899 0.36850
Med.all.antiplateletyes 5.990e-02 2.504e-01 0.239 0.81092
GFR_MDRD -1.064e-04 4.107e-03 -0.026 0.97934
BMI 3.479e-03 2.047e-02 0.170 0.86504
CAD_history 7.993e-02 1.756e-01 0.455 0.64903
Stroke_history 3.777e-01 1.703e-01 2.218 0.02657 *
Peripheral.interv -6.043e-01 1.864e-01 -3.242 0.00119 **
stenose50-70% -1.350e+01 3.921e+02 -0.034 0.97253
stenose70-90% -1.346e+01 3.921e+02 -0.034 0.97262
stenose90-99% -1.332e+01 3.921e+02 -0.034 0.97290
stenose100% (Occlusion) -1.437e+01 3.921e+02 -0.037 0.97078
stenose50-99% -1.491e+01 3.921e+02 -0.038 0.96967
stenose70-99% -1.456e+01 3.921e+02 -0.037 0.97039
IL6_pg_ug_2015_LN 3.528e-01 6.258e-02 5.637 1.73e-08 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1163.9 on 998 degrees of freedom
Residual deviance: 1064.2 on 978 degrees of freedom
AIC: 1106.2
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: Fat10Perc
Effect size...............: -0.071508
Standard error............: 0.065197
Odds ratio (effect size)..: 0.931
Lower 95% CI..............: 0.819
Upper 95% CI..............: 1.058
Z-value...................: -1.096804
P-value...................: 0.2727272
Hosmer and Lemeshow r^2...: 0.085641
Cox and Snell r^2.........: 0.094961
Nagelkerke's pseudo r^2...: 0.138006
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Med.Statin.LLD + BMI + CAD_history + Stroke_history +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Med.Statin.LLDyes BMI
0.29150 -0.16175 0.61178 -0.30170 0.02949
CAD_history Stroke_history stenose50-70% stenose70-90% stenose90-99%
0.33164 0.24139 -1.04294 -0.93615 -0.63010
stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_LN
-0.94859 -15.14790 0.78602 0.10540
Degrees of Freedom: 997 Total (i.e. Null); 984 Residual
Null Deviance: 1329
Residual Deviance: 1277 AIC: 1305
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9763 -1.2540 0.7873 0.9730 1.5792
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.329613 1.502995 0.219 0.82641
currentDF[, PROTEIN] -0.164322 0.059211 -2.775 0.00552 **
Age 0.001184 0.008365 0.142 0.88744
Gendermale 0.661474 0.147568 4.483 7.38e-06 ***
Hypertension.compositeyes -0.132227 0.208361 -0.635 0.52569
DiabetesStatusDiabetes -0.140503 0.164344 -0.855 0.39259
SmokerCurrentyes 0.110164 0.152548 0.722 0.47020
Med.Statin.LLDyes -0.296021 0.168954 -1.752 0.07976 .
Med.all.antiplateletyes 0.162553 0.222186 0.732 0.46441
GFR_MDRD -0.005252 0.003634 -1.445 0.14847
BMI 0.033085 0.018873 1.753 0.07959 .
CAD_history 0.331367 0.158390 2.092 0.03643 *
Stroke_history 0.235023 0.147134 1.597 0.11019
Peripheral.interv 0.050946 0.179307 0.284 0.77632
stenose50-70% -0.969413 1.172996 -0.826 0.40855
stenose70-90% -0.862961 1.147375 -0.752 0.45198
stenose90-99% -0.564964 1.147362 -0.492 0.62243
stenose100% (Occlusion) -0.861362 1.365522 -0.631 0.52818
stenose50-99% -15.111635 375.012524 -0.040 0.96786
stenose70-99% 0.760363 1.594802 0.477 0.63352
IL6_pg_ug_2015_LN 0.102235 0.053419 1.914 0.05564 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1329.1 on 997 degrees of freedom
Residual deviance: 1272.6 on 977 degrees of freedom
AIC: 1314.6
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: IPH
Effect size...............: -0.164322
Standard error............: 0.059211
Odds ratio (effect size)..: 0.848
Lower 95% CI..............: 0.756
Upper 95% CI..............: 0.953
Z-value...................: -2.775196
P-value...................: 0.005516838
Hosmer and Lemeshow r^2...: 0.04254
Cox and Snell r^2.........: 0.055078
Nagelkerke's pseudo r^2...: 0.074835
Sample size of AE DB......: 2388
Sample size of model......: 998
Missing data %............: 58.2077 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.PlaquePhenotypes.MODEL5.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
Analysis of continuous/quantitative plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 15, nrow = 0))
cat("Running linear regression...\n")Running linear regression...for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.CON.RANK)) {
TRAIT = TRAITS.CON.RANK[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M5rank) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
### univariate
fit <- lm(currentDF[,PROTEIN] ~ currentDF[,TRAIT] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_rank,
data = currentDF)
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 15, nrow = 0))
GLM.results.TEMP[1,] = GLM.CON(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing Macrophages_rankNote: Using an external vector in selections is ambiguous.
[34mℹ[39m Use `all_of(COVARIATES_M5rank)` instead of `COVARIATES_M5rank` to silence this message.
[34mℹ[39m See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
[90mThis message is displayed once per session.[39m
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
Med.all.antiplatelet + CAD_history + IL6_pg_ug_2015_rank,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes Med.all.antiplateletyes CAD_history
0.35989 -0.07726 -0.21850 -0.25457 0.16345
IL6_pg_ug_2015_rank
0.16591
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.84744 -0.68617 0.08551 0.63084 2.76718
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.2031063 1.0305201 2.138 0.033217 *
currentDF[, TRAIT] -0.0742790 0.0467605 -1.589 0.113071
Age -0.0066882 0.0063518 -1.053 0.293082
Gendermale -0.1099818 0.1127155 -0.976 0.329860
Hypertension.compositeyes 0.0267508 0.1561093 0.171 0.864040
DiabetesStatusDiabetes -0.0280114 0.1276448 -0.219 0.826428
SmokerCurrentyes 0.0254452 0.1100166 0.231 0.817228
Med.Statin.LLDyes -0.2522453 0.1137454 -2.218 0.027218 *
Med.all.antiplateletyes -0.3217332 0.1793115 -1.794 0.073628 .
GFR_MDRD -0.0006063 0.0028743 -0.211 0.833055
BMI -0.0125403 0.0141299 -0.888 0.375415
CAD_history 0.1796808 0.1146154 1.568 0.117853
Stroke_history 0.0582772 0.1067541 0.546 0.585480
Peripheral.interv 0.0944270 0.1298333 0.727 0.467529
stenose50-70% -0.6811138 0.7287012 -0.935 0.350586
stenose70-90% -0.9512645 0.6846125 -1.389 0.165561
stenose90-99% -0.9277803 0.6818376 -1.361 0.174477
stenose100% (Occlusion) -1.3783689 0.8486138 -1.624 0.105216
IL6_pg_ug_2015_rank 0.1649700 0.0488477 3.377 0.000814 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9506 on 352 degrees of freedom
Multiple R-squared: 0.08119, Adjusted R-squared: 0.03421
F-statistic: 1.728 on 18 and 352 DF, p-value: 0.03306
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.074279
Standard error............: 0.04676
Odds ratio (effect size)..: 0.928
Lower 95% CI..............: 0.847
Upper 95% CI..............: 1.018
T-value...................: -1.588501
P-value...................: 0.1130708
R^2.......................: 0.081194
Adjusted r^2..............: 0.03421
Sample size of AE DB......: 2388
Sample size of model......: 371
Missing data %............: 84.46399
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
Med.all.antiplatelet + IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes Med.all.antiplateletyes IL6_pg_ug_2015_rank
0.39785 0.08688 -0.19540 -0.26346 0.17996
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.92927 -0.67421 0.02866 0.64141 2.58659
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.0867567 1.0364337 2.013 0.044840 *
currentDF[, TRAIT] 0.0637693 0.0515246 1.238 0.216679
Age -0.0051687 0.0065107 -0.794 0.427807
Gendermale -0.1036623 0.1149227 -0.902 0.367669
Hypertension.compositeyes 0.0483875 0.1568018 0.309 0.757817
DiabetesStatusDiabetes -0.0160488 0.1278983 -0.125 0.900215
SmokerCurrentyes 0.0332253 0.1100576 0.302 0.762916
Med.Statin.LLDyes -0.2497548 0.1153095 -2.166 0.030991 *
Med.all.antiplateletyes -0.3157180 0.1799548 -1.754 0.080235 .
GFR_MDRD -0.0005197 0.0028850 -0.180 0.857160
BMI -0.0126116 0.0141800 -0.889 0.374405
CAD_history 0.1392717 0.1155741 1.205 0.229003
Stroke_history 0.0502429 0.1072670 0.468 0.639797
Peripheral.interv 0.0825096 0.1308781 0.630 0.528825
stenose50-70% -0.7117173 0.7319912 -0.972 0.331573
stenose70-90% -0.9703349 0.6867419 -1.413 0.158560
stenose90-99% -0.9317509 0.6838765 -1.362 0.173933
stenose100% (Occlusion) -1.3799752 0.8511497 -1.621 0.105855
IL6_pg_ug_2015_rank 0.1781599 0.0498129 3.577 0.000397 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9533 on 349 degrees of freedom
Multiple R-squared: 0.07877, Adjusted R-squared: 0.03126
F-statistic: 1.658 on 18 and 349 DF, p-value: 0.04502
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.063769
Standard error............: 0.051525
Odds ratio (effect size)..: 1.066
Lower 95% CI..............: 0.963
Upper 95% CI..............: 1.179
T-value...................: 1.237647
P-value...................: 0.2166789
R^2.......................: 0.078772
Adjusted r^2..............: 0.031259
Sample size of AE DB......: 2388
Sample size of model......: 368
Missing data %............: 84.58961
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Med.Statin.LLD + Med.all.antiplatelet +
IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes Med.all.antiplateletyes IL6_pg_ug_2015_rank
0.3946 -0.1937 -0.2655 0.1654
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-1.90308 -0.67707 0.07394 0.63223 2.76744
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.150e+00 1.045e+00 2.058 0.040363 *
currentDF[, TRAIT] -6.949e-02 6.396e-02 -1.087 0.277974
Age -6.905e-03 6.442e-03 -1.072 0.284480
Gendermale -1.054e-01 1.141e-01 -0.923 0.356568
Hypertension.compositeyes 8.635e-02 1.604e-01 0.538 0.590637
DiabetesStatusDiabetes -1.333e-02 1.308e-01 -0.102 0.918894
SmokerCurrentyes 4.174e-02 1.116e-01 0.374 0.708632
Med.Statin.LLDyes -2.492e-01 1.155e-01 -2.158 0.031634 *
Med.all.antiplateletyes -3.307e-01 1.808e-01 -1.829 0.068294 .
GFR_MDRD 1.827e-05 2.932e-03 0.006 0.995032
BMI -1.267e-02 1.431e-02 -0.885 0.376633
CAD_history 1.581e-01 1.160e-01 1.363 0.173663
Stroke_history 9.170e-02 1.091e-01 0.840 0.401297
Peripheral.interv 9.252e-02 1.327e-01 0.697 0.486219
stenose50-70% -6.830e-01 7.339e-01 -0.931 0.352696
stenose70-90% -9.892e-01 6.899e-01 -1.434 0.152541
stenose90-99% -9.555e-01 6.868e-01 -1.391 0.165052
stenose100% (Occlusion) -1.414e+00 8.559e-01 -1.652 0.099411 .
IL6_pg_ug_2015_rank 1.670e-01 4.948e-02 3.374 0.000824 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9564 on 344 degrees of freedom
Multiple R-squared: 0.07774, Adjusted R-squared: 0.02949
F-statistic: 1.611 on 18 and 344 DF, p-value: 0.0551
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.069495
Standard error............: 0.063956
Odds ratio (effect size)..: 0.933
Lower 95% CI..............: 0.823
Upper 95% CI..............: 1.057
T-value...................: -1.086601
P-value...................: 0.2779738
R^2.......................: 0.077744
Adjusted r^2..............: 0.029487
Sample size of AE DB......: 2388
Sample size of model......: 363
Missing data %............: 84.799
Analysis of MCP1_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + Med.Statin.LLD +
Med.all.antiplatelet + CAD_history + Peripheral.interv +
IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
0.455323 0.098950 -0.007998 0.239787 -0.212282
DiabetesStatusDiabetes Med.Statin.LLDyes Med.all.antiplateletyes CAD_history Peripheral.interv
-0.274062 -0.208990 0.383777 0.199395 -0.177163
IL6_pg_ug_2015_rank
0.281379
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.66159 -0.65202 0.01668 0.65824 2.64720
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.210790 0.981220 1.234 0.2180
currentDF[, TRAIT] 0.093391 0.044733 2.088 0.0375 *
Age -0.010588 0.006050 -1.750 0.0809 .
Gendermale 0.242507 0.105839 2.291 0.0225 *
Hypertension.compositeyes -0.219585 0.144592 -1.519 0.1297
DiabetesStatusDiabetes -0.266244 0.120184 -2.215 0.0273 *
SmokerCurrentyes -0.047201 0.104990 -0.450 0.6533
Med.Statin.LLDyes -0.230203 0.110357 -2.086 0.0377 *
Med.all.antiplateletyes 0.326921 0.167864 1.948 0.0522 .
GFR_MDRD -0.002338 0.002739 -0.853 0.3939
BMI -0.008989 0.013129 -0.685 0.4940
CAD_history 0.195402 0.110685 1.765 0.0783 .
Stroke_history 0.092587 0.101208 0.915 0.3609
Peripheral.interv -0.190373 0.127441 -1.494 0.1361
stenose50-70% -0.081469 0.715759 -0.114 0.9094
stenose70-90% -0.095273 0.672675 -0.142 0.8874
stenose90-99% -0.124982 0.669862 -0.187 0.8521
stenose100% (Occlusion) -0.947978 0.832048 -1.139 0.2553
IL6_pg_ug_2015_rank 0.276120 0.045899 6.016 4.25e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9349 on 376 degrees of freedom
Multiple R-squared: 0.1664, Adjusted R-squared: 0.1265
F-statistic: 4.171 on 18 and 376 DF, p-value: 4.738e-08
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.093391
Standard error............: 0.044733
Odds ratio (effect size)..: 1.098
Lower 95% CI..............: 1.006
Upper 95% CI..............: 1.198
T-value...................: 2.087753
P-value...................: 0.0374927
R^2.......................: 0.16644
Adjusted r^2..............: 0.126535
Sample size of AE DB......: 2388
Sample size of model......: 395
Missing data %............: 83.45896
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + Med.Statin.LLD +
Med.all.antiplatelet + CAD_history + IL6_pg_ug_2015_rank,
data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale Hypertension.compositeyes
0.77356 -0.13097 -0.01268 0.22471 -0.21870
DiabetesStatusDiabetes Med.Statin.LLDyes Med.all.antiplateletyes CAD_history IL6_pg_ug_2015_rank
-0.28091 -0.20124 0.37211 0.21861 0.24395
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.55335 -0.65341 -0.03949 0.65521 2.69818
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.554051 0.977225 1.590 0.1126
currentDF[, TRAIT] -0.130423 0.048350 -2.697 0.0073 **
Age -0.015344 0.006137 -2.500 0.0128 *
Gendermale 0.213022 0.106539 1.999 0.0463 *
Hypertension.compositeyes -0.231524 0.143610 -1.612 0.1078
DiabetesStatusDiabetes -0.267855 0.119386 -2.244 0.0254 *
SmokerCurrentyes -0.062128 0.103707 -0.599 0.5495
Med.Statin.LLDyes -0.215775 0.110095 -1.960 0.0508 .
Med.all.antiplateletyes 0.306341 0.166546 1.839 0.0667 .
GFR_MDRD -0.002438 0.002715 -0.898 0.3696
BMI -0.008989 0.013030 -0.690 0.4907
CAD_history 0.238812 0.110205 2.167 0.0309 *
Stroke_history 0.101300 0.100583 1.007 0.3145
Peripheral.interv -0.184149 0.127330 -1.446 0.1489
stenose50-70% -0.019812 0.710604 -0.028 0.9778
stenose70-90% -0.064875 0.667296 -0.097 0.9226
stenose90-99% -0.098145 0.664491 -0.148 0.8827
stenose100% (Occlusion) -0.945321 0.825343 -1.145 0.2528
IL6_pg_ug_2015_rank 0.241475 0.046528 5.190 3.46e-07 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9273 on 373 degrees of freedom
Multiple R-squared: 0.1722, Adjusted R-squared: 0.1323
F-statistic: 4.311 on 18 and 373 DF, p-value: 2.081e-08
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.130423
Standard error............: 0.04835
Odds ratio (effect size)..: 0.878
Lower 95% CI..............: 0.798
Upper 95% CI..............: 0.965
T-value...................: -2.697469
P-value...................: 0.007304015
R^2.......................: 0.172223
Adjusted r^2..............: 0.132277
Sample size of AE DB......: 2388
Sample size of model......: 392
Missing data %............: 83.58459
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + DiabetesStatus + Med.Statin.LLD + Med.all.antiplatelet +
CAD_history + IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale DiabetesStatusDiabetes
0.347892 -0.130851 -0.009673 0.291255 -0.237930
Med.Statin.LLDyes Med.all.antiplateletyes CAD_history IL6_pg_ug_2015_rank
-0.211412 0.394747 0.204490 0.281865
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.71687 -0.67661 -0.01886 0.67777 2.71172
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.227389 0.986479 1.244 0.21422
currentDF[, TRAIT] -0.139249 0.060068 -2.318 0.02099 *
Age -0.011612 0.006075 -1.911 0.05672 .
Gendermale 0.283848 0.106206 2.673 0.00786 **
Hypertension.compositeyes -0.190942 0.148027 -1.290 0.19789
DiabetesStatusDiabetes -0.217584 0.121942 -1.784 0.07520 .
SmokerCurrentyes -0.072471 0.105407 -0.688 0.49218
Med.Statin.LLDyes -0.222020 0.111033 -2.000 0.04628 *
Med.all.antiplateletyes 0.337245 0.167708 2.011 0.04507 *
GFR_MDRD -0.002070 0.002782 -0.744 0.45743
BMI -0.008220 0.013248 -0.620 0.53534
CAD_history 0.229973 0.111607 2.061 0.04005 *
Stroke_history 0.113074 0.102710 1.101 0.27166
Peripheral.interv -0.131189 0.129629 -1.012 0.31219
stenose50-70% -0.164915 0.714212 -0.231 0.81752
stenose70-90% -0.127877 0.671601 -0.190 0.84910
stenose90-99% -0.159676 0.668379 -0.239 0.81132
stenose100% (Occlusion) -1.011506 0.831005 -1.217 0.22431
IL6_pg_ug_2015_rank 0.276904 0.045999 6.020 4.24e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9319 on 367 degrees of freedom
Multiple R-squared: 0.1718, Adjusted R-squared: 0.1312
F-statistic: 4.229 on 18 and 367 DF, p-value: 3.499e-08
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.139249
Standard error............: 0.060068
Odds ratio (effect size)..: 0.87
Lower 95% CI..............: 0.773
Upper 95% CI..............: 0.979
T-value...................: -2.318182
P-value...................: 0.02098847
R^2.......................: 0.171797
Adjusted r^2..............: 0.131177
Sample size of AE DB......: 2388
Sample size of model......: 386
Missing data %............: 83.83585
Analysis of IL6_pg_ug_2015_rank.
- processing Macrophages_rankattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsense
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + DiabetesStatus + SmokerCurrent + Med.Statin.LLD +
GFR_MDRD + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank + Hypertension.composite, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale DiabetesStatusDiabetes
2.247e-17 1.038e-17 -4.087e-19 9.218e-19 -3.176e-18
SmokerCurrentyes Med.Statin.LLDyes GFR_MDRD CAD_history Stroke_history
8.553e-18 -7.241e-18 -2.651e-19 -1.348e-17 2.148e-17
Peripheral.interv stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
-1.680e-17 -9.075e-19 2.774e-17 2.150e-17 6.606e-17
stenose50-99% stenose70-99% IL6_pg_ug_2015_rank Hypertension.compositeyes
1.901e-18 -1.685e-17 1.000e+00 6.901e-18 essentially perfect fit: summary may be unreliable
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.048e-16 -2.335e-17 -1.240e-18 2.056e-17 1.998e-15
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.465e-16 5.066e-17 -2.891e+00 0.00393 **
currentDF[, TRAIT] -2.077e-17 2.546e-18 -8.157e+00 1.05e-15 ***
Age 8.697e-19 3.119e-19 2.788e+00 0.00540 **
Gendermale -2.298e-18 5.575e-18 -4.120e-01 0.68023
Hypertension.compositeyes 2.249e-17 7.759e-18 2.898e+00 0.00383 **
DiabetesStatusDiabetes 2.213e-18 6.128e-18 3.610e-01 0.71813
SmokerCurrentyes -1.421e-17 5.628e-18 -2.525e+00 0.01172 *
Med.Statin.LLDyes 1.420e-17 6.136e-18 2.314e+00 0.02089 *
Med.all.antiplateletyes -1.538e-18 8.327e-18 -1.850e-01 0.85347
GFR_MDRD 5.806e-19 1.339e-19 4.335e+00 1.61e-05 ***
BMI 1.866e-18 6.970e-19 2.677e+00 0.00754 **
CAD_history 2.443e-17 5.770e-18 4.233e+00 2.52e-05 ***
Stroke_history -4.160e-17 5.419e-18 -7.677e+00 3.94e-14 ***
Peripheral.interv 3.323e-17 6.658e-18 4.991e+00 7.12e-07 ***
stenose50-70% 2.052e-17 3.667e-17 5.600e-01 0.57593
stenose70-90% -3.799e-17 3.547e-17 -1.071e+00 0.28441
stenose90-99% -2.632e-17 3.545e-17 -7.420e-01 0.45796
stenose100% (Occlusion) -8.577e-17 4.509e-17 -1.902e+00 0.05742 .
stenose50-99% -3.117e-18 6.585e-17 -4.700e-02 0.96226
stenose70-99% 3.375e-17 4.777e-17 7.070e-01 0.47998
IL6_pg_ug_2015_rank 1.000e+00 2.555e-18 3.913e+17 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 7.856e-17 on 975 degrees of freedom
Multiple R-squared: 1, Adjusted R-squared: 1
F-statistic: 7.984e+33 on 20 and 975 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Macrophages_rank ' .essentially perfect fit: summary may be unreliableCollecting data.essentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableWe have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0
Standard error............: 0
Odds ratio (effect size)..: 1
Lower 95% CI..............: 1
Upper 95% CI..............: 1
T-value...................: -8.156576
P-value...................: 1.054821e-15
R^2.......................: 1
Adjusted r^2..............: 1
Sample size of AE DB......: 2388
Sample size of model......: 996
Missing data %............: 58.29146
- processing SMC_rankattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsense
Call:
lm(formula = currentDF[, PROTEIN] ~ Age + Gender + Hypertension.composite +
SmokerCurrent + Med.Statin.LLD + GFR_MDRD + BMI + Stroke_history +
Peripheral.interv + stenose + IL6_pg_ug_2015_rank + currentDF[,
TRAIT], data = currentDF)
Coefficients:
(Intercept) Age Gendermale Hypertension.compositeyes SmokerCurrentyes
-1.572e-16 1.286e-18 -1.660e-18 2.490e-17 -1.283e-17
Med.Statin.LLDyes GFR_MDRD BMI Stroke_history Peripheral.interv
1.490e-17 5.157e-19 1.938e-18 -4.570e-17 4.006e-17
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
1.437e-17 -5.063e-17 -3.897e-17 -1.201e-16 4.907e-18
stenose70-99% IL6_pg_ug_2015_rank currentDF[, TRAIT]
4.537e-17 1.000e+00 2.219e-18 essentially perfect fit: summary may be unreliable
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-3.584e-16 -3.610e-17 -7.100e-18 2.310e-17 6.025e-15
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.894e-16 1.305e-16 1.451e+00 0.14703
currentDF[, TRAIT] -3.614e-17 6.889e-18 -5.246e+00 1.91e-07 ***
Age -1.834e-18 8.128e-19 -2.257e+00 0.02426 *
Gendermale -7.294e-18 1.454e-17 -5.020e-01 0.61596
Hypertension.compositeyes -1.927e-17 1.997e-17 -9.650e-01 0.33487
DiabetesStatusDiabetes -1.416e-18 1.577e-17 -9.000e-02 0.92851
SmokerCurrentyes 1.331e-17 1.450e-17 9.180e-01 0.35863
Med.Statin.LLDyes -1.450e-17 1.582e-17 -9.160e-01 0.35967
Med.all.antiplateletyes -4.570e-18 2.143e-17 -2.130e-01 0.83118
GFR_MDRD -4.874e-19 3.451e-19 -1.412e+00 0.15818
BMI -1.694e-18 1.796e-18 -9.430e-01 0.34589
CAD_history -2.023e-17 1.486e-17 -1.361e+00 0.17378
Stroke_history 4.370e-17 1.394e-17 3.134e+00 0.00177 **
Peripheral.interv -3.586e-17 1.722e-17 -2.082e+00 0.03761 *
stenose50-70% -8.171e-18 9.437e-17 -8.700e-02 0.93102
stenose70-90% 5.711e-17 9.130e-17 6.260e-01 0.53177
stenose90-99% 4.816e-17 9.126e-17 5.280e-01 0.59780
stenose100% (Occlusion) 9.823e-17 1.160e-16 8.470e-01 0.39743
stenose50-99% 3.366e-17 1.696e-16 1.980e-01 0.84270
stenose70-99% -1.688e-17 1.229e-16 -1.370e-01 0.89078
IL6_pg_ug_2015_rank 1.000e+00 6.640e-18 1.506e+17 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 2.021e-16 on 971 degrees of freedom
Multiple R-squared: 1, Adjusted R-squared: 1
F-statistic: 1.202e+33 on 20 and 971 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' SMC_rank ' .essentially perfect fit: summary may be unreliableCollecting data.essentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableWe have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0
Standard error............: 0
Odds ratio (effect size)..: 1
Lower 95% CI..............: 1
Upper 95% CI..............: 1
T-value...................: -5.246188
P-value...................: 1.90645e-07
R^2.......................: 1
Adjusted r^2..............: 1
Sample size of AE DB......: 2388
Sample size of model......: 992
Missing data %............: 58.45896
- processing VesselDensity_rankattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsenseattempting model selection on an essentially perfect fit is nonsense
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + DiabetesStatus + SmokerCurrent + Med.Statin.LLD +
Med.all.antiplatelet + GFR_MDRD + BMI + CAD_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Gendermale DiabetesStatusDiabetes
-1.378e-16 1.402e-17 7.842e-19 4.466e-20 1.115e-17
SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes GFR_MDRD BMI
-1.803e-17 1.125e-17 3.124e-18 7.339e-19 1.730e-18
CAD_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
2.810e-17 4.228e-17 1.752e-17 -4.549e-17 -3.570e-17
stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_rank
-1.115e-16 -1.037e-17 7.471e-17 1.000e+00 essentially perfect fit: summary may be unreliable
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-6.332e-15 -2.720e-17 6.100e-18 3.790e-17 3.518e-16
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.550e-16 1.437e-16 -1.079e+00 0.28107
currentDF[, TRAIT] 1.511e-17 7.444e-18 2.030e+00 0.04269 *
Age 9.594e-19 8.973e-19 1.069e+00 0.28525
Gendermale -8.395e-19 1.605e-17 -5.200e-02 0.95831
Hypertension.compositeyes 2.367e-17 2.235e-17 1.059e+00 0.28998
DiabetesStatusDiabetes 1.146e-17 1.806e-17 6.350e-01 0.52580
SmokerCurrentyes -1.388e-17 1.631e-17 -8.510e-01 0.39497
Med.Statin.LLDyes 1.210e-17 1.755e-17 6.900e-01 0.49068
Med.all.antiplateletyes 4.826e-18 2.430e-17 1.990e-01 0.84265
GFR_MDRD 7.155e-19 3.899e-19 1.835e+00 0.06682 .
BMI 1.311e-18 1.998e-18 6.560e-01 0.51187
CAD_history 2.138e-17 1.674e-17 1.277e+00 0.20194
Stroke_history -4.574e-17 1.566e-17 -2.921e+00 0.00358 **
Peripheral.interv 3.700e-17 1.960e-17 1.888e+00 0.05937 .
stenose50-70% 3.483e-17 1.030e-16 3.380e-01 0.73526
stenose70-90% -3.343e-17 9.918e-17 -3.370e-01 0.73619
stenose90-99% -2.482e-17 9.905e-17 -2.510e-01 0.80223
stenose100% (Occlusion) -7.879e-17 1.260e-16 -6.250e-01 0.53183
stenose50-99% -1.041e-17 1.838e-16 -5.700e-02 0.95482
stenose70-99% 7.479e-17 1.477e-16 5.060e-01 0.61273
IL6_pg_ug_2015_rank 1.000e+00 7.333e-18 1.364e+17 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 2.192e-16 on 909 degrees of freedom
Multiple R-squared: 1, Adjusted R-squared: 1
F-statistic: 9.677e+32 on 20 and 909 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' VesselDensity_rank ' .essentially perfect fit: summary may be unreliableCollecting data.essentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableessentially perfect fit: summary may be unreliableWe have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: 0
Standard error............: 0
Odds ratio (effect size)..: 1
Lower 95% CI..............: 1
Upper 95% CI..............: 1
T-value...................: 2.029581
P-value...................: 0.04268999
R^2.......................: 1
Adjusted r^2..............: 1
Sample size of AE DB......: 2388
Sample size of model......: 930
Missing data %............: 61.05528
Analysis of IL6R_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + GFR_MDRD + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes GFR_MDRD
0.150100 0.101725 -0.008416 -0.342529 -0.002550
Peripheral.interv stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.257582 0.589170 0.828423 0.959326 0.531597
stenose50-99% stenose70-99% IL6_pg_ug_2015_rank
0.613400 0.005560 0.347977
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.44459 -0.60814 -0.00894 0.57895 2.91573
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.062717 0.620798 0.101 0.919551
currentDF[, TRAIT] 0.105434 0.029748 3.544 0.000413 ***
Age -0.007985 0.003669 -2.176 0.029799 *
Gendermale -0.078319 0.065425 -1.197 0.231575
Hypertension.compositeyes 0.113763 0.089867 1.266 0.205858
DiabetesStatusDiabetes -0.066427 0.071428 -0.930 0.352613
SmokerCurrentyes 0.027958 0.065807 0.425 0.671041
Med.Statin.LLDyes -0.342026 0.071458 -4.786 1.97e-06 ***
Med.all.antiplateletyes 0.057483 0.097149 0.592 0.554192
GFR_MDRD -0.002406 0.001591 -1.512 0.130914
BMI -0.002148 0.008305 -0.259 0.795963
CAD_history -0.019022 0.067382 -0.282 0.777780
Stroke_history 0.001197 0.062994 0.019 0.984839
Peripheral.interv 0.255591 0.078167 3.270 0.001115 **
stenose50-70% 0.617712 0.467816 1.320 0.187017
stenose70-90% 0.850410 0.454842 1.870 0.061838 .
stenose90-99% 0.974101 0.454624 2.143 0.032396 *
stenose100% (Occlusion) 0.569253 0.555373 1.025 0.305630
stenose50-99% 0.624106 0.781627 0.798 0.424799
stenose70-99% 0.028999 0.584347 0.050 0.960430
IL6_pg_ug_2015_rank 0.347123 0.029674 11.698 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9007 on 943 degrees of freedom
Multiple R-squared: 0.1997, Adjusted R-squared: 0.1827
F-statistic: 11.76 on 20 and 943 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: 0.105434
Standard error............: 0.029748
Odds ratio (effect size)..: 1.111
Lower 95% CI..............: 1.048
Upper 95% CI..............: 1.178
T-value...................: 3.54422
P-value...................: 0.0004131063
R^2.......................: 0.19969
Adjusted r^2..............: 0.182716
Sample size of AE DB......: 2388
Sample size of model......: 964
Missing data %............: 59.63149
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + GFR_MDRD + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes GFR_MDRD
0.011860 0.141020 -0.006095 -0.324391 -0.002439
Peripheral.interv stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.248431 0.551901 0.793695 0.908083 0.443882
stenose50-99% stenose70-99% IL6_pg_ug_2015_rank
0.493076 -0.034770 0.380503
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.46700 -0.63753 -0.00906 0.56995 3.03699
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.062669 0.618832 -0.101 0.91936
currentDF[, TRAIT] 0.140772 0.031152 4.519 7.01e-06 ***
Age -0.006146 0.003699 -1.662 0.09693 .
Gendermale -0.009755 0.065906 -0.148 0.88236
Hypertension.compositeyes 0.107174 0.089522 1.197 0.23154
DiabetesStatusDiabetes -0.073263 0.071166 -1.029 0.30352
SmokerCurrentyes 0.007015 0.065595 0.107 0.91486
Med.Statin.LLDyes -0.325020 0.071302 -4.558 5.84e-06 ***
Med.all.antiplateletyes 0.060764 0.096746 0.628 0.53011
GFR_MDRD -0.002494 0.001587 -1.572 0.11630
BMI -0.002236 0.008283 -0.270 0.78724
CAD_history -0.020546 0.067180 -0.306 0.75980
Stroke_history 0.006106 0.062756 0.097 0.92251
Peripheral.interv 0.251735 0.078277 3.216 0.00134 **
stenose50-70% 0.572437 0.465907 1.229 0.21951
stenose70-90% 0.814682 0.452975 1.799 0.07242 .
stenose90-99% 0.923564 0.452837 2.040 0.04168 *
stenose100% (Occlusion) 0.470060 0.553315 0.850 0.39580
stenose50-99% 0.482530 0.778970 0.619 0.53577
stenose70-99% -0.010458 0.581872 -0.018 0.98566
IL6_pg_ug_2015_rank 0.380070 0.029873 12.723 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8966 on 939 degrees of freedom
Multiple R-squared: 0.2058, Adjusted R-squared: 0.1889
F-statistic: 12.17 on 20 and 939 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: 0.140772
Standard error............: 0.031152
Odds ratio (effect size)..: 1.151
Lower 95% CI..............: 1.083
Upper 95% CI..............: 1.224
T-value...................: 4.518919
P-value...................: 7.008123e-06
R^2.......................: 0.205808
Adjusted r^2..............: 0.188892
Sample size of AE DB......: 2388
Sample size of model......: 960
Missing data %............: 59.79899
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Med.Statin.LLD + GFR_MDRD + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Age Med.Statin.LLDyes GFR_MDRD
0.140681 0.082137 -0.009974 -0.325309 -0.002484
Peripheral.interv stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.245491 0.685825 0.948039 1.053760 0.595197
stenose50-99% stenose70-99% IL6_pg_ug_2015_rank
0.649564 0.200915 0.361521
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.43521 -0.61488 -0.03731 0.57256 2.95720
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.1224769 0.6354987 0.193 0.84722
currentDF[, TRAIT] 0.0838526 0.0315461 2.658 0.00800 **
Age -0.0099916 0.0038138 -2.620 0.00895 **
Gendermale -0.0701012 0.0679394 -1.032 0.30244
Hypertension.compositeyes 0.1130800 0.0934662 1.210 0.22666
DiabetesStatusDiabetes -0.0899933 0.0760878 -1.183 0.23723
SmokerCurrentyes -0.0001862 0.0688784 -0.003 0.99784
Med.Statin.LLDyes -0.3216068 0.0737798 -4.359 1.46e-05 ***
Med.all.antiplateletyes 0.0254133 0.1024816 0.248 0.80421
GFR_MDRD -0.0024681 0.0016782 -1.471 0.14174
BMI -0.0013735 0.0086073 -0.160 0.87326
CAD_history -0.0400880 0.0705725 -0.568 0.57015
Stroke_history -0.0009273 0.0657583 -0.014 0.98875
Peripheral.interv 0.2442989 0.0830145 2.943 0.00334 **
stenose50-70% 0.7075552 0.4734750 1.494 0.13543
stenose70-90% 0.9615837 0.4584673 2.097 0.03624 *
stenose90-99% 1.0614252 0.4579661 2.318 0.02070 *
stenose100% (Occlusion) 0.6114586 0.5598014 1.092 0.27501
stenose50-99% 0.6547144 0.7870557 0.832 0.40572
stenose70-99% 0.2400900 0.6446638 0.372 0.70967
IL6_pg_ug_2015_rank 0.3607180 0.0307143 11.744 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.9068 on 878 degrees of freedom
Multiple R-squared: 0.1948, Adjusted R-squared: 0.1765
F-statistic: 10.62 on 20 and 878 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: 0.083853
Standard error............: 0.031546
Odds ratio (effect size)..: 1.087
Lower 95% CI..............: 1.022
Upper 95% CI..............: 1.157
T-value...................: 2.658102
P-value...................: 0.008001116
R^2.......................: 0.194845
Adjusted r^2..............: 0.176505
Sample size of AE DB......: 2388
Sample size of model......: 899
Missing data %............: 62.35343
Analysis of MCP1_pg_ug_2015_rank.
- processing Macrophages_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
stenose + IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes stenose50-70% stenose70-90%
-0.16111 -0.10144 -0.09883 0.33742 0.30463
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_rank
0.17735 -0.39888 0.80246 0.61182 0.47786
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.26224 -0.64187 -0.09494 0.63236 2.77380
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.0672862 0.5684358 -0.118 0.905798
currentDF[, TRAIT] -0.1047256 0.0285550 -3.668 0.000258 ***
Age -0.0000102 0.0035026 -0.003 0.997676
Gendermale 0.0684751 0.0625268 1.095 0.273730
Hypertension.compositeyes -0.1160757 0.0870115 -1.334 0.182506
DiabetesStatusDiabetes -0.0335692 0.0687372 -0.488 0.625398
SmokerCurrentyes -0.0498207 0.0631379 -0.789 0.430259
Med.Statin.LLDyes -0.1017569 0.0689928 -1.475 0.140565
Med.all.antiplateletyes -0.0223070 0.0933974 -0.239 0.811280
GFR_MDRD 0.0005390 0.0015035 0.358 0.720054
BMI -0.0014093 0.0078166 -0.180 0.856961
CAD_history 0.0272658 0.0647784 0.421 0.673915
Stroke_history 0.0331656 0.0607674 0.546 0.585343
Peripheral.interv 0.0861408 0.0746907 1.153 0.249070
stenose50-70% 0.2914923 0.4112495 0.709 0.478620
stenose70-90% 0.2756693 0.3977808 0.693 0.488463
stenose90-99% 0.1523826 0.3975690 0.383 0.701591
stenose100% (Occlusion) -0.4551263 0.5056162 -0.900 0.368267
stenose50-99% 0.7737669 0.7385155 1.048 0.295022
stenose70-99% 0.5838603 0.5356743 1.090 0.276003
IL6_pg_ug_2015_rank 0.4787064 0.0287679 16.640 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.881 on 974 degrees of freedom
Multiple R-squared: 0.24, Adjusted R-squared: 0.2244
F-statistic: 15.38 on 20 and 974 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Macrophages_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Macrophages_rank
Effect size...............: -0.104726
Standard error............: 0.028555
Odds ratio (effect size)..: 0.901
Lower 95% CI..............: 0.852
Upper 95% CI..............: 0.952
T-value...................: -3.667503
P-value...................: 0.0002581885
R^2.......................: 0.239978
Adjusted r^2..............: 0.224372
Sample size of AE DB......: 2388
Sample size of model......: 995
Missing data %............: 58.33333
- processing SMC_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ Med.Statin.LLD + IL6_pg_ug_2015_rank,
data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes IL6_pg_ug_2015_rank
0.09823 -0.11500 0.46568
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.33826 -0.64411 -0.09313 0.64652 2.70649
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.0850675 0.5739917 -0.148 0.8822
currentDF[, TRAIT] -0.0211859 0.0303105 -0.699 0.4847
Age 0.0006778 0.0035764 0.190 0.8497
Gendermale 0.0454935 0.0639174 0.712 0.4768
Hypertension.compositeyes -0.1192407 0.0877809 -1.358 0.1747
DiabetesStatusDiabetes -0.0316131 0.0693538 -0.456 0.6486
SmokerCurrentyes -0.0387297 0.0637439 -0.608 0.5436
Med.Statin.LLDyes -0.1167283 0.0697194 -1.674 0.0944 .
Med.all.antiplateletyes -0.0130987 0.0942061 -0.139 0.8894
GFR_MDRD 0.0004897 0.0015188 0.322 0.7472
BMI -0.0014803 0.0078944 -0.188 0.8513
CAD_history 0.0226080 0.0654141 0.346 0.7297
Stroke_history 0.0246322 0.0612970 0.402 0.6879
Peripheral.interv 0.0951718 0.0757309 1.257 0.2092
stenose50-70% 0.3062128 0.4148356 0.738 0.4606
stenose70-90% 0.2699157 0.4013374 0.673 0.5014
stenose90-99% 0.1487390 0.4011992 0.371 0.7109
stenose100% (Occlusion) -0.4130198 0.5100737 -0.810 0.4183
stenose50-99% 0.7988378 0.7454035 1.072 0.2841
stenose70-99% 0.5793423 0.5403134 1.072 0.2839
IL6_pg_ug_2015_rank 0.4667285 0.0292849 15.937 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8883 on 970 degrees of freedom
Multiple R-squared: 0.2298, Adjusted R-squared: 0.214
F-statistic: 14.47 on 20 and 970 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' SMC_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: SMC_rank
Effect size...............: -0.021186
Standard error............: 0.030311
Odds ratio (effect size)..: 0.979
Lower 95% CI..............: 0.923
Upper 95% CI..............: 1.039
T-value...................: -0.698961
P-value...................: 0.4847442
R^2.......................: 0.229831
Adjusted r^2..............: 0.213951
Sample size of AE DB......: 2388
Sample size of model......: 991
Missing data %............: 58.50084
- processing VesselDensity_rank
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Med.Statin.LLD +
IL6_pg_ug_2015_rank, data = currentDF)
Coefficients:
(Intercept) currentDF[, TRAIT] Med.Statin.LLDyes IL6_pg_ug_2015_rank
0.1059 -0.1129 -0.1340 0.4638
Call:
lm(formula = currentDF[, PROTEIN] ~ currentDF[, TRAIT] + Age +
Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose +
IL6_pg_ug_2015_rank, data = currentDF)
Residuals:
Min 1Q Median 3Q Max
-2.2114 -0.6422 -0.1143 0.6644 2.8347
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.1123560 0.5830692 -0.193 0.847239
currentDF[, TRAIT] -0.1087557 0.0302044 -3.601 0.000335 ***
Age 0.0013327 0.0036430 0.366 0.714580
Gendermale 0.0812631 0.0651062 1.248 0.212293
Hypertension.compositeyes -0.1166860 0.0906341 -1.287 0.198269
DiabetesStatusDiabetes -0.0222591 0.0732448 -0.304 0.761274
SmokerCurrentyes -0.0389012 0.0661475 -0.588 0.556613
Med.Statin.LLDyes -0.1356726 0.0713394 -1.902 0.057515 .
Med.all.antiplateletyes 0.0298707 0.0985617 0.303 0.761909
GFR_MDRD 0.0004300 0.0015827 0.272 0.785909
BMI -0.0008913 0.0081026 -0.110 0.912433
CAD_history 0.0326170 0.0679685 0.480 0.631426
Stroke_history 0.0385906 0.0635076 0.608 0.543569
Peripheral.interv 0.0770844 0.0794949 0.970 0.332466
stenose50-70% 0.1688723 0.4175091 0.404 0.685958
stenose70-90% 0.1751473 0.4021881 0.435 0.663313
stenose90-99% 0.0669127 0.4016549 0.167 0.867728
stenose100% (Occlusion) -0.4970748 0.5107978 -0.973 0.330746
stenose50-99% 0.7449020 0.7452457 1.000 0.317800
stenose70-99% 0.3718812 0.5989682 0.621 0.534841
IL6_pg_ug_2015_rank 0.4673873 0.0298681 15.648 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8889 on 908 degrees of freedom
Multiple R-squared: 0.245, Adjusted R-squared: 0.2284
F-statistic: 14.73 on 20 and 908 DF, p-value: < 2.2e-16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' VesselDensity_rank ' .
Collecting data.
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: VesselDensity_rank
Effect size...............: -0.108756
Standard error............: 0.030204
Odds ratio (effect size)..: 0.897
Lower 95% CI..............: 0.845
Upper 95% CI..............: 0.952
T-value...................: -3.600662
P-value...................: 0.0003346057
R^2.......................: 0.244999
Adjusted r^2..............: 0.228369
Sample size of AE DB......: 2388
Sample size of model......: 929
Missing data %............: 61.09715 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"T-value", "P-value", "r^2", "r^2_adj", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`T-value` <- as.numeric(GLM.results$`T-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2` <- as.numeric(GLM.results$`r^2`)
GLM.results$`r^2_adj` <- as.numeric(GLM.results$`r^2_adj`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
library(openxlsx)
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Con.Multi.Protein.PlaquePhenotypes.RANK.MODEL5.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Con.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Analysis of binary plaque traits as a function of serum/plaque IL6(R)/MCP1 levels.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
for (trait in 1:length(TRAITS.BIN)) {
TRAIT = TRAITS.BIN[trait]
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M5rank) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender +
Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_rank,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
}
Analysis of IL6_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Hypertension.composite + DiabetesStatus + GFR_MDRD + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Hypertension.compositeyes DiabetesStatusDiabetes GFR_MDRD
1.1271 0.2358 0.4947 -0.4908 -0.0128
Stroke_history Peripheral.interv
-0.4847 -0.4380
Degrees of Freedom: 370 Total (i.e. Null); 364 Residual
Null Deviance: 506.1
Residual Deviance: 485.6 AIC: 499.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0991 -1.2044 0.7779 1.0251 1.7551
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.154564 2.239780 -0.069 0.9450
currentDF[, PROTEIN] 0.262668 0.119003 2.207 0.0273 *
Age 0.008433 0.014091 0.598 0.5495
Gendermale -0.197170 0.250644 -0.787 0.4315
Hypertension.compositeyes 0.582892 0.344647 1.691 0.0908 .
DiabetesStatusDiabetes -0.485547 0.280208 -1.733 0.0831 .
SmokerCurrentyes 0.051832 0.240725 0.215 0.8295
Med.Statin.LLDyes 0.156202 0.254201 0.614 0.5389
Med.all.antiplateletyes 0.445866 0.396461 1.125 0.2608
GFR_MDRD -0.013723 0.006473 -2.120 0.0340 *
BMI -0.007941 0.031195 -0.255 0.7991
CAD_history -0.191094 0.251677 -0.759 0.4477
Stroke_history -0.543313 0.236626 -2.296 0.0217 *
Peripheral.interv -0.428498 0.283220 -1.513 0.1303
stenose50-70% 1.078224 1.554409 0.694 0.4879
stenose70-90% 0.798269 1.450927 0.550 0.5822
stenose90-99% 0.422362 1.443382 0.293 0.7698
stenose100% (Occlusion) 1.759182 1.913401 0.919 0.3579
IL6_pg_ug_2015_rank 0.009689 0.109895 0.088 0.9297
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 506.13 on 370 degrees of freedom
Residual deviance: 478.11 on 352 degrees of freedom
AIC: 516.11
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.262668
Standard error............: 0.119003
Odds ratio (effect size)..: 1.3
Lower 95% CI..............: 1.03
Upper 95% CI..............: 1.642
Z-value...................: 2.207238
P-value...................: 0.02729742
Hosmer and Lemeshow r^2...: 0.055356
Cox and Snell r^2.........: 0.072738
Nagelkerke's pseudo r^2...: 0.09771
Sample size of AE DB......: 2388
Sample size of model......: 371
Missing data %............: 84.46399
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ DiabetesStatus +
Med.all.antiplatelet + Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) DiabetesStatusDiabetes Med.all.antiplateletyes Peripheral.interv stenose50-70%
16.9670 0.5050 0.8794 -0.5262 -0.2168
stenose70-90% stenose90-99% stenose100% (Occlusion)
-16.2556 -16.5665 0.4065
Degrees of Freedom: 370 Total (i.e. Null); 363 Residual
Null Deviance: 376.2
Residual Deviance: 356.9 AIC: 372.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.20699 0.00025 0.60086 0.71577 1.25310
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.714e+01 2.759e+03 0.006 0.9950
currentDF[, PROTEIN] -1.061e-01 1.409e-01 -0.753 0.4514
Age 8.344e-03 1.736e-02 0.481 0.6307
Gendermale -1.127e-01 3.051e-01 -0.369 0.7118
Hypertension.compositeyes 9.511e-02 4.163e-01 0.228 0.8193
DiabetesStatusDiabetes 5.811e-01 3.727e-01 1.559 0.1190
SmokerCurrentyes 3.757e-01 3.027e-01 1.241 0.2145
Med.Statin.LLDyes 8.815e-02 3.041e-01 0.290 0.7719
Med.all.antiplateletyes 8.317e-01 4.272e-01 1.947 0.0516 .
GFR_MDRD -2.607e-03 7.804e-03 -0.334 0.7383
BMI -2.999e-02 3.876e-02 -0.774 0.4390
CAD_history 5.258e-03 3.037e-01 0.017 0.9862
Stroke_history 2.934e-01 2.987e-01 0.982 0.3260
Peripheral.interv -5.299e-01 3.212e-01 -1.649 0.0991 .
stenose50-70% -2.547e-01 2.949e+03 0.000 0.9999
stenose70-90% -1.625e+01 2.759e+03 -0.006 0.9953
stenose90-99% -1.660e+01 2.759e+03 -0.006 0.9952
stenose100% (Occlusion) 3.289e-01 3.355e+03 0.000 0.9999
IL6_pg_ug_2015_rank -7.294e-02 1.321e-01 -0.552 0.5807
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 376.24 on 370 degrees of freedom
Residual deviance: 351.74 on 352 degrees of freedom
AIC: 389.74
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.106139
Standard error............: 0.140924
Odds ratio (effect size)..: 0.899
Lower 95% CI..............: 0.682
Upper 95% CI..............: 1.185
Z-value...................: -0.753162
P-value...................: 0.4513528
Hosmer and Lemeshow r^2...: 0.065117
Cox and Snell r^2.........: 0.063903
Nagelkerke's pseudo r^2...: 0.100275
Sample size of AE DB......: 2388
Sample size of model......: 371
Missing data %............: 84.46399
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Hypertension.composite +
DiabetesStatus + Stroke_history + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Hypertension.compositeyes DiabetesStatusDiabetes Stroke_history
0.2000 0.9806 0.7552 -0.4913 0.6354
IL6_pg_ug_2015_rank
0.4079
Degrees of Freedom: 370 Total (i.e. Null); 365 Residual
Null Deviance: 353.4
Residual Deviance: 326 AIC: 338
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.6745 0.3340 0.5000 0.6573 1.1769
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.379e+01 1.025e+03 0.013 0.9893
currentDF[, PROTEIN] 4.877e-02 1.532e-01 0.318 0.7502
Age -7.928e-03 1.821e-02 -0.435 0.6632
Gendermale 1.073e+00 3.031e-01 3.540 0.0004 ***
Hypertension.compositeyes 7.769e-01 4.116e-01 1.887 0.0591 .
DiabetesStatusDiabetes -5.348e-01 3.469e-01 -1.542 0.1231
SmokerCurrentyes 1.027e-02 3.150e-01 0.033 0.9740
Med.Statin.LLDyes -3.361e-01 3.461e-01 -0.971 0.3315
Med.all.antiplateletyes 9.334e-02 5.259e-01 0.177 0.8591
GFR_MDRD -3.589e-03 8.498e-03 -0.422 0.6727
BMI 2.784e-02 3.917e-02 0.711 0.4773
CAD_history -1.927e-01 3.279e-01 -0.588 0.5568
Stroke_history 6.793e-01 3.342e-01 2.033 0.0421 *
Peripheral.interv -4.333e-02 3.557e-01 -0.122 0.9031
stenose50-70% -1.420e+01 1.025e+03 -0.014 0.9889
stenose70-90% -1.320e+01 1.025e+03 -0.013 0.9897
stenose90-99% -1.343e+01 1.025e+03 -0.013 0.9895
stenose100% (Occlusion) -1.409e+01 1.025e+03 -0.014 0.9890
IL6_pg_ug_2015_rank 3.747e-01 1.477e-01 2.537 0.0112 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 353.45 on 370 degrees of freedom
Residual deviance: 320.00 on 352 degrees of freedom
AIC: 358
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.048772
Standard error............: 0.15322
Odds ratio (effect size)..: 1.05
Lower 95% CI..............: 0.778
Upper 95% CI..............: 1.418
Z-value...................: 0.318315
P-value...................: 0.7502463
Hosmer and Lemeshow r^2...: 0.094637
Cox and Snell r^2.........: 0.086215
Nagelkerke's pseudo r^2...: 0.140347
Sample size of AE DB......: 2388
Sample size of model......: 371
Missing data %............: 84.46399
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
Hypertension.composite + DiabetesStatus + BMI, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale Hypertension.compositeyes DiabetesStatusDiabetes
-3.56538 0.03604 0.60110 0.50040 -0.49360
BMI
0.05614
Degrees of Freedom: 370 Total (i.e. Null); 365 Residual
Null Deviance: 426.3
Residual Deviance: 406.6 AIC: 418.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1170 -1.0237 0.6345 0.7939 1.3578
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 10.536573 623.105263 0.017 0.9865
currentDF[, PROTEIN] -0.072502 0.131246 -0.552 0.5807
Age 0.029878 0.015474 1.931 0.0535 .
Gendermale 0.653322 0.269334 2.426 0.0153 *
Hypertension.compositeyes 0.511240 0.360309 1.419 0.1559
DiabetesStatusDiabetes -0.533832 0.304331 -1.754 0.0794 .
SmokerCurrentyes 0.072614 0.273203 0.266 0.7904
Med.Statin.LLDyes -0.071926 0.288455 -0.249 0.8031
Med.all.antiplateletyes -0.469526 0.510870 -0.919 0.3581
GFR_MDRD -0.007508 0.007295 -1.029 0.3034
BMI 0.053981 0.034966 1.544 0.1226
CAD_history 0.071455 0.292926 0.244 0.8073
Stroke_history 0.115620 0.268209 0.431 0.6664
Peripheral.interv 0.380643 0.336888 1.130 0.2585
stenose50-70% -12.627468 623.102557 -0.020 0.9838
stenose70-90% -12.933723 623.102256 -0.021 0.9834
stenose90-99% -12.724102 623.102241 -0.020 0.9837
stenose100% (Occlusion) -12.949079 623.103565 -0.021 0.9834
IL6_pg_ug_2015_rank 0.138068 0.123533 1.118 0.2637
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 426.33 on 370 degrees of freedom
Residual deviance: 399.37 on 352 degrees of freedom
AIC: 437.37
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: IPH
Effect size...............: -0.072502
Standard error............: 0.131246
Odds ratio (effect size)..: 0.93
Lower 95% CI..............: 0.719
Upper 95% CI..............: 1.203
Z-value...................: -0.552416
P-value...................: 0.5806632
Hosmer and Lemeshow r^2...: 0.063237
Cox and Snell r^2.........: 0.070091
Nagelkerke's pseudo r^2...: 0.102608
Sample size of AE DB......: 2388
Sample size of model......: 371
Missing data %............: 84.46399
Analysis of MCP1_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ DiabetesStatus +
GFR_MDRD + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) DiabetesStatusDiabetes GFR_MDRD Stroke_history Peripheral.interv
1.64937 -0.62191 -0.01276 -0.48929 -0.51466
Degrees of Freedom: 394 Total (i.e. Null); 390 Residual
Null Deviance: 536.2
Residual Deviance: 518.9 AIC: 528.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.7775 -1.2137 0.8015 1.0022 1.7098
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.678314 2.208953 -0.307 0.7588
currentDF[, PROTEIN] -0.126457 0.116030 -1.090 0.2758
Age 0.014811 0.013613 1.088 0.2766
Gendermale -0.198359 0.241132 -0.823 0.4107
Hypertension.compositeyes 0.451555 0.321305 1.405 0.1599
DiabetesStatusDiabetes -0.684685 0.270340 -2.533 0.0113 *
SmokerCurrentyes 0.150746 0.233998 0.644 0.5194
Med.Statin.LLDyes -0.049299 0.249435 -0.198 0.8433
Med.all.antiplateletyes 0.464052 0.381434 1.217 0.2238
GFR_MDRD -0.011041 0.006211 -1.778 0.0754 .
BMI 0.005518 0.029397 0.188 0.8511
CAD_history -0.047750 0.248409 -0.192 0.8476
Stroke_history -0.528106 0.227312 -2.323 0.0202 *
Peripheral.interv -0.523032 0.283894 -1.842 0.0654 .
stenose50-70% 0.615739 1.616633 0.381 0.7033
stenose70-90% 0.607629 1.524056 0.399 0.6901
stenose90-99% 0.287230 1.517562 0.189 0.8499
stenose100% (Occlusion) 1.446116 2.003565 0.722 0.4704
IL6_pg_ug_2015_rank 0.040114 0.107454 0.373 0.7089
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 536.17 on 394 degrees of freedom
Residual deviance: 510.01 on 376 degrees of freedom
AIC: 548.01
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.126457
Standard error............: 0.11603
Odds ratio (effect size)..: 0.881
Lower 95% CI..............: 0.702
Upper 95% CI..............: 1.106
Z-value...................: -1.089862
P-value...................: 0.2757739
Hosmer and Lemeshow r^2...: 0.048787
Cox and Snell r^2.........: 0.064078
Nagelkerke's pseudo r^2...: 0.086281
Sample size of AE DB......: 2388
Sample size of model......: 395
Missing data %............: 83.45896
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
DiabetesStatus + SmokerCurrent + Med.all.antiplatelet + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] DiabetesStatusDiabetes SmokerCurrentyes Med.all.antiplateletyes
16.8023 -0.5037 0.5604 0.4183 1.0655
Peripheral.interv stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
-0.4970 -0.3808 -16.1722 -16.6993 0.2163
Degrees of Freedom: 394 Total (i.e. Null); 385 Residual
Null Deviance: 398.1
Residual Deviance: 361.1 AIC: 381.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.35134 0.00035 0.53023 0.70233 1.35973
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.727e+01 2.697e+03 0.006 0.994891
currentDF[, PROTEIN] -4.904e-01 1.489e-01 -3.295 0.000985 ***
Age 6.444e-03 1.743e-02 0.370 0.711618
Gendermale -1.050e-01 3.052e-01 -0.344 0.730951
Hypertension.compositeyes 1.497e-01 3.978e-01 0.376 0.706610
DiabetesStatusDiabetes 6.344e-01 3.780e-01 1.678 0.093348 .
SmokerCurrentyes 3.929e-01 2.993e-01 1.313 0.189327
Med.Statin.LLDyes 1.101e-01 3.004e-01 0.367 0.713880
Med.all.antiplateletyes 1.033e+00 4.268e-01 2.421 0.015469 *
GFR_MDRD -2.116e-03 7.736e-03 -0.274 0.784408
BMI -4.011e-02 3.882e-02 -1.033 0.301595
CAD_history 2.136e-03 3.022e-01 0.007 0.994360
Stroke_history 3.252e-01 2.944e-01 1.105 0.269293
Peripheral.interv -4.911e-01 3.356e-01 -1.463 0.143391
stenose50-70% -2.739e-01 2.884e+03 0.000 0.999924
stenose70-90% -1.607e+01 2.697e+03 -0.006 0.995245
stenose90-99% -1.661e+01 2.697e+03 -0.006 0.995085
stenose100% (Occlusion) 1.666e-01 3.255e+03 0.000 0.999959
IL6_pg_ug_2015_rank -4.145e-02 1.334e-01 -0.311 0.756111
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 398.07 on 394 degrees of freedom
Residual deviance: 357.98 on 376 degrees of freedom
AIC: 395.98
Number of Fisher Scoring iterations: 16
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.490423
Standard error............: 0.148854
Odds ratio (effect size)..: 0.612
Lower 95% CI..............: 0.457
Upper 95% CI..............: 0.82
Z-value...................: -3.294667
P-value...................: 0.0009853822
Hosmer and Lemeshow r^2...: 0.100723
Cox and Snell r^2.........: 0.096525
Nagelkerke's pseudo r^2...: 0.152014
Sample size of AE DB......: 2388
Sample size of model......: 395
Missing data %............: 83.45896
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Hypertension.composite + BMI + Stroke_history +
IL6_pg_ug_2015_rank, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Hypertension.compositeyes BMI
-0.97678 0.49301 0.74809 0.68441 0.05152
Stroke_history IL6_pg_ug_2015_rank
0.58867 0.27994
Degrees of Freedom: 394 Total (i.e. Null); 388 Residual
Null Deviance: 372.1
Residual Deviance: 334.3 AIC: 348.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.6698 0.2914 0.4662 0.6372 1.6612
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 12.380042 986.394897 0.013 0.98999
currentDF[, PROTEIN] 0.502902 0.159989 3.143 0.00167 **
Age 0.004448 0.017753 0.251 0.80218
Gendermale 0.807662 0.298791 2.703 0.00687 **
Hypertension.compositeyes 0.801928 0.398141 2.014 0.04399 *
DiabetesStatusDiabetes -0.240743 0.350078 -0.688 0.49165
SmokerCurrentyes 0.028747 0.311494 0.092 0.92647
Med.Statin.LLDyes -0.213231 0.346371 -0.616 0.53815
Med.all.antiplateletyes -0.145093 0.527572 -0.275 0.78330
GFR_MDRD 0.001898 0.008388 0.226 0.82099
BMI 0.049489 0.039064 1.267 0.20520
CAD_history -0.250635 0.335123 -0.748 0.45453
Stroke_history 0.594527 0.326713 1.820 0.06880 .
Peripheral.interv 0.096042 0.374004 0.257 0.79734
stenose50-70% -14.663779 986.392765 -0.015 0.98814
stenose70-90% -13.156167 986.392596 -0.013 0.98936
stenose90-99% -13.579957 986.392567 -0.014 0.98902
stenose100% (Occlusion) -13.881091 986.393384 -0.014 0.98877
IL6_pg_ug_2015_rank 0.255792 0.145952 1.753 0.07967 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 372.10 on 394 degrees of freedom
Residual deviance: 325.86 on 376 degrees of freedom
AIC: 363.86
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.502902
Standard error............: 0.159989
Odds ratio (effect size)..: 1.654
Lower 95% CI..............: 1.208
Upper 95% CI..............: 2.263
Z-value...................: 3.143363
P-value...................: 0.001670184
Hosmer and Lemeshow r^2...: 0.124259
Cox and Snell r^2.........: 0.110463
Nagelkerke's pseudo r^2...: 0.181039
Sample size of AE DB......: 2388
Sample size of model......: 395
Missing data %............: 83.45896
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
DiabetesStatus + BMI, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale DiabetesStatusDiabetes BMI
-2.83856 0.03202 0.58621 -0.48794 0.05657
Degrees of Freedom: 394 Total (i.e. Null); 390 Residual
Null Deviance: 449.1
Residual Deviance: 432.8 AIC: 442.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1176 -0.9779 0.6353 0.7916 1.5456
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 10.805144 617.904988 0.017 0.9860
currentDF[, PROTEIN] 0.049050 0.131219 0.374 0.7085
Age 0.023740 0.015089 1.573 0.1156
Gendermale 0.577668 0.259736 2.224 0.0261 *
Hypertension.compositeyes 0.428341 0.343972 1.245 0.2130
DiabetesStatusDiabetes -0.525303 0.294582 -1.783 0.0746 .
SmokerCurrentyes -0.017901 0.264461 -0.068 0.9460
Med.Statin.LLDyes -0.090069 0.283967 -0.317 0.7511
Med.all.antiplateletyes -0.224785 0.452574 -0.497 0.6194
GFR_MDRD -0.005685 0.007069 -0.804 0.4212
BMI 0.049055 0.033139 1.480 0.1388
CAD_history 0.158330 0.293685 0.539 0.5898
Stroke_history 0.241351 0.261579 0.923 0.3562
Peripheral.interv 0.372192 0.343255 1.084 0.2782
stenose50-70% -12.662747 617.902663 -0.020 0.9837
stenose70-90% -12.874037 617.902369 -0.021 0.9834
stenose90-99% -12.670408 617.902351 -0.021 0.9836
stenose100% (Occlusion) -12.761985 617.903615 -0.021 0.9835
IL6_pg_ug_2015_rank 0.086998 0.121825 0.714 0.4752
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 449.12 on 394 degrees of freedom
Residual deviance: 424.14 on 376 degrees of freedom
AIC: 462.14
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: IPH
Effect size...............: 0.04905
Standard error............: 0.131219
Odds ratio (effect size)..: 1.05
Lower 95% CI..............: 0.812
Upper 95% CI..............: 1.358
Z-value...................: 0.373805
P-value...................: 0.7085493
Hosmer and Lemeshow r^2...: 0.055615
Cox and Snell r^2.........: 0.061277
Nagelkerke's pseudo r^2...: 0.090216
Sample size of AE DB......: 2388
Sample size of model......: 395
Missing data %............: 83.45896
Analysis of IL6_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + CAD_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes CAD_history
-1.21906 -0.10139 0.01999 0.39841 0.25581
stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99%
-1.00567 -0.50697 -0.26246 0.80569 -13.93538
stenose70-99%
-1.53003
Degrees of Freedom: 996 Total (i.e. Null); 986 Residual
Null Deviance: 1381
Residual Deviance: 1349 AIC: 1371
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6147 -1.1333 -0.7964 1.1564 1.6722
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.909944 1.321284 -0.689 0.49102
currentDF[, PROTEIN] -0.099976 0.066163 -1.511 0.13077
Age 0.017028 0.008100 2.102 0.03552 *
Gendermale -0.132850 0.144146 -0.922 0.35672
Hypertension.compositeyes 0.232383 0.202519 1.147 0.25119
DiabetesStatusDiabetes -0.175024 0.159524 -1.097 0.27257
SmokerCurrentyes 0.413549 0.146703 2.819 0.00482 **
Med.Statin.LLDyes -0.164639 0.159153 -1.034 0.30092
Med.all.antiplateletyes -0.223519 0.217193 -1.029 0.30342
GFR_MDRD -0.001873 0.003492 -0.536 0.59169
BMI 0.012482 0.018095 0.690 0.49034
CAD_history 0.264314 0.149945 1.763 0.07795 .
Stroke_history -0.138429 0.140758 -0.983 0.32538
Peripheral.interv -0.183619 0.172919 -1.062 0.28829
stenose50-70% -0.939975 0.962505 -0.977 0.32877
stenose70-90% -0.485844 0.928836 -0.523 0.60093
stenose90-99% -0.236697 0.928355 -0.255 0.79875
stenose100% (Occlusion) 0.801826 1.244197 0.644 0.51928
stenose50-99% -14.007873 368.424975 -0.038 0.96967
stenose70-99% -1.453878 1.253623 -1.160 0.24615
IL6_pg_ug_2015_rank NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1381.3 on 996 degrees of freedom
Residual deviance: 1340.3 on 977 degrees of freedom
AIC: 1380.3
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.099976
Standard error............: 0.066163
Odds ratio (effect size)..: 0.905
Lower 95% CI..............: 0.795
Upper 95% CI..............: 1.03
Z-value...................: -1.511065
P-value...................: 0.1307718
Hosmer and Lemeshow r^2...: 0.029706
Cox and Snell r^2.........: 0.04032
Nagelkerke's pseudo r^2...: 0.053776
Sample size of AE DB......: 2388
Sample size of model......: 997
Missing data %............: 58.24958
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Hypertension.composite + SmokerCurrent + BMI + Stroke_history,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Hypertension.compositeyes SmokerCurrentyes BMI
-0.01981 -0.29027 0.34009 0.44475 0.03349
Stroke_history
0.25226
Degrees of Freedom: 999 Total (i.e. Null); 994 Residual
Null Deviance: 1017
Residual Deviance: 993 AIC: 1005
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2838 0.4520 0.6083 0.7205 1.0945
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.292e+01 6.481e+02 0.020 0.984089
currentDF[, PROTEIN] -2.788e-01 8.257e-02 -3.376 0.000735 ***
Age 8.333e-03 9.876e-03 0.844 0.398752
Gendermale -8.397e-02 1.781e-01 -0.471 0.637300
Hypertension.compositeyes 3.107e-01 2.330e-01 1.334 0.182365
DiabetesStatusDiabetes 2.105e-01 2.039e-01 1.033 0.301764
SmokerCurrentyes 4.917e-01 1.863e-01 2.639 0.008305 **
Med.Statin.LLDyes -1.661e-02 1.955e-01 -0.085 0.932280
Med.all.antiplateletyes 1.316e-01 2.617e-01 0.503 0.615014
GFR_MDRD 4.714e-03 4.302e-03 1.096 0.273176
BMI 3.356e-02 2.363e-02 1.420 0.155532
CAD_history 2.203e-01 1.882e-01 1.171 0.241679
Stroke_history 2.405e-01 1.765e-01 1.363 0.172966
Peripheral.interv -1.820e-02 2.155e-01 -0.084 0.932671
stenose50-70% -1.361e+01 6.481e+02 -0.021 0.983249
stenose70-90% -1.401e+01 6.481e+02 -0.022 0.982747
stenose90-99% -1.406e+01 6.481e+02 -0.022 0.982690
stenose100% (Occlusion) 4.945e-01 8.183e+02 0.001 0.999518
stenose50-99% 1.313e-02 1.208e+03 0.000 0.999991
stenose70-99% -1.373e+01 6.481e+02 -0.021 0.983103
IL6_pg_ug_2015_rank NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1017.22 on 999 degrees of freedom
Residual deviance: 980.18 on 980 degrees of freedom
AIC: 1020.2
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.278762
Standard error............: 0.08257
Odds ratio (effect size)..: 0.757
Lower 95% CI..............: 0.644
Upper 95% CI..............: 0.89
Z-value...................: -3.376059
P-value...................: 0.0007353204
Hosmer and Lemeshow r^2...: 0.036411
Cox and Snell r^2.........: 0.036361
Nagelkerke's pseudo r^2...: 0.056956
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Stroke_history Peripheral.interv
0.5014 0.4505 0.8327 0.3722 -0.6087
Degrees of Freedom: 999 Total (i.e. Null); 995 Residual
Null Deviance: 1165
Residual Deviance: 1079 AIC: 1089
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2290 -1.0455 0.6047 0.8064 2.0491
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.317e+01 3.905e+02 0.034 0.973093
currentDF[, PROTEIN] 4.532e-01 7.890e-02 5.744 9.26e-09 ***
Age 9.621e-03 9.328e-03 1.031 0.302330
Gendermale 8.512e-01 1.611e-01 5.282 1.27e-07 ***
Hypertension.compositeyes 6.829e-02 2.349e-01 0.291 0.771250
DiabetesStatusDiabetes -1.155e-01 1.839e-01 -0.628 0.529991
SmokerCurrentyes 1.014e-01 1.710e-01 0.593 0.553366
Med.Statin.LLDyes -1.768e-01 1.904e-01 -0.928 0.353200
Med.all.antiplateletyes 6.371e-02 2.501e-01 0.255 0.798916
GFR_MDRD -2.636e-04 4.098e-03 -0.064 0.948718
BMI 3.776e-03 2.044e-02 0.185 0.853460
CAD_history 7.889e-02 1.751e-01 0.451 0.652297
Stroke_history 3.768e-01 1.703e-01 2.213 0.026912 *
Peripheral.interv -6.136e-01 1.860e-01 -3.299 0.000972 ***
stenose50-70% -1.353e+01 3.905e+02 -0.035 0.972366
stenose70-90% -1.348e+01 3.905e+02 -0.035 0.972456
stenose90-99% -1.333e+01 3.905e+02 -0.034 0.972772
stenose100% (Occlusion) -1.427e+01 3.905e+02 -0.037 0.970836
stenose50-99% -1.498e+01 3.905e+02 -0.038 0.969387
stenose70-99% -1.461e+01 3.905e+02 -0.037 0.970150
IL6_pg_ug_2015_rank NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1164.5 on 999 degrees of freedom
Residual deviance: 1067.6 on 980 degrees of freedom
AIC: 1107.6
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: 0.453209
Standard error............: 0.078905
Odds ratio (effect size)..: 1.573
Lower 95% CI..............: 1.348
Upper 95% CI..............: 1.837
Z-value...................: 5.743761
P-value...................: 9.259659e-09
Hosmer and Lemeshow r^2...: 0.083261
Cox and Snell r^2.........: 0.092407
Nagelkerke's pseudo r^2...: 0.134327
Sample size of AE DB......: 2388
Sample size of model......: 1000
Missing data %............: 58.12395
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Med.Statin.LLD +
BMI + CAD_history + Stroke_history + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Med.Statin.LLDyes BMI CAD_history
0.16028 0.59271 -0.25963 0.02923 0.30318
Stroke_history stenose50-70% stenose70-90% stenose90-99% stenose100% (Occlusion)
0.25028 -1.09743 -0.97086 -0.65159 -0.80087
stenose50-99% stenose70-99%
-15.27559 0.59126
Degrees of Freedom: 998 Total (i.e. Null); 987 Residual
Null Deviance: 1331
Residual Deviance: 1288 AIC: 1312
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9367 -1.2695 0.8101 0.9793 1.4492
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.134237 1.491544 0.090 0.9283
currentDF[, PROTEIN] 0.054522 0.068254 0.799 0.4244
Age 0.001619 0.008307 0.195 0.8455
Gendermale 0.638876 0.146508 4.361 1.3e-05 ***
Hypertension.compositeyes -0.108080 0.207201 -0.522 0.6019
DiabetesStatusDiabetes -0.123290 0.163538 -0.754 0.4509
SmokerCurrentyes 0.124934 0.151554 0.824 0.4097
Med.Statin.LLDyes -0.249499 0.167274 -1.492 0.1358
Med.all.antiplateletyes 0.161931 0.221057 0.733 0.4638
GFR_MDRD -0.004974 0.003614 -1.376 0.1687
BMI 0.033028 0.018696 1.767 0.0773 .
CAD_history 0.310960 0.157200 1.978 0.0479 *
Stroke_history 0.230621 0.146500 1.574 0.1154
Peripheral.interv 0.037076 0.178283 0.208 0.8353
stenose50-70% -1.011322 1.165248 -0.868 0.3854
stenose70-90% -0.904406 1.139736 -0.794 0.4275
stenose90-99% -0.590355 1.139754 -0.518 0.6045
stenose100% (Occlusion) -0.735447 1.357428 -0.542 0.5880
stenose50-99% -15.239630 376.951258 -0.040 0.9678
stenose70-99% 0.597045 1.580966 0.378 0.7057
IL6_pg_ug_2015_rank NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1331.0 on 998 degrees of freedom
Residual deviance: 1283.4 on 979 degrees of freedom
AIC: 1323.4
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.054522
Standard error............: 0.068254
Odds ratio (effect size)..: 1.056
Lower 95% CI..............: 0.924
Upper 95% CI..............: 1.207
Z-value...................: 0.798812
P-value...................: 0.4243993
Hosmer and Lemeshow r^2...: 0.03579
Cox and Snell r^2.........: 0.046565
Nagelkerke's pseudo r^2...: 0.063256
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
Analysis of IL6R_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
CAD_history + stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes CAD_history stenose50-70%
-0.30345 0.01695 0.35191 0.23377 -1.63626
stenose70-90% stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
-1.19502 -0.95911 0.12013 -14.62719 -2.19118
IL6_pg_ug_2015_rank
-0.10793
Degrees of Freedom: 964 Total (i.e. Null); 954 Residual
Null Deviance: 1337
Residual Deviance: 1308 AIC: 1330
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.6427 -1.1294 -0.8126 1.1605 1.6993
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.365860 1.506287 0.243 0.8081
currentDF[, PROTEIN] 0.035856 0.073333 0.489 0.6249
Age 0.012807 0.008312 1.541 0.1233
Gendermale -0.137973 0.147315 -0.937 0.3490
Hypertension.compositeyes 0.232166 0.204392 1.136 0.2560
DiabetesStatusDiabetes -0.220703 0.162318 -1.360 0.1739
SmokerCurrentyes 0.354163 0.149199 2.374 0.0176 *
Med.Statin.LLDyes -0.155029 0.163322 -0.949 0.3425
Med.all.antiplateletyes -0.281243 0.221170 -1.272 0.2035
GFR_MDRD -0.002650 0.003626 -0.731 0.4648
BMI 0.005013 0.018788 0.267 0.7896
CAD_history 0.249201 0.152590 1.633 0.1024
Stroke_history -0.138158 0.142661 -0.968 0.3328
Peripheral.interv -0.198377 0.177818 -1.116 0.2646
stenose50-70% -1.511542 1.195399 -1.264 0.2061
stenose70-90% -1.140150 1.168415 -0.976 0.3292
stenose90-99% -0.897700 1.168584 -0.768 0.4424
stenose100% (Occlusion) 0.140360 1.431129 0.098 0.9219
stenose50-99% -14.655351 369.458835 -0.040 0.9684
stenose70-99% -2.056345 1.439602 -1.428 0.1532
IL6_pg_ug_2015_rank -0.122276 0.071999 -1.698 0.0895 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1336.9 on 964 degrees of freedom
Residual deviance: 1298.8 on 944 degrees of freedom
AIC: 1340.8
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: 0.035856
Standard error............: 0.073333
Odds ratio (effect size)..: 1.037
Lower 95% CI..............: 0.898
Upper 95% CI..............: 1.197
Z-value...................: 0.488951
P-value...................: 0.6248767
Hosmer and Lemeshow r^2...: 0.028479
Cox and Snell r^2.........: 0.038686
Nagelkerke's pseudo r^2...: 0.051597
Sample size of AE DB......: 2388
Sample size of model......: 965
Missing data %............: 59.58962
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
SmokerCurrent + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes SmokerCurrentyes IL6_pg_ug_2015_rank
0.9035 0.3851 0.4154 -0.2787
Degrees of Freedom: 967 Total (i.e. Null); 964 Residual
Null Deviance: 988.9
Residual Deviance: 969.5 AIC: 977.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1999 0.4510 0.6138 0.7199 1.1595
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.319e+01 7.229e+02 0.018 0.985446
currentDF[, PROTEIN] 9.488e-02 9.151e-02 1.037 0.299848
Age 8.079e-03 1.012e-02 0.798 0.424662
Gendermale -3.242e-02 1.808e-01 -0.179 0.857720
Hypertension.compositeyes 3.106e-01 2.344e-01 1.325 0.185201
DiabetesStatusDiabetes 2.597e-01 2.081e-01 1.248 0.212027
SmokerCurrentyes 4.712e-01 1.888e-01 2.496 0.012569 *
Med.Statin.LLDyes 5.820e-03 2.001e-01 0.029 0.976800
Med.all.antiplateletyes 1.787e-01 2.642e-01 0.676 0.498818
GFR_MDRD 3.823e-03 4.435e-03 0.862 0.388617
BMI 2.593e-02 2.430e-02 1.067 0.285857
CAD_history 2.617e-01 1.921e-01 1.363 0.173018
Stroke_history 2.485e-01 1.784e-01 1.393 0.163631
Peripheral.interv -6.451e-02 2.204e-01 -0.293 0.769737
stenose50-70% -1.371e+01 7.229e+02 -0.019 0.984872
stenose70-90% -1.411e+01 7.229e+02 -0.020 0.984424
stenose90-99% -1.415e+01 7.229e+02 -0.020 0.984388
stenose100% (Occlusion) 4.788e-01 8.767e+02 0.001 0.999564
stenose50-99% -6.751e-02 1.250e+03 0.000 0.999957
stenose70-99% -1.374e+01 7.229e+02 -0.019 0.984839
IL6_pg_ug_2015_rank -3.146e-01 9.023e-02 -3.487 0.000488 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 988.95 on 967 degrees of freedom
Residual deviance: 952.48 on 947 degrees of freedom
AIC: 994.48
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: 0.094877
Standard error............: 0.091513
Odds ratio (effect size)..: 1.1
Lower 95% CI..............: 0.919
Upper 95% CI..............: 1.316
Z-value...................: 1.03676
P-value...................: 0.2998478
Hosmer and Lemeshow r^2...: 0.03687
Cox and Snell r^2.........: 0.036967
Nagelkerke's pseudo r^2...: 0.057762
Sample size of AE DB......: 2388
Sample size of model......: 968
Missing data %............: 59.46399
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Stroke_history +
Peripheral.interv + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Stroke_history Peripheral.interv IL6_pg_ug_2015_rank
0.5335 0.7864 0.3842 -0.6161 0.4560
Degrees of Freedom: 967 Total (i.e. Null); 963 Residual
Null Deviance: 1120
Residual Deviance: 1040 AIC: 1050
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2182 -1.0330 0.6043 0.7938 1.9895
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.301e+01 4.386e+02 0.030 0.9763
currentDF[, PROTEIN] -9.866e-02 8.461e-02 -1.166 0.2436
Age 1.064e-02 9.678e-03 1.100 0.2714
Gendermale 7.990e-01 1.655e-01 4.827 1.38e-06 ***
Hypertension.compositeyes 5.719e-02 2.396e-01 0.239 0.8113
DiabetesStatusDiabetes -7.140e-02 1.882e-01 -0.379 0.7044
SmokerCurrentyes 1.314e-01 1.751e-01 0.750 0.4532
Med.Statin.LLDyes -1.867e-01 1.959e-01 -0.953 0.3405
Med.all.antiplateletyes 7.462e-02 2.551e-01 0.293 0.7699
GFR_MDRD 3.978e-04 4.299e-03 0.093 0.9263
BMI -8.401e-04 2.143e-02 -0.039 0.9687
CAD_history 7.036e-02 1.788e-01 0.393 0.6940
Stroke_history 3.898e-01 1.732e-01 2.250 0.0245 *
Peripheral.interv -5.916e-01 1.915e-01 -3.090 0.0020 **
stenose50-70% -1.334e+01 4.386e+02 -0.030 0.9757
stenose70-90% -1.330e+01 4.386e+02 -0.030 0.9758
stenose90-99% -1.313e+01 4.386e+02 -0.030 0.9761
stenose100% (Occlusion) -1.411e+01 4.386e+02 -0.032 0.9743
stenose50-99% -1.479e+01 4.386e+02 -0.034 0.9731
stenose70-99% -1.454e+01 4.386e+02 -0.033 0.9736
IL6_pg_ug_2015_rank 4.952e-01 8.634e-02 5.735 9.76e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1120.4 on 967 degrees of freedom
Residual deviance: 1028.3 on 947 degrees of freedom
AIC: 1070.3
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: -0.098664
Standard error............: 0.084608
Odds ratio (effect size)..: 0.906
Lower 95% CI..............: 0.768
Upper 95% CI..............: 1.069
Z-value...................: -1.166137
P-value...................: 0.2435592
Hosmer and Lemeshow r^2...: 0.082253
Cox and Snell r^2.........: 0.090813
Nagelkerke's pseudo r^2...: 0.132436
Sample size of AE DB......: 2388
Sample size of model......: 968
Missing data %............: 59.46399
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + GFR_MDRD + CAD_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale GFR_MDRD CAD_history
0.36958 0.12120 0.61093 -0.00555 0.26123
Degrees of Freedom: 966 Total (i.e. Null); 962 Residual
Null Deviance: 1288
Residual Deviance: 1260 AIC: 1270
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9270 -1.2740 0.8058 0.9810 1.4859
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.658791 1.540117 0.428 0.6688
currentDF[, PROTEIN] 0.096366 0.075830 1.271 0.2038
Age -0.002405 0.008572 -0.281 0.7791
Gendermale 0.653345 0.149866 4.360 1.3e-05 ***
Hypertension.compositeyes -0.113781 0.209329 -0.544 0.5867
DiabetesStatusDiabetes -0.166184 0.165938 -1.001 0.3166
SmokerCurrentyes 0.102067 0.154554 0.660 0.5090
Med.Statin.LLDyes -0.207534 0.171488 -1.210 0.2262
Med.all.antiplateletyes 0.101285 0.225730 0.449 0.6536
GFR_MDRD -0.006024 0.003767 -1.599 0.1098
BMI 0.021536 0.019381 1.111 0.2665
CAD_history 0.339149 0.160490 2.113 0.0346 *
Stroke_history 0.168929 0.148040 1.141 0.2538
Peripheral.interv 0.005009 0.183636 0.027 0.9782
stenose50-70% -0.712137 1.212748 -0.587 0.5571
stenose70-90% -0.725992 1.187466 -0.611 0.5409
stenose90-99% -0.434821 1.188064 -0.366 0.7144
stenose100% (Occlusion) -0.560313 1.397228 -0.401 0.6884
stenose50-99% -15.047936 375.974826 -0.040 0.9681
stenose70-99% 0.870277 1.613226 0.539 0.5896
IL6_pg_ug_2015_rank 0.019307 0.074389 0.260 0.7952
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1287.7 on 966 degrees of freedom
Residual deviance: 1242.2 on 946 degrees of freedom
AIC: 1284.2
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: 0.096366
Standard error............: 0.07583
Odds ratio (effect size)..: 1.101
Lower 95% CI..............: 0.949
Upper 95% CI..............: 1.278
Z-value...................: 1.270818
P-value...................: 0.2037934
Hosmer and Lemeshow r^2...: 0.035318
Cox and Snell r^2.........: 0.045942
Nagelkerke's pseudo r^2...: 0.062425
Sample size of AE DB......: 2388
Sample size of model......: 967
Missing data %............: 59.50586
Analysis of MCP1_pg_ug_2015_rank.
- processing CalcificationPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + SmokerCurrent + Med.Statin.LLD + CAD_history + IL6_pg_ug_2015_rank,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age SmokerCurrentyes Med.Statin.LLDyes CAD_history
-1.51542 -0.59564 0.02046 0.42977 -0.24147 0.28995
IL6_pg_ug_2015_rank
0.18445
Degrees of Freedom: 995 Total (i.e. Null); 989 Residual
Null Deviance: 1380
Residual Deviance: 1300 AIC: 1314
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.880 -1.075 -0.661 1.089 2.137
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.109170 1.345267 -0.824 0.40966
currentDF[, PROTEIN] -0.570914 0.079317 -7.198 6.11e-13 ***
Age 0.019220 0.008374 2.295 0.02171 *
Gendermale -0.117423 0.148383 -0.791 0.42874
Hypertension.compositeyes 0.173225 0.208445 0.831 0.40595
DiabetesStatusDiabetes -0.198676 0.164371 -1.209 0.22677
SmokerCurrentyes 0.423323 0.151405 2.796 0.00517 **
Med.Statin.LLDyes -0.233261 0.164455 -1.418 0.15608
Med.all.antiplateletyes -0.244111 0.222935 -1.095 0.27352
GFR_MDRD -0.001316 0.003604 -0.365 0.71495
BMI 0.012374 0.018631 0.664 0.50658
CAD_history 0.294365 0.154806 1.902 0.05724 .
Stroke_history -0.135470 0.144686 -0.936 0.34912
Peripheral.interv -0.134033 0.177869 -0.754 0.45112
stenose50-70% -0.797920 0.966890 -0.825 0.40923
stenose70-90% -0.350437 0.931769 -0.376 0.70684
stenose90-99% -0.163779 0.931216 -0.176 0.86039
stenose100% (Occlusion) 0.579291 1.254446 0.462 0.64423
stenose50-99% -13.596961 357.337235 -0.038 0.96965
stenose70-99% -1.058369 1.267398 -0.835 0.40368
IL6_pg_ug_2015_rank 0.166581 0.077275 2.156 0.03111 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1379.8 on 995 degrees of freedom
Residual deviance: 1283.6 on 975 degrees of freedom
AIC: 1325.6
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CalcificationPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CalcificationPlaque
Effect size...............: -0.570914
Standard error............: 0.079317
Odds ratio (effect size)..: 0.565
Lower 95% CI..............: 0.484
Upper 95% CI..............: 0.66
Z-value...................: -7.197909
P-value...................: 6.114291e-13
Hosmer and Lemeshow r^2...: 0.069762
Cox and Snell r^2.........: 0.092123
Nagelkerke's pseudo r^2...: 0.122868
Sample size of AE DB......: 2388
Sample size of model......: 996
Missing data %............: 58.29146
- processing CollagenPlaque
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
SmokerCurrent + BMI + Stroke_history + IL6_pg_ug_2015_rank,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] SmokerCurrentyes BMI Stroke_history IL6_pg_ug_2015_rank
0.19963 -0.16122 0.41058 0.03702 0.25107 -0.22211
Degrees of Freedom: 998 Total (i.e. Null); 993 Residual
Null Deviance: 1017
Residual Deviance: 991.7 AIC: 1004
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2982 0.4429 0.6106 0.7208 1.1427
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.286e+01 6.472e+02 0.020 0.98415
currentDF[, PROTEIN] -1.566e-01 9.042e-02 -1.732 0.08322 .
Age 8.602e-03 9.904e-03 0.869 0.38509
Gendermale -8.042e-02 1.785e-01 -0.451 0.65235
Hypertension.compositeyes 2.960e-01 2.331e-01 1.269 0.20427
DiabetesStatusDiabetes 2.102e-01 2.042e-01 1.029 0.30338
SmokerCurrentyes 4.921e-01 1.868e-01 2.635 0.00843 **
Med.Statin.LLDyes -2.945e-02 1.963e-01 -0.150 0.88076
Med.all.antiplateletyes 1.282e-01 2.617e-01 0.490 0.62412
GFR_MDRD 4.973e-03 4.316e-03 1.152 0.24916
BMI 3.439e-02 2.382e-02 1.444 0.14880
CAD_history 2.187e-01 1.887e-01 1.159 0.24633
Stroke_history 2.435e-01 1.767e-01 1.378 0.16806
Peripheral.interv -5.055e-03 2.160e-01 -0.023 0.98132
stenose50-70% -1.356e+01 6.472e+02 -0.021 0.98329
stenose70-90% -1.397e+01 6.472e+02 -0.022 0.98277
stenose90-99% -1.404e+01 6.472e+02 -0.022 0.98270
stenose100% (Occlusion) 4.210e-01 8.183e+02 0.001 0.99959
stenose50-99% 1.436e-01 1.205e+03 0.000 0.99990
stenose70-99% -1.359e+01 6.472e+02 -0.021 0.98324
IL6_pg_ug_2015_rank -2.065e-01 9.187e-02 -2.248 0.02457 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1016.76 on 998 degrees of freedom
Residual deviance: 976.91 on 978 degrees of freedom
AIC: 1018.9
Number of Fisher Scoring iterations: 14
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' CollagenPlaque ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: CollagenPlaque
Effect size...............: -0.156637
Standard error............: 0.090422
Odds ratio (effect size)..: 0.855
Lower 95% CI..............: 0.716
Upper 95% CI..............: 1.021
Z-value...................: -1.732282
P-value...................: 0.08322335
Hosmer and Lemeshow r^2...: 0.039191
Cox and Snell r^2.........: 0.039102
Nagelkerke's pseudo r^2...: 0.061231
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
- processing Fat10Perc
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Gender + Stroke_history +
Peripheral.interv + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Gendermale Stroke_history Peripheral.interv IL6_pg_ug_2015_rank
0.5001 0.8299 0.3752 -0.6046 0.4578
Degrees of Freedom: 998 Total (i.e. Null); 994 Residual
Null Deviance: 1164
Residual Deviance: 1077 AIC: 1087
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2481 -1.0386 0.6040 0.7981 2.0958
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 13.129786 391.540184 0.034 0.97325
currentDF[, PROTEIN] -0.086857 0.085197 -1.019 0.30797
Age 0.010120 0.009342 1.083 0.27870
Gendermale 0.853643 0.161410 5.289 1.23e-07 ***
Hypertension.compositeyes 0.055646 0.235533 0.236 0.81323
DiabetesStatusDiabetes -0.116612 0.184074 -0.634 0.52640
SmokerCurrentyes 0.099393 0.171329 0.580 0.56183
Med.Statin.LLDyes -0.172314 0.191205 -0.901 0.36748
Med.all.antiplateletyes 0.056685 0.250340 0.226 0.82086
GFR_MDRD -0.000110 0.004104 -0.027 0.97863
BMI 0.003309 0.020461 0.162 0.87151
CAD_history 0.073364 0.175377 0.418 0.67571
Stroke_history 0.379259 0.170276 2.227 0.02593 *
Peripheral.interv -0.601792 0.186366 -3.229 0.00124 **
stenose50-70% -13.495567 391.538791 -0.034 0.97250
stenose70-90% -13.455871 391.538696 -0.034 0.97258
stenose90-99% -13.316587 391.538695 -0.034 0.97287
stenose100% (Occlusion) -14.307713 391.539436 -0.037 0.97085
stenose50-99% -14.904510 391.541255 -0.038 0.96963
stenose70-99% -14.542576 391.539632 -0.037 0.97037
IL6_pg_ug_2015_rank 0.501944 0.089901 5.583 2.36e-08 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1163.9 on 998 degrees of freedom
Residual deviance: 1065.4 on 978 degrees of freedom
AIC: 1107.4
Number of Fisher Scoring iterations: 13
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' Fat10Perc ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: Fat10Perc
Effect size...............: -0.086857
Standard error............: 0.085197
Odds ratio (effect size)..: 0.917
Lower 95% CI..............: 0.776
Upper 95% CI..............: 1.083
Z-value...................: -1.019483
P-value...................: 0.3079737
Hosmer and Lemeshow r^2...: 0.084585
Cox and Snell r^2.........: 0.093846
Nagelkerke's pseudo r^2...: 0.136385
Sample size of AE DB......: 2388
Sample size of model......: 999
Missing data %............: 58.16583
- processing IPH
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Gender + Med.Statin.LLD + BMI + CAD_history + Stroke_history +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Gendermale Med.Statin.LLDyes BMI
0.13101 -0.22463 0.61172 -0.30216 0.02976
CAD_history Stroke_history stenose50-70% stenose70-90% stenose90-99%
0.33142 0.24256 -1.02994 -0.92698 -0.62001
stenose100% (Occlusion) stenose50-99% stenose70-99% IL6_pg_ug_2015_rank
-0.92397 -15.13616 0.81161 0.15649
Degrees of Freedom: 997 Total (i.e. Null); 984 Residual
Null Deviance: 1329
Residual Deviance: 1276 AIC: 1304
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.9893 -1.2497 0.7839 0.9752 1.6000
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.190713 1.500984 0.127 0.89889
currentDF[, PROTEIN] -0.227337 0.076272 -2.981 0.00288 **
Age 0.001017 0.008366 0.122 0.90327
Gendermale 0.661185 0.147632 4.479 7.51e-06 ***
Hypertension.compositeyes -0.135490 0.208469 -0.650 0.51574
DiabetesStatusDiabetes -0.139422 0.164394 -0.848 0.39639
SmokerCurrentyes 0.110583 0.152610 0.725 0.46869
Med.Statin.LLDyes -0.296861 0.169050 -1.756 0.07908 .
Med.all.antiplateletyes 0.164792 0.222329 0.741 0.45857
GFR_MDRD -0.005186 0.003636 -1.426 0.15374
BMI 0.033370 0.018886 1.767 0.07723 .
CAD_history 0.332543 0.158490 2.098 0.03589 *
Stroke_history 0.236477 0.147225 1.606 0.10822
Peripheral.interv 0.050247 0.179428 0.280 0.77945
stenose50-70% -0.958270 1.172731 -0.817 0.41386
stenose70-90% -0.855005 1.147066 -0.745 0.45604
stenose90-99% -0.556029 1.147046 -0.485 0.62785
stenose100% (Occlusion) -0.839142 1.364150 -0.615 0.53846
stenose50-99% -15.103152 374.531247 -0.040 0.96783
stenose70-99% 0.785866 1.596121 0.492 0.62247
IL6_pg_ug_2015_rank 0.151521 0.077747 1.949 0.05131 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 1329.1 on 997 degrees of freedom
Residual deviance: 1271.5 on 977 degrees of freedom
AIC: 1313.5
Number of Fisher Scoring iterations: 12
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' IPH ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: IPH
Effect size...............: -0.227337
Standard error............: 0.076272
Odds ratio (effect size)..: 0.797
Lower 95% CI..............: 0.686
Upper 95% CI..............: 0.925
Z-value...................: -2.98059
P-value...................: 0.002876934
Hosmer and Lemeshow r^2...: 0.043363
Cox and Snell r^2.........: 0.056113
Nagelkerke's pseudo r^2...: 0.076242
Sample size of AE DB......: 2388
Sample size of model......: 998
Missing data %............: 58.2077 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.PlaquePhenotypes.RANK.MODEL5.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.PlaquePheno")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, trait, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
B. Cross-sectional analysis symptoms
We will perform a cross-sectional analysis between plaque and serum MCP1, IL6, and IL6R levels and the ‘clinical status’ of the plaque in terms of presence of patients’ symptoms (symptomatic vs. asymptomatic). The symptoms of interest are:
- stroke
- TIA
- retinal infarction
- amaurosis fugax
- asymptomatic
Model 1
In this model we correct for Age, and Gender.
Natural log-transformed data
First we use the natural-log transformed data.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M1) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
# + Hypertension.composite + DiabetesStatus + SmokerCurrent +
# Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
# CAD_history + Stroke_history + Peripheral.interv + stenose
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age
0.11643 0.02191
Degrees of Freedom: 455 Total (i.e. Null); 454 Residual
Null Deviance: 417.3
Residual Deviance: 414.9 AIC: 418.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0057 0.5380 0.5871 0.6331 0.8358
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.12920 1.08309 0.119 0.905
currentDF[, PROTEIN] -0.02445 0.11699 -0.209 0.834
Age 0.02168 0.01420 1.527 0.127
Gendermale 0.14136 0.27357 0.517 0.605
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 417.29 on 455 degrees of freedom
Residual deviance: 414.58 on 452 degrees of freedom
AIC: 422.58
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.024449
Standard error............: 0.11699
Odds ratio (effect size)..: 0.976
Lower 95% CI..............: 0.776
Upper 95% CI..............: 1.227
Z-value...................: -0.208979
P-value...................: 0.8344648
Hosmer and Lemeshow r^2...: 0.006485
Cox and Snell r^2.........: 0.005917
Nagelkerke's pseudo r^2...: 0.009869
Sample size of AE DB......: 2388
Sample size of model......: 456
Missing data %............: 80.90452
Analysis of MCP1_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN],
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN]
0.2534 0.3195
Degrees of Freedom: 555 Total (i.e. Null); 554 Residual
Null Deviance: 479
Residual Deviance: 473.6 AIC: 477.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2317 0.4736 0.5421 0.6107 0.9570
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.80551 1.13385 -0.710 0.4774
currentDF[, PROTEIN] 0.34336 0.13841 2.481 0.0131 *
Age 0.01681 0.01356 1.240 0.2151
Gendermale -0.24157 0.27090 -0.892 0.3725
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 478.98 on 555 degrees of freedom
Residual deviance: 471.32 on 552 degrees of freedom
AIC: 479.32
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.343356
Standard error............: 0.138412
Odds ratio (effect size)..: 1.41
Lower 95% CI..............: 1.075
Upper 95% CI..............: 1.849
Z-value...................: 2.480677
P-value...................: 0.01311332
Hosmer and Lemeshow r^2...: 0.015985
Cox and Snell r^2.........: 0.013676
Nagelkerke's pseudo r^2...: 0.023684
Sample size of AE DB......: 2388
Sample size of model......: 556
Missing data %............: 76.71692
Analysis of IL6_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
0.69140 0.10908 0.03025 -0.37729
Degrees of Freedom: 1149 Total (i.e. Null); 1146 Residual
Null Deviance: 790.7
Residual Deviance: 776.9 AIC: 784.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4157 0.3916 0.4523 0.5168 0.7514
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.69140 0.73163 0.945 0.3447
currentDF[, PROTEIN] 0.10908 0.06495 1.680 0.0931 .
Age 0.03025 0.01029 2.938 0.0033 **
Gendermale -0.37729 0.22148 -1.703 0.0885 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 790.69 on 1149 degrees of freedom
Residual deviance: 776.93 on 1146 degrees of freedom
AIC: 784.93
Number of Fisher Scoring iterations: 5
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.109082
Standard error............: 0.064949
Odds ratio (effect size)..: 1.115
Lower 95% CI..............: 0.982
Upper 95% CI..............: 1.267
Z-value...................: 1.6795
P-value...................: 0.09305457
Hosmer and Lemeshow r^2...: 0.017405
Cox and Snell r^2.........: 0.011896
Nagelkerke's pseudo r^2...: 0.023925
Sample size of AE DB......: 2388
Sample size of model......: 1150
Missing data %............: 51.84255
Analysis of IL6R_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
-0.10978 -0.12672 0.03285 -0.39487
Degrees of Freedom: 1150 Total (i.e. Null); 1147 Residual
Null Deviance: 803.5
Residual Deviance: 787.8 AIC: 795.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3738 0.3926 0.4565 0.5237 0.8748
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.10978 0.71558 -0.153 0.87807
currentDF[, PROTEIN] -0.12672 0.08779 -1.443 0.14889
Age 0.03285 0.01023 3.213 0.00132 **
Gendermale -0.39487 0.22099 -1.787 0.07397 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 803.47 on 1150 degrees of freedom
Residual deviance: 787.76 on 1147 degrees of freedom
AIC: 795.76
Number of Fisher Scoring iterations: 5
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.126723
Standard error............: 0.08779
Odds ratio (effect size)..: 0.881
Lower 95% CI..............: 0.742
Upper 95% CI..............: 1.046
Z-value...................: -1.443477
P-value...................: 0.148886
Hosmer and Lemeshow r^2...: 0.019561
Cox and Snell r^2.........: 0.013562
Nagelkerke's pseudo r^2...: 0.026992
Sample size of AE DB......: 2388
Sample size of model......: 1151
Missing data %............: 51.80067
Analysis of MCP1_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
0.46900 0.17995 0.03227 -0.43409
Degrees of Freedom: 1195 Total (i.e. Null); 1192 Residual
Null Deviance: 826.5
Residual Deviance: 805.9 AIC: 813.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5337 0.3791 0.4465 0.5159 0.8508
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.46900 0.70095 0.669 0.50343
currentDF[, PROTEIN] 0.17995 0.06837 2.632 0.00848 **
Age 0.03227 0.01010 3.194 0.00140 **
Gendermale -0.43409 0.21786 -1.992 0.04632 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 826.52 on 1195 degrees of freedom
Residual deviance: 805.92 on 1192 degrees of freedom
AIC: 813.92
Number of Fisher Scoring iterations: 5
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.179955
Standard error............: 0.068365
Odds ratio (effect size)..: 1.197
Lower 95% CI..............: 1.047
Upper 95% CI..............: 1.369
Z-value...................: 2.632248
P-value...................: 0.008482191
Hosmer and Lemeshow r^2...: 0.024928
Cox and Snell r^2.........: 0.01708
Nagelkerke's pseudo r^2...: 0.03423
Sample size of AE DB......: 2388
Sample size of model......: 1196
Missing data %............: 49.91625 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Uni.Protein.Symptoms.MODEL1.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Uni.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M1) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
# + Hypertension.composite + DiabetesStatus + SmokerCurrent +
# Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
# CAD_history + Stroke_history + Peripheral.interv + stenose
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age
0.03354 0.02322
Degrees of Freedom: 527 Total (i.e. Null); 526 Residual
Null Deviance: 482.2
Residual Deviance: 479 AIC: 483
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.0886 0.5322 0.5876 0.6383 0.8258
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.07050 0.88346 0.080 0.9364
currentDF[, PROTEIN] -0.04480 0.12075 -0.371 0.7106
Age 0.02320 0.01296 1.789 0.0735 .
Gendermale -0.04751 0.25974 -0.183 0.8549
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 482.18 on 527 degrees of freedom
Residual deviance: 478.81 on 524 degrees of freedom
AIC: 486.81
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.044803
Standard error............: 0.120747
Odds ratio (effect size)..: 0.956
Lower 95% CI..............: 0.755
Upper 95% CI..............: 1.212
Z-value...................: -0.37105
P-value...................: 0.7106006
Hosmer and Lemeshow r^2...: 0.006985
Cox and Snell r^2.........: 0.006359
Nagelkerke's pseudo r^2...: 0.010619
Sample size of AE DB......: 2388
Sample size of model......: 528
Missing data %............: 77.88945
Analysis of MCP1_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age
0.28675 0.37178 0.02121
Degrees of Freedom: 564 Total (i.e. Null); 562 Residual
Null Deviance: 495.5
Residual Deviance: 483.5 AIC: 489.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3596 0.4499 0.5370 0.6291 0.9789
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.44218 0.89858 0.492 0.62265
currentDF[, PROTEIN] 0.38662 0.12065 3.205 0.00135 **
Age 0.02149 0.01316 1.633 0.10250
Gendermale -0.23867 0.26432 -0.903 0.36656
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 495.50 on 564 degrees of freedom
Residual deviance: 482.64 on 561 degrees of freedom
AIC: 490.64
Number of Fisher Scoring iterations: 4
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.386619
Standard error............: 0.120648
Odds ratio (effect size)..: 1.472
Lower 95% CI..............: 1.162
Upper 95% CI..............: 1.865
Z-value...................: 3.204514
P-value...................: 0.001352907
Hosmer and Lemeshow r^2...: 0.02596
Cox and Snell r^2.........: 0.022509
Nagelkerke's pseudo r^2...: 0.038546
Sample size of AE DB......: 2388
Sample size of model......: 565
Missing data %............: 76.34003
Analysis of IL6_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
0.34611 0.15893 0.03016 -0.37900
Degrees of Freedom: 1149 Total (i.e. Null); 1146 Residual
Null Deviance: 790.7
Residual Deviance: 777 AIC: 785
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.4207 0.3921 0.4517 0.5173 0.7538
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.34611 0.70495 0.491 0.62345
currentDF[, PROTEIN] 0.15893 0.09515 1.670 0.09485 .
Age 0.03016 0.01029 2.930 0.00339 **
Gendermale -0.37900 0.22151 -1.711 0.08709 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 790.69 on 1149 degrees of freedom
Residual deviance: 776.96 on 1146 degrees of freedom
AIC: 784.96
Number of Fisher Scoring iterations: 5
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.158935
Standard error............: 0.095151
Odds ratio (effect size)..: 1.172
Lower 95% CI..............: 0.973
Upper 95% CI..............: 1.413
Z-value...................: 1.670352
P-value...................: 0.09484966
Hosmer and Lemeshow r^2...: 0.017371
Cox and Snell r^2.........: 0.011873
Nagelkerke's pseudo r^2...: 0.023879
Sample size of AE DB......: 2388
Sample size of model......: 1150
Missing data %............: 51.84255
Analysis of IL6R_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Age Gendermale
0.10526 0.03331 -0.38379
Degrees of Freedom: 1151 Total (i.e. Null); 1149 Residual
Null Deviance: 803.7
Residual Deviance: 790.2 AIC: 796.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3792 0.3949 0.4577 0.5226 0.8703
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.14037 0.70096 0.200 0.84129
currentDF[, PROTEIN] -0.11502 0.09484 -1.213 0.22520
Age 0.03295 0.01023 3.222 0.00127 **
Gendermale -0.39123 0.22092 -1.771 0.07658 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 803.71 on 1151 degrees of freedom
Residual deviance: 788.73 on 1148 degrees of freedom
AIC: 796.73
Number of Fisher Scoring iterations: 5
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.115023
Standard error............: 0.094838
Odds ratio (effect size)..: 0.891
Lower 95% CI..............: 0.74
Upper 95% CI..............: 1.073
Z-value...................: -1.212829
P-value...................: 0.2251951
Hosmer and Lemeshow r^2...: 0.018632
Cox and Snell r^2.........: 0.012915
Nagelkerke's pseudo r^2...: 0.025714
Sample size of AE DB......: 2388
Sample size of model......: 1152
Missing data %............: 51.75879
Analysis of MCP1_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale
0.24802 0.26381 0.03239 -0.43504
Degrees of Freedom: 1195 Total (i.e. Null); 1192 Residual
Null Deviance: 826.5
Residual Deviance: 804.7 AIC: 812.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5655 0.3738 0.4440 0.5167 0.8433
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 0.24802 0.69361 0.358 0.72066
currentDF[, PROTEIN] 0.26381 0.09370 2.816 0.00487 **
Age 0.03239 0.01011 3.203 0.00136 **
Gendermale -0.43504 0.21791 -1.996 0.04589 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 826.52 on 1195 degrees of freedom
Residual deviance: 804.68 on 1192 degrees of freedom
AIC: 812.68
Number of Fisher Scoring iterations: 5
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.263812
Standard error............: 0.093697
Odds ratio (effect size)..: 1.302
Lower 95% CI..............: 1.083
Upper 95% CI..............: 1.564
Z-value...................: 2.815595
P-value...................: 0.004868694
Hosmer and Lemeshow r^2...: 0.026421
Cox and Snell r^2.........: 0.018093
Nagelkerke's pseudo r^2...: 0.036261
Sample size of AE DB......: 2388
Sample size of model......: 1196
Missing data %............: 49.91625 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Uni.Protein.RANK.Symptoms.MODEL1.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Uni.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Model 2
In this model we correct for Age, Gender, Hypertension status, Diabetes status, current smoker status, lipid-lowering drugs (LLDs), antiplatelet medication, eGFR (MDRD), BMI, CAD history, stroke history, peripheral interventions, and stenosis..
Natural log-transformed data
First we use the natural-log transformed data.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M2) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Stroke_history Peripheral.interv
1.469 1.421 -1.053
Degrees of Freedom: 413 Total (i.e. Null); 411 Residual
Null Deviance: 388.7
Residual Deviance: 356.9 AIC: 362.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.6144 0.2692 0.4703 0.6809 1.3036
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.684e+01 1.344e+03 0.013 0.990002
currentDF[, PROTEIN] -1.099e-01 1.287e-01 -0.854 0.393205
Age 1.544e-02 1.835e-02 0.841 0.400260
Gendermale 3.170e-02 3.179e-01 0.100 0.920584
Hypertension.compositeyes -4.657e-01 4.644e-01 -1.003 0.315945
DiabetesStatusDiabetes 4.233e-01 3.671e-01 1.153 0.248948
SmokerCurrentyes -1.316e-01 2.994e-01 -0.439 0.660340
Med.Statin.LLDyes -3.348e-01 3.379e-01 -0.991 0.321782
Med.all.antiplateletyes -4.925e-01 5.409e-01 -0.910 0.362567
GFR_MDRD 1.059e-02 8.343e-03 1.269 0.204415
BMI -1.891e-02 3.709e-02 -0.510 0.610181
CAD_history -1.165e-01 3.027e-01 -0.385 0.700375
Stroke_history 1.491e+00 3.883e-01 3.841 0.000123 ***
Peripheral.interv -1.037e+00 3.039e-01 -3.413 0.000642 ***
stenose50-70% -1.423e+01 1.344e+03 -0.011 0.991550
stenose70-90% -1.530e+01 1.344e+03 -0.011 0.990911
stenose90-99% -1.502e+01 1.344e+03 -0.011 0.991078
stenose100% (Occlusion) -1.352e-01 1.655e+03 0.000 0.999935
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 388.73 on 413 degrees of freedom
Residual deviance: 343.56 on 396 degrees of freedom
AIC: 379.56
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.109894
Standard error............: 0.128709
Odds ratio (effect size)..: 0.896
Lower 95% CI..............: 0.696
Upper 95% CI..............: 1.153
Z-value...................: -0.853819
P-value...................: 0.3932054
Hosmer and Lemeshow r^2...: 0.116194
Cox and Snell r^2.........: 0.103361
Nagelkerke's pseudo r^2...: 0.169731
Sample size of AE DB......: 2388
Sample size of model......: 414
Missing data %............: 82.66332
Analysis of MCP1_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Stroke_history Peripheral.interv
0.3598 0.2606 1.5912 -1.0558
Degrees of Freedom: 506 Total (i.e. Null); 503 Residual
Null Deviance: 445.4
Residual Deviance: 401.2 AIC: 409.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8151 0.2361 0.4168 0.6296 1.2837
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.457e+01 1.306e+03 0.011 0.991100
currentDF[, PROTEIN] 2.898e-01 1.591e-01 1.821 0.068563 .
Age 1.607e-02 1.731e-02 0.928 0.353210
Gendermale -1.980e-01 3.040e-01 -0.651 0.514833
Hypertension.compositeyes -6.217e-01 4.585e-01 -1.356 0.175147
DiabetesStatusDiabetes 3.509e-01 3.435e-01 1.022 0.306992
SmokerCurrentyes -4.256e-02 2.845e-01 -0.150 0.881098
Med.Statin.LLDyes -9.946e-02 3.268e-01 -0.304 0.760824
Med.all.antiplateletyes -7.095e-01 5.344e-01 -1.328 0.184247
GFR_MDRD 7.080e-03 7.595e-03 0.932 0.351268
BMI 1.454e-02 3.583e-02 0.406 0.684935
CAD_history -2.658e-01 2.826e-01 -0.940 0.347088
Stroke_history 1.601e+00 3.808e-01 4.203 2.63e-05 ***
Peripheral.interv -1.057e+00 2.946e-01 -3.588 0.000333 ***
stenose50-70% -1.361e+01 1.306e+03 -0.010 0.991688
stenose70-90% -1.514e+01 1.306e+03 -0.012 0.990752
stenose90-99% -1.466e+01 1.306e+03 -0.011 0.991046
stenose100% (Occlusion) -1.079e-01 1.627e+03 0.000 0.999947
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 445.43 on 506 degrees of freedom
Residual deviance: 386.25 on 489 degrees of freedom
AIC: 422.25
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.289758
Standard error............: 0.159095
Odds ratio (effect size)..: 1.336
Lower 95% CI..............: 0.978
Upper 95% CI..............: 1.825
Z-value...................: 1.821291
P-value...................: 0.0685626
Hosmer and Lemeshow r^2...: 0.132863
Cox and Snell r^2.........: 0.110172
Nagelkerke's pseudo r^2...: 0.188452
Sample size of AE DB......: 2388
Sample size of model......: 507
Missing data %............: 78.76884
Analysis of IL6_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
Med.all.antiplatelet + GFR_MDRD + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age Gendermale Med.all.antiplateletyes GFR_MDRD
15.387606 0.027762 -0.453161 -0.916880 0.008104
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
1.166727 -0.673292 -13.748714 -14.870639 -14.701591
stenose100% (Occlusion) stenose50-99% stenose70-99%
-0.331218 -16.941956 -0.167408
Degrees of Freedom: 1008 Total (i.e. Null); 996 Residual
Null Deviance: 707.6
Residual Deviance: 652.1 AIC: 678.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8226 0.2652 0.4017 0.5590 0.9792
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.565e+01 1.027e+03 0.015 0.987838
currentDF[, PROTEIN] 4.009e-02 7.151e-02 0.561 0.575025
Age 3.157e-02 1.296e-02 2.437 0.014805 *
Gendermale -4.000e-01 2.443e-01 -1.637 0.101631
Hypertension.compositeyes -2.988e-01 3.648e-01 -0.819 0.412745
DiabetesStatusDiabetes -8.362e-03 2.509e-01 -0.033 0.973407
SmokerCurrentyes 1.551e-01 2.332e-01 0.665 0.506105
Med.Statin.LLDyes -1.772e-01 2.732e-01 -0.649 0.516525
Med.all.antiplateletyes -9.046e-01 4.485e-01 -2.017 0.043704 *
GFR_MDRD 7.273e-03 5.677e-03 1.281 0.200167
BMI 9.375e-04 2.893e-02 0.032 0.974147
CAD_history -1.784e-01 2.263e-01 -0.788 0.430588
Stroke_history 1.108e+00 2.862e-01 3.872 0.000108 ***
Peripheral.interv -6.278e-01 2.398e-01 -2.618 0.008851 **
stenose50-70% -1.368e+01 1.027e+03 -0.013 0.989373
stenose70-90% -1.486e+01 1.027e+03 -0.014 0.988456
stenose90-99% -1.469e+01 1.027e+03 -0.014 0.988585
stenose100% (Occlusion) -4.360e-01 1.306e+03 0.000 0.999734
stenose50-99% -1.691e+01 1.027e+03 -0.016 0.986861
stenose70-99% -1.378e-01 1.233e+03 0.000 0.999911
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 707.63 on 1008 degrees of freedom
Residual deviance: 648.67 on 989 degrees of freedom
AIC: 688.67
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.040092
Standard error............: 0.071508
Odds ratio (effect size)..: 1.041
Lower 95% CI..............: 0.905
Upper 95% CI..............: 1.198
Z-value...................: 0.560667
P-value...................: 0.5750247
Hosmer and Lemeshow r^2...: 0.083324
Cox and Snell r^2.........: 0.056762
Nagelkerke's pseudo r^2...: 0.112607
Sample size of AE DB......: 2388
Sample size of model......: 1009
Missing data %............: 57.74707
Analysis of IL6R_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + CAD_history + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
0.79707 -0.18290 0.02791 -0.36266 -0.82533
CAD_history Stroke_history Peripheral.interv
-0.36391 1.02555 -0.46692
Degrees of Freedom: 1011 Total (i.e. Null); 1004 Residual
Null Deviance: 720.7
Residual Deviance: 675.8 AIC: 691.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8326 0.2694 0.4155 0.5558 1.0215
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.533e+01 1.137e+03 0.013 0.98924
currentDF[, PROTEIN] -1.693e-01 9.430e-02 -1.795 0.07258 .
Age 3.516e-02 1.291e-02 2.722 0.00648 **
Gendermale -4.114e-01 2.428e-01 -1.695 0.09010 .
Hypertension.compositeyes -2.233e-01 3.507e-01 -0.637 0.52428
DiabetesStatusDiabetes -1.665e-02 2.474e-01 -0.067 0.94635
SmokerCurrentyes 2.696e-01 2.314e-01 1.165 0.24394
Med.Statin.LLDyes -1.900e-01 2.724e-01 -0.698 0.48540
Med.all.antiplateletyes -8.694e-01 4.488e-01 -1.937 0.05271 .
GFR_MDRD 5.162e-03 5.684e-03 0.908 0.36379
BMI -1.488e-02 2.959e-02 -0.503 0.61510
CAD_history -2.771e-01 2.230e-01 -1.243 0.21390
Stroke_history 1.020e+00 2.714e-01 3.760 0.00017 ***
Peripheral.interv -5.140e-01 2.410e-01 -2.132 0.03298 *
stenose50-70% -1.363e+01 1.137e+03 -0.012 0.99043
stenose70-90% -1.479e+01 1.137e+03 -0.013 0.98962
stenose90-99% -1.461e+01 1.137e+03 -0.013 0.98974
stenose100% (Occlusion) -3.467e-01 1.393e+03 0.000 0.99980
stenose50-99% -1.590e+01 1.137e+03 -0.014 0.98884
stenose70-99% -2.688e-01 1.327e+03 0.000 0.99984
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 720.70 on 1011 degrees of freedom
Residual deviance: 660.98 on 992 degrees of freedom
AIC: 700.98
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.16932
Standard error............: 0.094303
Odds ratio (effect size)..: 0.844
Lower 95% CI..............: 0.702
Upper 95% CI..............: 1.016
Z-value...................: -1.795489
P-value...................: 0.07257589
Hosmer and Lemeshow r^2...: 0.08286
Cox and Snell r^2.........: 0.057302
Nagelkerke's pseudo r^2...: 0.112486
Sample size of AE DB......: 2388
Sample size of model......: 1012
Missing data %............: 57.62144
Analysis of MCP1_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + GFR_MDRD + Stroke_history +
Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
15.469983 0.168894 0.031530 -0.520258 -0.924441
GFR_MDRD Stroke_history Peripheral.interv stenose50-70% stenose70-90%
0.008484 1.057027 -0.575248 -13.815303 -15.001478
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
-14.758355 -0.371350 -16.106565 -0.440020
Degrees of Freedom: 1050 Total (i.e. Null); 1037 Residual
Null Deviance: 742.4
Residual Deviance: 682.8 AIC: 710.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8977 0.2682 0.4043 0.5523 1.1643
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.554e+01 1.023e+03 0.015 0.987886
currentDF[, PROTEIN] 1.573e-01 7.463e-02 2.108 0.035040 *
Age 3.611e-02 1.269e-02 2.846 0.004422 **
Gendermale -4.591e-01 2.387e-01 -1.923 0.054440 .
Hypertension.compositeyes -2.078e-01 3.507e-01 -0.592 0.553537
DiabetesStatusDiabetes 5.715e-02 2.458e-01 0.232 0.816153
SmokerCurrentyes 2.655e-01 2.290e-01 1.159 0.246334
Med.Statin.LLDyes -1.553e-01 2.707e-01 -0.574 0.566039
Med.all.antiplateletyes -9.157e-01 4.483e-01 -2.043 0.041096 *
GFR_MDRD 7.369e-03 5.556e-03 1.326 0.184788
BMI -4.650e-03 2.793e-02 -0.166 0.867781
CAD_history -2.338e-01 2.190e-01 -1.067 0.285776
Stroke_history 1.007e+00 2.711e-01 3.713 0.000205 ***
Peripheral.interv -5.514e-01 2.365e-01 -2.332 0.019724 *
stenose50-70% -1.370e+01 1.023e+03 -0.013 0.989315
stenose70-90% -1.494e+01 1.023e+03 -0.015 0.988351
stenose90-99% -1.472e+01 1.023e+03 -0.014 0.988525
stenose100% (Occlusion) -4.238e-01 1.309e+03 0.000 0.999742
stenose50-99% -1.613e+01 1.023e+03 -0.016 0.987420
stenose70-99% -3.740e-01 1.232e+03 0.000 0.999758
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 742.44 on 1050 degrees of freedom
Residual deviance: 678.70 on 1031 degrees of freedom
AIC: 718.7
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.157312
Standard error............: 0.07463
Odds ratio (effect size)..: 1.17
Lower 95% CI..............: 1.011
Upper 95% CI..............: 1.355
Z-value...................: 2.107901
P-value...................: 0.03503953
Hosmer and Lemeshow r^2...: 0.085846
Cox and Snell r^2.........: 0.058841
Nagelkerke's pseudo r^2...: 0.116151
Sample size of AE DB......: 2388
Sample size of model......: 1051
Missing data %............: 55.98828 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.Symptoms.MODEL2.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M2) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Stroke_history Peripheral.interv
1.4460 1.5481 -0.9696
Degrees of Freedom: 480 Total (i.e. Null); 478 Residual
Null Deviance: 448.7
Residual Deviance: 411 AIC: 417
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8207 0.2472 0.4518 0.6797 1.2683
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.547e+01 1.350e+03 0.011 0.990858
currentDF[, PROTEIN] -1.637e-01 1.341e-01 -1.221 0.222219
Age 2.709e-02 1.676e-02 1.616 0.106099
Gendermale -1.779e-01 2.976e-01 -0.598 0.549922
Hypertension.compositeyes -5.697e-01 4.359e-01 -1.307 0.191211
DiabetesStatusDiabetes 3.403e-01 3.345e-01 1.017 0.308976
SmokerCurrentyes 1.065e-01 2.813e-01 0.379 0.704984
Med.Statin.LLDyes -1.716e-01 3.130e-01 -0.548 0.583524
Med.all.antiplateletyes -6.819e-01 5.289e-01 -1.289 0.197347
GFR_MDRD 1.046e-02 7.628e-03 1.371 0.170375
BMI -8.104e-03 3.455e-02 -0.235 0.814531
CAD_history -8.513e-02 2.809e-01 -0.303 0.761814
Stroke_history 1.578e+00 3.808e-01 4.143 3.42e-05 ***
Peripheral.interv -9.874e-01 2.864e-01 -3.448 0.000564 ***
stenose50-70% -1.393e+01 1.350e+03 -0.010 0.991766
stenose70-90% -1.532e+01 1.350e+03 -0.011 0.990946
stenose90-99% -1.486e+01 1.350e+03 -0.011 0.991218
stenose100% (Occlusion) -1.371e-01 1.610e+03 0.000 0.999932
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 448.65 on 480 degrees of freedom
Residual deviance: 393.24 on 463 degrees of freedom
AIC: 429.24
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.163678
Standard error............: 0.134091
Odds ratio (effect size)..: 0.849
Lower 95% CI..............: 0.653
Upper 95% CI..............: 1.104
Z-value...................: -1.220648
P-value...................: 0.2222193
Hosmer and Lemeshow r^2...: 0.123507
Cox and Snell r^2.........: 0.108813
Nagelkerke's pseudo r^2...: 0.179402
Sample size of AE DB......: 2388
Sample size of model......: 481
Missing data %............: 79.85762
Analysis of MCP1_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Med.all.antiplatelet + Stroke_history + Peripheral.interv,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Med.all.antiplateletyes Stroke_history Peripheral.interv
2.1710 0.3020 -0.7129 1.6297 -0.9739
Degrees of Freedom: 513 Total (i.e. Null); 509 Residual
Null Deviance: 457.8
Residual Deviance: 409 AIC: 419
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8828 0.2333 0.4237 0.6299 1.2824
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.496e+01 1.305e+03 0.011 0.990854
currentDF[, PROTEIN] 3.464e-01 1.367e-01 2.534 0.011287 *
Age 2.580e-02 1.666e-02 1.549 0.121368
Gendermale -2.685e-01 2.997e-01 -0.896 0.370282
Hypertension.compositeyes -5.009e-01 4.399e-01 -1.139 0.254855
DiabetesStatusDiabetes 2.651e-01 3.307e-01 0.802 0.422680
SmokerCurrentyes 7.686e-02 2.804e-01 0.274 0.783994
Med.Statin.LLDyes -4.258e-02 3.194e-01 -0.133 0.893950
Med.all.antiplateletyes -8.355e-01 5.289e-01 -1.580 0.114152
GFR_MDRD 8.463e-03 7.526e-03 1.125 0.260766
BMI 1.930e-02 3.529e-02 0.547 0.584325
CAD_history -2.171e-01 2.814e-01 -0.771 0.440413
Stroke_history 1.598e+00 3.795e-01 4.210 2.55e-05 ***
Peripheral.interv -9.893e-01 2.939e-01 -3.367 0.000761 ***
stenose50-70% -1.353e+01 1.305e+03 -0.010 0.991724
stenose70-90% -1.511e+01 1.305e+03 -0.012 0.990760
stenose90-99% -1.466e+01 1.305e+03 -0.011 0.991034
stenose100% (Occlusion) -1.429e-01 1.629e+03 0.000 0.999930
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 457.77 on 513 degrees of freedom
Residual deviance: 395.26 on 496 degrees of freedom
AIC: 431.26
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.346429
Standard error............: 0.136729
Odds ratio (effect size)..: 1.414
Lower 95% CI..............: 1.082
Upper 95% CI..............: 1.849
Z-value...................: 2.533683
P-value...................: 0.01128706
Hosmer and Lemeshow r^2...: 0.136557
Cox and Snell r^2.........: 0.114514
Nagelkerke's pseudo r^2...: 0.194226
Sample size of AE DB......: 2388
Sample size of model......: 514
Missing data %............: 78.47571
Analysis of IL6_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
Med.all.antiplatelet + GFR_MDRD + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age Gendermale Med.all.antiplateletyes GFR_MDRD
15.387606 0.027762 -0.453161 -0.916880 0.008104
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
1.166727 -0.673292 -13.748714 -14.870639 -14.701591
stenose100% (Occlusion) stenose50-99% stenose70-99%
-0.331218 -16.941956 -0.167408
Degrees of Freedom: 1008 Total (i.e. Null); 996 Residual
Null Deviance: 707.6
Residual Deviance: 652.1 AIC: 678.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8197 0.2654 0.4021 0.5591 0.9812
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.553e+01 1.027e+03 0.015 0.987936
currentDF[, PROTEIN] 6.163e-02 1.053e-01 0.585 0.558336
Age 3.155e-02 1.295e-02 2.436 0.014857 *
Gendermale -4.004e-01 2.443e-01 -1.639 0.101287
Hypertension.compositeyes -2.983e-01 3.648e-01 -0.818 0.413500
DiabetesStatusDiabetes -8.036e-03 2.508e-01 -0.032 0.974442
SmokerCurrentyes 1.551e-01 2.332e-01 0.665 0.505947
Med.Statin.LLDyes -1.778e-01 2.733e-01 -0.651 0.515164
Med.all.antiplateletyes -9.050e-01 4.485e-01 -2.018 0.043614 *
GFR_MDRD 7.277e-03 5.677e-03 1.282 0.199907
BMI 9.863e-04 2.892e-02 0.034 0.972798
CAD_history -1.788e-01 2.262e-01 -0.790 0.429472
Stroke_history 1.108e+00 2.862e-01 3.870 0.000109 ***
Peripheral.interv -6.265e-01 2.400e-01 -2.611 0.009031 **
stenose50-70% -1.368e+01 1.027e+03 -0.013 0.989371
stenose70-90% -1.486e+01 1.027e+03 -0.014 0.988453
stenose90-99% -1.469e+01 1.027e+03 -0.014 0.988582
stenose100% (Occlusion) -4.303e-01 1.306e+03 0.000 0.999737
stenose50-99% -1.691e+01 1.027e+03 -0.016 0.986859
stenose70-99% -1.372e-01 1.233e+03 0.000 0.999911
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 707.63 on 1008 degrees of freedom
Residual deviance: 648.64 on 989 degrees of freedom
AIC: 688.64
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.061634
Standard error............: 0.1053
Odds ratio (effect size)..: 1.064
Lower 95% CI..............: 0.865
Upper 95% CI..............: 1.307
Z-value...................: 0.585315
P-value...................: 0.5583357
Hosmer and Lemeshow r^2...: 0.083364
Cox and Snell r^2.........: 0.056789
Nagelkerke's pseudo r^2...: 0.11266
Sample size of AE DB......: 2388
Sample size of model......: 1009
Missing data %............: 57.74707
Analysis of IL6R_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + CAD_history + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
1.16545 -0.16682 0.02796 -0.35834 -0.82910
CAD_history Stroke_history Peripheral.interv
-0.35351 1.02217 -0.47073
Degrees of Freedom: 1012 Total (i.e. Null); 1005 Residual
Null Deviance: 720.9
Residual Deviance: 677.2 AIC: 693.2
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8361 0.2711 0.4157 0.5602 1.0121
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.566e+01 1.140e+03 0.014 0.989035
currentDF[, PROTEIN] -1.527e-01 1.016e-01 -1.503 0.132769
Age 3.521e-02 1.291e-02 2.728 0.006368 **
Gendermale -4.077e-01 2.427e-01 -1.680 0.092969 .
Hypertension.compositeyes -2.212e-01 3.506e-01 -0.631 0.528045
DiabetesStatusDiabetes -9.310e-03 2.471e-01 -0.038 0.969943
SmokerCurrentyes 2.704e-01 2.313e-01 1.169 0.242377
Med.Statin.LLDyes -1.877e-01 2.725e-01 -0.689 0.491028
Med.all.antiplateletyes -8.710e-01 4.486e-01 -1.942 0.052179 .
GFR_MDRD 5.154e-03 5.688e-03 0.906 0.364834
BMI -1.404e-02 2.963e-02 -0.474 0.635537
CAD_history -2.680e-01 2.228e-01 -1.203 0.228970
Stroke_history 1.017e+00 2.712e-01 3.751 0.000176 ***
Peripheral.interv -5.189e-01 2.410e-01 -2.153 0.031324 *
stenose50-70% -1.365e+01 1.140e+03 -0.012 0.990444
stenose70-90% -1.482e+01 1.140e+03 -0.013 0.989628
stenose90-99% -1.464e+01 1.140e+03 -0.013 0.989752
stenose100% (Occlusion) -3.777e-01 1.396e+03 0.000 0.999784
stenose50-99% -1.595e+01 1.140e+03 -0.014 0.988836
stenose70-99% -2.526e-01 1.330e+03 0.000 0.999848
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 720.94 on 1012 degrees of freedom
Residual deviance: 662.33 on 993 degrees of freedom
AIC: 702.33
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.152701
Standard error............: 0.101579
Odds ratio (effect size)..: 0.858
Lower 95% CI..............: 0.703
Upper 95% CI..............: 1.047
Z-value...................: -1.503271
P-value...................: 0.1327691
Hosmer and Lemeshow r^2...: 0.081298
Cox and Snell r^2.........: 0.056217
Nagelkerke's pseudo r^2...: 0.110406
Sample size of AE DB......: 2388
Sample size of model......: 1013
Missing data %............: 57.57956
Analysis of MCP1_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + GFR_MDRD + Stroke_history +
Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
15.272239 0.246808 0.031733 -0.519803 -0.925714
GFR_MDRD Stroke_history Peripheral.interv stenose50-70% stenose70-90%
0.008448 1.056452 -0.572007 -13.826519 -15.017030
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
-14.770785 -0.381146 -16.127189 -0.475975
Degrees of Freedom: 1050 Total (i.e. Null); 1037 Residual
Null Deviance: 742.4
Residual Deviance: 681.8 AIC: 709.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.9026 0.2665 0.4041 0.5510 1.1581
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.535e+01 1.022e+03 0.015 0.988014
currentDF[, PROTEIN] 2.327e-01 1.012e-01 2.299 0.021489 *
Age 3.628e-02 1.270e-02 2.857 0.004280 **
Gendermale -4.583e-01 2.387e-01 -1.920 0.054877 .
Hypertension.compositeyes -2.011e-01 3.509e-01 -0.573 0.566720
DiabetesStatusDiabetes 5.331e-02 2.459e-01 0.217 0.828362
SmokerCurrentyes 2.658e-01 2.291e-01 1.160 0.245990
Med.Statin.LLDyes -1.571e-01 2.708e-01 -0.580 0.561715
Med.all.antiplateletyes -9.184e-01 4.485e-01 -2.048 0.040595 *
GFR_MDRD 7.330e-03 5.560e-03 1.318 0.187367
BMI -4.704e-03 2.790e-02 -0.169 0.866132
CAD_history -2.356e-01 2.191e-01 -1.076 0.282037
Stroke_history 1.006e+00 2.713e-01 3.707 0.000209 ***
Peripheral.interv -5.483e-01 2.366e-01 -2.317 0.020485 *
stenose50-70% -1.371e+01 1.022e+03 -0.013 0.989296
stenose70-90% -1.495e+01 1.022e+03 -0.015 0.988326
stenose90-99% -1.473e+01 1.022e+03 -0.014 0.988502
stenose100% (Occlusion) -4.325e-01 1.308e+03 0.000 0.999736
stenose50-99% -1.616e+01 1.022e+03 -0.016 0.987388
stenose70-99% -4.053e-01 1.231e+03 0.000 0.999737
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 742.44 on 1050 degrees of freedom
Residual deviance: 677.73 on 1031 degrees of freedom
AIC: 717.73
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.232718
Standard error............: 0.101213
Odds ratio (effect size)..: 1.262
Lower 95% CI..............: 1.035
Upper 95% CI..............: 1.539
Z-value...................: 2.299283
P-value...................: 0.02148888
Hosmer and Lemeshow r^2...: 0.087159
Cox and Snell r^2.........: 0.059713
Nagelkerke's pseudo r^2...: 0.117873
Sample size of AE DB......: 2388
Sample size of model......: 1051
Missing data %............: 55.98828 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.RANK.Symptoms.MODEL2.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Model 3
In this model we correct for Age, Gender, Hypertension status, Diabetes status, current smoker status, lipid-lowering drugs (LLDs), antiplatelet medication, eGFR (MDRD), BMI, CAD history, stroke history, peripheral interventions, stenosis., and LDL.
Natural log-transformed data
First we use the natural-log transformed data.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M3) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + LDL_final,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Med.Statin.LLD +
Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes Stroke_history Peripheral.interv
1.8237 -0.6408 1.4565 -1.0636
Degrees of Freedom: 286 Total (i.e. Null); 283 Residual
Null Deviance: 283.3
Residual Deviance: 255.8 AIC: 263.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.6583 0.2308 0.4365 0.7133 1.3582
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.743e+01 2.400e+03 0.007 0.994206
currentDF[, PROTEIN] -9.886e-02 1.530e-01 -0.646 0.518133
Age -1.025e-02 2.244e-02 -0.457 0.647926
Gendermale 1.919e-01 3.766e-01 0.510 0.610376
Hypertension.compositeyes -9.182e-01 6.105e-01 -1.504 0.132598
DiabetesStatusDiabetes 4.874e-01 4.627e-01 1.053 0.292172
SmokerCurrentyes -2.154e-01 3.505e-01 -0.614 0.538905
Med.Statin.LLDyes -6.461e-01 4.158e-01 -1.554 0.120274
Med.all.antiplateletyes -2.635e-01 7.234e-01 -0.364 0.715643
GFR_MDRD 1.023e-02 9.787e-03 1.045 0.295822
BMI 2.828e-02 4.613e-02 0.613 0.539897
CAD_history 5.117e-02 3.611e-01 0.142 0.887320
Stroke_history 1.660e+00 4.647e-01 3.572 0.000354 ***
Peripheral.interv -1.068e+00 3.563e-01 -2.997 0.002728 **
stenose50-70% -1.521e+01 2.400e+03 -0.006 0.994943
stenose70-90% -1.561e+01 2.400e+03 -0.007 0.994810
stenose90-99% -1.500e+01 2.400e+03 -0.006 0.995013
stenose100% (Occlusion) -6.262e-01 2.644e+03 0.000 0.999811
LDL_final 4.615e-02 1.772e-01 0.260 0.794515
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 283.31 on 286 degrees of freedom
Residual deviance: 245.47 on 268 degrees of freedom
AIC: 283.47
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.09886
Standard error............: 0.15298
Odds ratio (effect size)..: 0.906
Lower 95% CI..............: 0.671
Upper 95% CI..............: 1.223
Z-value...................: -0.646226
P-value...................: 0.518133
Hosmer and Lemeshow r^2...: 0.133551
Cox and Snell r^2.........: 0.123512
Nagelkerke's pseudo r^2...: 0.196878
Sample size of AE DB......: 2388
Sample size of model......: 287
Missing data %............: 87.98158
Analysis of MCP1_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Med.Statin.LLD + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Med.Statin.LLDyes Stroke_history Peripheral.interv
2.7182 -0.8944 -0.5833 1.5625 -1.0394
Degrees of Freedom: 356 Total (i.e. Null); 352 Residual
Null Deviance: 326.5
Residual Deviance: 290.8 AIC: 300.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8603 0.2234 0.4378 0.6500 1.4250
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.595e+01 2.400e+03 0.007 0.99470
currentDF[, PROTEIN] 1.221e-01 1.860e-01 0.657 0.51131
Age -9.181e-03 2.074e-02 -0.443 0.65799
Gendermale 8.686e-02 3.562e-01 0.244 0.80736
Hypertension.compositeyes -1.162e+00 5.939e-01 -1.956 0.05044 .
DiabetesStatusDiabetes 4.687e-01 4.264e-01 1.099 0.27171
SmokerCurrentyes -1.667e-01 3.273e-01 -0.509 0.61066
Med.Statin.LLDyes -5.187e-01 4.069e-01 -1.275 0.20240
Med.all.antiplateletyes -3.246e-01 7.023e-01 -0.462 0.64397
GFR_MDRD 3.197e-03 9.074e-03 0.352 0.72460
BMI 5.208e-02 4.258e-02 1.223 0.22133
CAD_history 4.633e-02 3.387e-01 0.137 0.89120
Stroke_history 1.776e+00 4.539e-01 3.913 9.11e-05 ***
Peripheral.interv -1.059e+00 3.409e-01 -3.107 0.00189 **
stenose50-70% -1.395e+01 2.400e+03 -0.006 0.99536
stenose70-90% -1.508e+01 2.400e+03 -0.006 0.99499
stenose90-99% -1.439e+01 2.400e+03 -0.006 0.99522
stenose100% (Occlusion) -1.415e-01 2.638e+03 0.000 0.99996
LDL_final 7.818e-02 1.579e-01 0.495 0.62044
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 326.48 on 356 degrees of freedom
Residual deviance: 280.97 on 338 degrees of freedom
AIC: 318.97
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.122134
Standard error............: 0.185953
Odds ratio (effect size)..: 1.13
Lower 95% CI..............: 0.785
Upper 95% CI..............: 1.627
Z-value...................: 0.656804
P-value...................: 0.5113069
Hosmer and Lemeshow r^2...: 0.139416
Cox and Snell r^2.........: 0.119706
Nagelkerke's pseudo r^2...: 0.199745
Sample size of AE DB......: 2388
Sample size of model......: 357
Missing data %............: 85.05025
Analysis of IL6_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Med.Statin.LLD +
Med.all.antiplatelet + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes Med.all.antiplateletyes Stroke_history
3.1771 -0.6599 -0.9416 1.5973
Degrees of Freedom: 627 Total (i.e. Null); 624 Residual
Null Deviance: 430.7
Residual Deviance: 402.5 AIC: 410.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.9013 0.2226 0.3631 0.5804 1.0099
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.624e+01 1.229e+03 0.013 0.989456
currentDF[, PROTEIN] 6.654e-02 9.000e-02 0.739 0.459706
Age 2.066e-02 1.681e-02 1.229 0.218929
Gendermale -2.292e-01 3.088e-01 -0.742 0.457880
Hypertension.compositeyes -4.168e-01 5.055e-01 -0.825 0.409591
DiabetesStatusDiabetes 1.173e-01 3.342e-01 0.351 0.725677
SmokerCurrentyes 1.632e-01 2.972e-01 0.549 0.582939
Med.Statin.LLDyes -5.393e-01 3.809e-01 -1.416 0.156827
Med.all.antiplateletyes -8.736e-01 6.272e-01 -1.393 0.163638
GFR_MDRD 9.608e-03 7.419e-03 1.295 0.195315
BMI -9.234e-03 3.595e-02 -0.257 0.797294
CAD_history 1.169e-01 2.991e-01 0.391 0.695979
Stroke_history 1.520e+00 4.175e-01 3.641 0.000272 ***
Peripheral.interv -3.896e-01 3.152e-01 -1.236 0.216371
stenose50-70% -1.345e+01 1.229e+03 -0.011 0.991264
stenose70-90% -1.472e+01 1.229e+03 -0.012 0.990444
stenose90-99% -1.480e+01 1.229e+03 -0.012 0.990388
stenose100% (Occlusion) -3.152e-01 1.488e+03 0.000 0.999831
stenose70-99% -6.828e-01 1.680e+03 0.000 0.999676
LDL_final 1.413e-01 1.428e-01 0.990 0.322215
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 430.69 on 627 degrees of freedom
Residual deviance: 389.70 on 608 degrees of freedom
AIC: 429.7
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.066541
Standard error............: 0.090002
Odds ratio (effect size)..: 1.069
Lower 95% CI..............: 0.896
Upper 95% CI..............: 1.275
Z-value...................: 0.739331
P-value...................: 0.4597058
Hosmer and Lemeshow r^2...: 0.095178
Cox and Snell r^2.........: 0.063189
Nagelkerke's pseudo r^2...: 0.127316
Sample size of AE DB......: 2388
Sample size of model......: 628
Missing data %............: 73.70184
Analysis of IL6R_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Med.Statin.LLD + Med.all.antiplatelet + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Med.Statin.LLDyes Med.all.antiplateletyes Stroke_history
2.7049 -0.2566 -0.7107 -0.9239 1.5983
Degrees of Freedom: 621 Total (i.e. Null); 617 Residual
Null Deviance: 437.6
Residual Deviance: 404.5 AIC: 414.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8997 0.2272 0.3710 0.5857 1.0333
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.636e+01 1.460e+03 0.011 0.991063
currentDF[, PROTEIN] -2.183e-01 1.310e-01 -1.667 0.095557 .
Age 2.062e-02 1.696e-02 1.216 0.223987
Gendermale -2.038e-01 3.036e-01 -0.671 0.502095
Hypertension.compositeyes -2.825e-01 4.701e-01 -0.601 0.547898
DiabetesStatusDiabetes 1.002e-01 3.345e-01 0.300 0.764523
SmokerCurrentyes 2.855e-01 2.958e-01 0.965 0.334510
Med.Statin.LLDyes -5.857e-01 3.858e-01 -1.518 0.128986
Med.all.antiplateletyes -8.778e-01 6.298e-01 -1.394 0.163379
GFR_MDRD 7.729e-03 7.508e-03 1.029 0.303282
BMI -2.886e-02 3.764e-02 -0.767 0.443288
CAD_history 3.983e-02 2.975e-01 0.134 0.893487
Stroke_history 1.563e+00 4.159e-01 3.757 0.000172 ***
Peripheral.interv -3.196e-01 3.172e-01 -1.007 0.313790
stenose50-70% -1.362e+01 1.460e+03 -0.009 0.992555
stenose70-90% -1.487e+01 1.460e+03 -0.010 0.991872
stenose90-99% -1.495e+01 1.460e+03 -0.010 0.991831
stenose100% (Occlusion) -5.480e-01 1.681e+03 0.000 0.999740
stenose70-99% -8.238e-01 1.824e+03 0.000 0.999640
LDL_final 1.095e-01 1.432e-01 0.765 0.444488
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 437.63 on 621 degrees of freedom
Residual deviance: 393.77 on 602 degrees of freedom
AIC: 433.77
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.218277
Standard error............: 0.130957
Odds ratio (effect size)..: 0.804
Lower 95% CI..............: 0.622
Upper 95% CI..............: 1.039
Z-value...................: -1.666785
P-value...................: 0.09555717
Hosmer and Lemeshow r^2...: 0.100216
Cox and Snell r^2.........: 0.068082
Nagelkerke's pseudo r^2...: 0.134765
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
Analysis of MCP1_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Med.Statin.LLD +
Med.all.antiplatelet + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes Med.all.antiplateletyes Stroke_history
3.2384 -0.6894 -0.9942 1.6182
Degrees of Freedom: 643 Total (i.e. Null); 640 Residual
Null Deviance: 447
Residual Deviance: 416.9 AIC: 424.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.0012 0.2287 0.3669 0.5798 1.0121
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.613e+01 1.224e+03 0.013 0.989483
currentDF[, PROTEIN] 8.739e-02 9.435e-02 0.926 0.354313
Age 2.107e-02 1.664e-02 1.266 0.205401
Gendermale -2.293e-01 3.001e-01 -0.764 0.444929
Hypertension.compositeyes -2.522e-01 4.705e-01 -0.536 0.591933
DiabetesStatusDiabetes 1.980e-01 3.319e-01 0.597 0.550823
SmokerCurrentyes 2.748e-01 2.931e-01 0.938 0.348465
Med.Statin.LLDyes -5.582e-01 3.798e-01 -1.470 0.141601
Med.all.antiplateletyes -9.239e-01 6.261e-01 -1.476 0.140042
GFR_MDRD 1.026e-02 7.344e-03 1.398 0.162163
BMI -1.469e-02 3.490e-02 -0.421 0.673791
CAD_history 3.673e-02 2.893e-01 0.127 0.898982
Stroke_history 1.540e+00 4.161e-01 3.702 0.000214 ***
Peripheral.interv -3.612e-01 3.123e-01 -1.157 0.247446
stenose50-70% -1.341e+01 1.224e+03 -0.011 0.991254
stenose70-90% -1.472e+01 1.224e+03 -0.012 0.990403
stenose90-99% -1.478e+01 1.224e+03 -0.012 0.990363
stenose100% (Occlusion) -3.058e-01 1.487e+03 0.000 0.999836
stenose70-99% -7.269e-01 1.674e+03 0.000 0.999654
LDL_final 1.158e-01 1.394e-01 0.831 0.406028
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 446.98 on 643 degrees of freedom
Residual deviance: 403.91 on 624 degrees of freedom
AIC: 443.91
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.08739
Standard error............: 0.094348
Odds ratio (effect size)..: 1.091
Lower 95% CI..............: 0.907
Upper 95% CI..............: 1.313
Z-value...................: 0.926256
P-value...................: 0.3543129
Hosmer and Lemeshow r^2...: 0.096355
Cox and Snell r^2.........: 0.06469
Nagelkerke's pseudo r^2...: 0.129261
Sample size of AE DB......: 2388
Sample size of model......: 644
Missing data %............: 73.03183 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.Symptoms.MODEL3.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M3) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + LDL_final,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Med.Statin.LLD + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Med.Statin.LLDyes Stroke_history Peripheral.interv
2.3019 -0.6834 -0.4871 1.5512 -0.8887
Degrees of Freedom: 340 Total (i.e. Null); 336 Residual
Null Deviance: 332.2
Residual Deviance: 300.6 AIC: 310.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.7064 0.2184 0.4642 0.6939 1.3335
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.503e+01 2.400e+03 0.006 0.995001
currentDF[, PROTEIN] -1.678e-01 1.551e-01 -1.082 0.279290
Age 8.507e-03 1.982e-02 0.429 0.667733
Gendermale -1.123e-02 3.495e-01 -0.032 0.974361
Hypertension.compositeyes -9.387e-01 5.484e-01 -1.712 0.086960 .
DiabetesStatusDiabetes 2.877e-01 4.062e-01 0.708 0.478734
SmokerCurrentyes 6.318e-02 3.245e-01 0.195 0.845601
Med.Statin.LLDyes -3.893e-01 3.852e-01 -1.011 0.312188
Med.all.antiplateletyes -4.096e-01 7.039e-01 -0.582 0.560617
GFR_MDRD 9.846e-03 9.026e-03 1.091 0.275351
BMI 4.511e-02 4.280e-02 1.054 0.291860
CAD_history 1.774e-01 3.336e-01 0.532 0.594950
Stroke_history 1.716e+00 4.478e-01 3.833 0.000127 ***
Peripheral.interv -9.306e-01 3.312e-01 -2.809 0.004964 **
stenose50-70% -1.474e+01 2.400e+03 -0.006 0.995098
stenose70-90% -1.563e+01 2.400e+03 -0.007 0.994803
stenose90-99% -1.491e+01 2.400e+03 -0.006 0.995042
stenose100% (Occlusion) -4.936e-01 2.598e+03 0.000 0.999848
LDL_final 1.420e-01 1.596e-01 0.890 0.373659
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 332.21 on 340 degrees of freedom
Residual deviance: 288.59 on 322 degrees of freedom
AIC: 326.59
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.16776
Standard error............: 0.155058
Odds ratio (effect size)..: 0.846
Lower 95% CI..............: 0.624
Upper 95% CI..............: 1.146
Z-value...................: -1.081915
P-value...................: 0.2792904
Hosmer and Lemeshow r^2...: 0.131299
Cox and Snell r^2.........: 0.120072
Nagelkerke's pseudo r^2...: 0.192882
Sample size of AE DB......: 2388
Sample size of model......: 341
Missing data %............: 85.72027
Analysis of MCP1_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Med.Statin.LLD + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Med.Statin.LLDyes Stroke_history Peripheral.interv
1.8016 0.2201 -0.5266 1.5858 -0.9498
Degrees of Freedom: 361 Total (i.e. Null); 357 Residual
Null Deviance: 337.7
Residual Deviance: 302.5 AIC: 312.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.9148 0.2219 0.4302 0.6571 1.4101
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.492e+01 2.400e+03 0.006 0.9950
currentDF[, PROTEIN] 2.476e-01 1.571e-01 1.576 0.1149
Age 5.395e-03 1.958e-02 0.276 0.7829
Gendermale 2.885e-03 3.485e-01 0.008 0.9934
Hypertension.compositeyes -8.618e-01 5.437e-01 -1.585 0.1130
DiabetesStatusDiabetes 2.990e-01 4.035e-01 0.741 0.4587
SmokerCurrentyes -1.908e-02 3.211e-01 -0.059 0.9526
Med.Statin.LLDyes -3.412e-01 3.877e-01 -0.880 0.3788
Med.all.antiplateletyes -6.108e-01 6.969e-01 -0.876 0.3808
GFR_MDRD 4.538e-03 8.951e-03 0.507 0.6122
BMI 5.397e-02 4.123e-02 1.309 0.1906
CAD_history 7.558e-02 3.358e-01 0.225 0.8219
Stroke_history 1.738e+00 4.468e-01 3.890 0.0001 ***
Peripheral.interv -9.657e-01 3.364e-01 -2.870 0.0041 **
stenose50-70% -1.369e+01 2.400e+03 -0.006 0.9954
stenose70-90% -1.483e+01 2.400e+03 -0.006 0.9951
stenose90-99% -1.423e+01 2.400e+03 -0.006 0.9953
stenose100% (Occlusion) 5.240e-02 2.639e+03 0.000 1.0000
LDL_final 1.165e-01 1.571e-01 0.742 0.4584
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 337.75 on 361 degrees of freedom
Residual deviance: 291.85 on 343 degrees of freedom
AIC: 329.85
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.24763
Standard error............: 0.157079
Odds ratio (effect size)..: 1.281
Lower 95% CI..............: 0.942
Upper 95% CI..............: 1.743
Z-value...................: 1.576468
P-value...................: 0.1149179
Hosmer and Lemeshow r^2...: 0.135895
Cox and Snell r^2.........: 0.119082
Nagelkerke's pseudo r^2...: 0.196301
Sample size of AE DB......: 2388
Sample size of model......: 362
Missing data %............: 84.84087
Analysis of IL6_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Med.Statin.LLD +
Med.all.antiplatelet + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes Med.all.antiplateletyes Stroke_history
3.1771 -0.6599 -0.9416 1.5973
Degrees of Freedom: 627 Total (i.e. Null); 624 Residual
Null Deviance: 430.7
Residual Deviance: 402.5 AIC: 410.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8925 0.2219 0.3628 0.5798 1.0169
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.601e+01 1.228e+03 0.013 0.989598
currentDF[, PROTEIN] 1.091e-01 1.344e-01 0.812 0.416921
Age 2.057e-02 1.680e-02 1.224 0.220796
Gendermale -2.285e-01 3.088e-01 -0.740 0.459267
Hypertension.compositeyes -4.162e-01 5.055e-01 -0.823 0.410251
DiabetesStatusDiabetes 1.200e-01 3.342e-01 0.359 0.719686
SmokerCurrentyes 1.622e-01 2.972e-01 0.546 0.585130
Med.Statin.LLDyes -5.403e-01 3.809e-01 -1.418 0.156084
Med.all.antiplateletyes -8.754e-01 6.273e-01 -1.395 0.162898
GFR_MDRD 9.640e-03 7.422e-03 1.299 0.193998
BMI -8.759e-03 3.597e-02 -0.244 0.807588
CAD_history 1.165e-01 2.990e-01 0.390 0.696832
Stroke_history 1.518e+00 4.174e-01 3.637 0.000275 ***
Peripheral.interv -3.876e-01 3.153e-01 -1.230 0.218860
stenose50-70% -1.345e+01 1.228e+03 -0.011 0.991262
stenose70-90% -1.472e+01 1.228e+03 -0.012 0.990440
stenose90-99% -1.480e+01 1.228e+03 -0.012 0.990386
stenose100% (Occlusion) -3.087e-01 1.487e+03 0.000 0.999834
stenose70-99% -6.794e-01 1.680e+03 0.000 0.999677
LDL_final 1.423e-01 1.428e-01 0.996 0.319054
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 430.69 on 627 degrees of freedom
Residual deviance: 389.58 on 608 degrees of freedom
AIC: 429.58
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.10907
Standard error............: 0.13436
Odds ratio (effect size)..: 1.115
Lower 95% CI..............: 0.857
Upper 95% CI..............: 1.451
Z-value...................: 0.811775
P-value...................: 0.4169206
Hosmer and Lemeshow r^2...: 0.095441
Cox and Snell r^2.........: 0.063358
Nagelkerke's pseudo r^2...: 0.127657
Sample size of AE DB......: 2388
Sample size of model......: 628
Missing data %............: 73.70184
Analysis of IL6R_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Med.Statin.LLD + Med.all.antiplatelet + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Med.Statin.LLDyes Med.all.antiplateletyes Stroke_history
3.2331 -0.2533 -0.7112 -0.9302 1.5950
Degrees of Freedom: 621 Total (i.e. Null); 617 Residual
Null Deviance: 437.6
Residual Deviance: 405 AIC: 415
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8977 0.2263 0.3772 0.5824 1.0301
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.675e+01 1.461e+03 0.011 0.990849
currentDF[, PROTEIN] -2.135e-01 1.341e-01 -1.591 0.111538
Age 2.067e-02 1.695e-02 1.220 0.222595
Gendermale -1.975e-01 3.036e-01 -0.651 0.515298
Hypertension.compositeyes -2.786e-01 4.702e-01 -0.593 0.553454
DiabetesStatusDiabetes 1.106e-01 3.342e-01 0.331 0.740614
SmokerCurrentyes 2.920e-01 2.957e-01 0.988 0.323314
Med.Statin.LLDyes -5.915e-01 3.857e-01 -1.533 0.125200
Med.all.antiplateletyes -8.789e-01 6.296e-01 -1.396 0.162715
GFR_MDRD 7.783e-03 7.510e-03 1.036 0.300033
BMI -2.873e-02 3.768e-02 -0.762 0.445850
CAD_history 4.751e-02 2.974e-01 0.160 0.873088
Stroke_history 1.559e+00 4.159e-01 3.748 0.000178 ***
Peripheral.interv -3.233e-01 3.174e-01 -1.018 0.308453
stenose50-70% -1.358e+01 1.461e+03 -0.009 0.992580
stenose70-90% -1.484e+01 1.461e+03 -0.010 0.991893
stenose90-99% -1.492e+01 1.461e+03 -0.010 0.991852
stenose100% (Occlusion) -5.222e-01 1.682e+03 0.000 0.999752
stenose70-99% -7.740e-01 1.825e+03 0.000 0.999662
LDL_final 1.077e-01 1.432e-01 0.752 0.452007
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 437.63 on 621 degrees of freedom
Residual deviance: 394.25 on 602 degrees of freedom
AIC: 434.25
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.213474
Standard error............: 0.134149
Odds ratio (effect size)..: 0.808
Lower 95% CI..............: 0.621
Upper 95% CI..............: 1.051
Z-value...................: -1.59132
P-value...................: 0.1115376
Hosmer and Lemeshow r^2...: 0.099128
Cox and Snell r^2.........: 0.067368
Nagelkerke's pseudo r^2...: 0.133352
Sample size of AE DB......: 2388
Sample size of model......: 622
Missing data %............: 73.9531
Analysis of MCP1_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Med.Statin.LLD +
Med.all.antiplatelet + Stroke_history, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Med.Statin.LLDyes Med.all.antiplateletyes Stroke_history
3.2384 -0.6894 -0.9942 1.6182
Degrees of Freedom: 643 Total (i.e. Null); 640 Residual
Null Deviance: 447
Residual Deviance: 416.9 AIC: 424.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + LDL_final, family = binomial(link = "logit"), data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.0043 0.2305 0.3632 0.5759 1.0192
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.601e+01 1.223e+03 0.013 0.98956
currentDF[, PROTEIN] 1.380e-01 1.256e-01 1.099 0.27189
Age 2.121e-02 1.665e-02 1.274 0.20279
Gendermale -2.311e-01 3.001e-01 -0.770 0.44137
Hypertension.compositeyes -2.425e-01 4.705e-01 -0.515 0.60630
DiabetesStatusDiabetes 1.947e-01 3.318e-01 0.587 0.55735
SmokerCurrentyes 2.765e-01 2.932e-01 0.943 0.34562
Med.Statin.LLDyes -5.572e-01 3.798e-01 -1.467 0.14235
Med.all.antiplateletyes -9.251e-01 6.263e-01 -1.477 0.13967
GFR_MDRD 1.031e-02 7.351e-03 1.402 0.16085
BMI -1.427e-02 3.488e-02 -0.409 0.68230
CAD_history 3.312e-02 2.894e-01 0.114 0.90887
Stroke_history 1.537e+00 4.161e-01 3.695 0.00022 ***
Peripheral.interv -3.618e-01 3.123e-01 -1.158 0.24670
stenose50-70% -1.342e+01 1.223e+03 -0.011 0.99124
stenose70-90% -1.472e+01 1.223e+03 -0.012 0.99039
stenose90-99% -1.479e+01 1.223e+03 -0.012 0.99035
stenose100% (Occlusion) -3.050e-01 1.487e+03 0.000 0.99984
stenose70-99% -7.617e-01 1.676e+03 0.000 0.99964
LDL_final 1.144e-01 1.395e-01 0.821 0.41190
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 446.98 on 643 degrees of freedom
Residual deviance: 403.54 on 624 degrees of freedom
AIC: 443.54
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.138042
Standard error............: 0.12564
Odds ratio (effect size)..: 1.148
Lower 95% CI..............: 0.897
Upper 95% CI..............: 1.469
Z-value...................: 1.098713
P-value...................: 0.2718933
Hosmer and Lemeshow r^2...: 0.097176
Cox and Snell r^2.........: 0.065223
Nagelkerke's pseudo r^2...: 0.130325
Sample size of AE DB......: 2388
Sample size of model......: 644
Missing data %............: 73.03183 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.RANK.Symptoms.MODEL3.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Model 4
In this model we correct for Age, Gender, Hypertension status, Diabetes status, current smoker status, lipid-lowering drugs (LLDs), antiplatelet medication, eGFR (MDRD), BMI, CAD history, stroke history, peripheral interventions, stenosis., and hsCRP.
Natural log-transformed data
First we use the natural-log transformed data.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M4) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + hsCRP_plasma,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
DiabetesStatus + Med.Statin.LLD + Stroke_history + Peripheral.interv,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes DiabetesStatusDiabetes Med.Statin.LLDyes Stroke_history
2.5245 -0.7846 0.7607 -0.9893 1.2704
Peripheral.interv
-0.8749
Degrees of Freedom: 227 Total (i.e. Null); 222 Residual
Null Deviance: 237.3
Residual Deviance: 212.7 AIC: 224.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.2733 0.1875 0.4731 0.7314 1.3597
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.050e+01 2.400e+03 0.009 0.99318
currentDF[, PROTEIN] -1.933e-01 1.787e-01 -1.081 0.27953
Age -2.313e-02 2.555e-02 -0.906 0.36513
Gendermale 3.848e-01 4.022e-01 0.957 0.33877
Hypertension.compositeyes -1.147e+00 6.318e-01 -1.816 0.06937 .
DiabetesStatusDiabetes 8.272e-01 5.544e-01 1.492 0.13573
SmokerCurrentyes -1.491e-01 3.911e-01 -0.381 0.70302
Med.Statin.LLDyes -1.042e+00 4.415e-01 -2.360 0.01826 *
Med.all.antiplateletyes -6.377e-02 7.479e-01 -0.085 0.93206
GFR_MDRD 7.121e-03 1.166e-02 0.611 0.54139
BMI -2.683e-03 4.738e-02 -0.057 0.95484
CAD_history 1.288e-01 3.988e-01 0.323 0.74675
Stroke_history 1.360e+00 4.785e-01 2.842 0.00448 **
Peripheral.interv -8.959e-01 3.926e-01 -2.282 0.02248 *
stenose50-70% -1.757e+01 2.400e+03 -0.007 0.99416
stenose70-90% -1.633e+01 2.400e+03 -0.007 0.99457
stenose90-99% -1.576e+01 2.400e+03 -0.007 0.99476
stenose100% (Occlusion) -1.483e+00 2.703e+03 -0.001 0.99956
hsCRP_plasma 3.120e-03 5.019e-03 0.622 0.53423
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 237.30 on 227 degrees of freedom
Residual deviance: 204.33 on 209 degrees of freedom
AIC: 242.33
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.193256
Standard error............: 0.178712
Odds ratio (effect size)..: 0.824
Lower 95% CI..............: 0.581
Upper 95% CI..............: 1.17
Z-value...................: -1.081383
P-value...................: 0.2795267
Hosmer and Lemeshow r^2...: 0.138941
Cox and Snell r^2.........: 0.134639
Nagelkerke's pseudo r^2...: 0.208154
Sample size of AE DB......: 2388
Sample size of model......: 228
Missing data %............: 90.45226
Analysis of MCP1_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
DiabetesStatus + Med.Statin.LLD + Stroke_history + Peripheral.interv,
family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes DiabetesStatusDiabetes Med.Statin.LLDyes Stroke_history
2.7455 -0.9488 0.7094 -0.9165 1.3830
Peripheral.interv
-0.7997
Degrees of Freedom: 278 Total (i.e. Null); 273 Residual
Null Deviance: 271.3
Residual Deviance: 242.8 AIC: 254.8
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5328 0.2397 0.4550 0.6805 1.4332
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.853e+01 2.400e+03 0.008 0.99384
currentDF[, PROTEIN] 1.639e-01 2.012e-01 0.815 0.41522
Age -2.290e-02 2.336e-02 -0.980 0.32696
Gendermale 1.420e-01 3.780e-01 0.376 0.70722
Hypertension.compositeyes -1.187e+00 6.013e-01 -1.975 0.04828 *
DiabetesStatusDiabetes 7.247e-01 4.877e-01 1.486 0.13728
SmokerCurrentyes -1.354e-01 3.633e-01 -0.373 0.70942
Med.Statin.LLDyes -9.441e-01 4.386e-01 -2.152 0.03136 *
Med.all.antiplateletyes -2.041e-01 7.140e-01 -0.286 0.77496
GFR_MDRD -2.775e-03 1.030e-02 -0.269 0.78761
BMI 1.860e-02 4.290e-02 0.434 0.66456
CAD_history 1.981e-01 3.695e-01 0.536 0.59196
Stroke_history 1.529e+00 4.694e-01 3.258 0.00112 **
Peripheral.interv -8.343e-01 3.707e-01 -2.251 0.02439 *
stenose50-70% -1.531e+01 2.400e+03 -0.006 0.99491
stenose70-90% -1.543e+01 2.400e+03 -0.006 0.99487
stenose90-99% -1.481e+01 2.400e+03 -0.006 0.99508
stenose100% (Occlusion) -3.712e-01 2.690e+03 0.000 0.99989
hsCRP_plasma 1.275e-03 3.465e-03 0.368 0.71299
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 271.28 on 278 degrees of freedom
Residual deviance: 236.26 on 260 degrees of freedom
AIC: 274.26
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.163894
Standard error............: 0.201161
Odds ratio (effect size)..: 1.178
Lower 95% CI..............: 0.794
Upper 95% CI..............: 1.747
Z-value...................: 0.814742
P-value...................: 0.4152199
Hosmer and Lemeshow r^2...: 0.129113
Cox and Snell r^2.........: 0.117981
Nagelkerke's pseudo r^2...: 0.18974
Sample size of AE DB......: 2388
Sample size of model......: 279
Missing data %............: 88.31658
Analysis of IL6_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + CAD_history + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes CAD_history
3.5223 0.4197 -0.7448 -1.3388 0.4457
Stroke_history Peripheral.interv
1.0675 -0.6632
Degrees of Freedom: 618 Total (i.e. Null); 612 Residual
Null Deviance: 449.1
Residual Deviance: 418 AIC: 432
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.0434 0.2574 0.4128 0.5582 1.0607
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.681e+01 1.296e+03 0.013 0.98965
currentDF[, PROTEIN] 4.923e-02 9.140e-02 0.539 0.59013
Age 2.097e-02 1.651e-02 1.270 0.20406
Gendermale -1.581e-01 2.913e-01 -0.543 0.58724
Hypertension.compositeyes -2.427e-01 4.429e-01 -0.548 0.58375
DiabetesStatusDiabetes 1.106e-01 3.301e-01 0.335 0.73760
SmokerCurrentyes 4.600e-01 3.004e-01 1.532 0.12562
Med.Statin.LLDyes -6.978e-01 3.703e-01 -1.885 0.05948 .
Med.all.antiplateletyes -1.297e+00 7.501e-01 -1.729 0.08374 .
GFR_MDRD 7.343e-03 7.465e-03 0.984 0.32531
BMI -1.178e-02 3.354e-02 -0.351 0.72539
CAD_history 4.664e-01 3.078e-01 1.516 0.12962
Stroke_history 9.369e-01 3.522e-01 2.660 0.00781 **
Peripheral.interv -6.347e-01 2.947e-01 -2.153 0.03129 *
stenose50-70% -1.382e+01 1.296e+03 -0.011 0.99149
stenose70-90% -1.461e+01 1.296e+03 -0.011 0.99100
stenose90-99% -1.459e+01 1.296e+03 -0.011 0.99101
stenose100% (Occlusion) -8.537e-01 1.729e+03 0.000 0.99961
stenose70-99% -2.552e-01 1.603e+03 0.000 0.99987
hsCRP_plasma 2.006e-03 4.527e-03 0.443 0.65764
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 449.13 on 618 degrees of freedom
Residual deviance: 410.28 on 599 degrees of freedom
AIC: 450.28
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.049231
Standard error............: 0.091399
Odds ratio (effect size)..: 1.05
Lower 95% CI..............: 0.878
Upper 95% CI..............: 1.257
Z-value...................: 0.538646
P-value...................: 0.5901313
Hosmer and Lemeshow r^2...: 0.086503
Cox and Snell r^2.........: 0.060835
Nagelkerke's pseudo r^2...: 0.117908
Sample size of AE DB......: 2388
Sample size of model......: 619
Missing data %............: 74.07873
Analysis of IL6R_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes
1.76707 0.02495 0.57986 -0.67730 -1.31015
Stroke_history Peripheral.interv
0.94026 -0.52936
Degrees of Freedom: 623 Total (i.e. Null); 617 Residual
Null Deviance: 466.3
Residual Deviance: 433.7 AIC: 447.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.0583 0.2511 0.4164 0.5773 1.1120
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.586e+01 1.568e+03 0.010 0.99193
currentDF[, PROTEIN] -1.244e-01 1.119e-01 -1.112 0.26595
Age 2.752e-02 1.627e-02 1.691 0.09078 .
Gendermale -1.480e-01 2.847e-01 -0.520 0.60320
Hypertension.compositeyes -1.468e-01 4.214e-01 -0.348 0.72755
DiabetesStatusDiabetes 1.144e-01 3.217e-01 0.356 0.72215
SmokerCurrentyes 5.730e-01 2.950e-01 1.942 0.05213 .
Med.Statin.LLDyes -7.764e-01 3.715e-01 -2.090 0.03662 *
Med.all.antiplateletyes -1.315e+00 7.495e-01 -1.755 0.07927 .
GFR_MDRD 8.654e-03 7.329e-03 1.181 0.23774
BMI -3.648e-02 3.444e-02 -1.059 0.28940
CAD_history 3.017e-01 2.950e-01 1.023 0.30641
Stroke_history 9.386e-01 3.373e-01 2.783 0.00539 **
Peripheral.interv -5.299e-01 2.939e-01 -1.803 0.07135 .
stenose50-70% -1.320e+01 1.568e+03 -0.008 0.99328
stenose70-90% -1.409e+01 1.568e+03 -0.009 0.99283
stenose90-99% -1.395e+01 1.568e+03 -0.009 0.99290
stenose100% (Occlusion) -3.580e-01 1.942e+03 0.000 0.99985
stenose50-99% -7.396e-02 2.294e+03 0.000 0.99997
stenose70-99% 2.370e-02 1.835e+03 0.000 0.99999
hsCRP_plasma 1.943e-03 4.408e-03 0.441 0.65942
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 466.30 on 623 degrees of freedom
Residual deviance: 423.43 on 603 degrees of freedom
AIC: 465.43
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.12443
Standard error............: 0.111854
Odds ratio (effect size)..: 0.883
Lower 95% CI..............: 0.709
Upper 95% CI..............: 1.099
Z-value...................: -1.112435
P-value...................: 0.2659513
Hosmer and Lemeshow r^2...: 0.091937
Cox and Snell r^2.........: 0.066396
Nagelkerke's pseudo r^2...: 0.126144
Sample size of AE DB......: 2388
Sample size of model......: 624
Missing data %............: 73.86935
Analysis of MCP1_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes
1.84941 0.02409 0.58172 -0.67198 -1.32001
Stroke_history Peripheral.interv
0.93466 -0.49342
Degrees of Freedom: 642 Total (i.e. Null); 636 Residual
Null Deviance: 475.2
Residual Deviance: 442.7 AIC: 456.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.1163 0.2488 0.4146 0.5787 1.1315
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.621e+01 1.277e+03 0.013 0.9899
currentDF[, PROTEIN] 1.112e-01 9.288e-02 1.197 0.2313
Age 2.881e-02 1.614e-02 1.784 0.0744 .
Gendermale -2.003e-01 2.832e-01 -0.707 0.4794
Hypertension.compositeyes -1.115e-01 4.203e-01 -0.265 0.7908
DiabetesStatusDiabetes 1.904e-01 3.206e-01 0.594 0.5527
SmokerCurrentyes 5.819e-01 2.924e-01 1.990 0.0466 *
Med.Statin.LLDyes -7.131e-01 3.688e-01 -1.934 0.0531 .
Med.all.antiplateletyes -1.328e+00 7.486e-01 -1.774 0.0761 .
GFR_MDRD 9.876e-03 7.390e-03 1.336 0.1814
BMI -1.873e-02 3.229e-02 -0.580 0.5619
CAD_history 3.350e-01 2.910e-01 1.151 0.2496
Stroke_history 8.691e-01 3.381e-01 2.571 0.0102 *
Peripheral.interv -5.305e-01 2.903e-01 -1.827 0.0677 .
stenose50-70% -1.385e+01 1.277e+03 -0.011 0.9914
stenose70-90% -1.472e+01 1.277e+03 -0.012 0.9908
stenose90-99% -1.461e+01 1.277e+03 -0.011 0.9909
stenose100% (Occlusion) -7.127e-01 1.716e+03 0.000 0.9997
stenose50-99% -7.489e-01 2.116e+03 0.000 0.9997
stenose70-99% -5.020e-01 1.594e+03 0.000 0.9997
hsCRP_plasma 2.222e-03 4.883e-03 0.455 0.6491
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 475.20 on 642 degrees of freedom
Residual deviance: 432.23 on 622 degrees of freedom
AIC: 474.23
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.111174
Standard error............: 0.092877
Odds ratio (effect size)..: 1.118
Lower 95% CI..............: 0.932
Upper 95% CI..............: 1.341
Z-value...................: 1.196996
P-value...................: 0.2313082
Hosmer and Lemeshow r^2...: 0.09043
Cox and Snell r^2.........: 0.064647
Nagelkerke's pseudo r^2...: 0.123744
Sample size of AE DB......: 2388
Sample size of model......: 643
Missing data %............: 73.0737 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.RANK.Symptoms.MODEL4.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M4) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + hsCRP_plasma,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Hypertension.composite + Med.Statin.LLD + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Hypertension.compositeyes Med.Statin.LLDyes Stroke_history
2.7478 -0.2817 -0.9979 -0.8465 1.3302
Peripheral.interv
-0.7109
Degrees of Freedom: 268 Total (i.e. Null); 263 Residual
Null Deviance: 275.2
Residual Deviance: 247.3 AIC: 259.3
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.3945 0.1672 0.4741 0.7406 1.2867
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.901e+01 2.400e+03 0.008 0.99368
currentDF[, PROTEIN] -3.246e-01 1.770e-01 -1.834 0.06665 .
Age -1.434e-02 2.272e-02 -0.631 0.52803
Gendermale 1.039e-01 3.677e-01 0.283 0.77755
Hypertension.compositeyes -1.357e+00 6.078e-01 -2.233 0.02555 *
DiabetesStatusDiabetes 3.891e-01 4.643e-01 0.838 0.40205
SmokerCurrentyes 1.193e-01 3.606e-01 0.331 0.74072
Med.Statin.LLDyes -9.307e-01 4.151e-01 -2.242 0.02494 *
Med.all.antiplateletyes -2.950e-01 7.226e-01 -0.408 0.68311
GFR_MDRD 7.384e-03 1.048e-02 0.704 0.48124
BMI 2.260e-02 4.391e-02 0.515 0.60684
CAD_history 2.683e-01 3.647e-01 0.736 0.46200
Stroke_history 1.403e+00 4.646e-01 3.020 0.00253 **
Peripheral.interv -7.912e-01 3.610e-01 -2.192 0.02841 *
stenose50-70% -1.700e+01 2.400e+03 -0.007 0.99435
stenose70-90% -1.646e+01 2.400e+03 -0.007 0.99453
stenose90-99% -1.579e+01 2.400e+03 -0.007 0.99475
stenose100% (Occlusion) -1.474e+00 2.645e+03 -0.001 0.99956
hsCRP_plasma 2.218e-03 4.303e-03 0.515 0.60621
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 275.20 on 268 degrees of freedom
Residual deviance: 238.94 on 250 degrees of freedom
AIC: 276.94
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.324614
Standard error............: 0.176996
Odds ratio (effect size)..: 0.723
Lower 95% CI..............: 0.511
Upper 95% CI..............: 1.023
Z-value...................: -1.834017
P-value...................: 0.06665144
Hosmer and Lemeshow r^2...: 0.131783
Cox and Snell r^2.........: 0.12613
Nagelkerke's pseudo r^2...: 0.196921
Sample size of AE DB......: 2388
Sample size of model......: 269
Missing data %............: 88.73534
Analysis of MCP1_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Med.Statin.LLD + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Med.Statin.LLDyes Stroke_history Peripheral.interv
2.7459 -0.8823 -0.8903 1.3551 -0.7452
Degrees of Freedom: 282 Total (i.e. Null); 278 Residual
Null Deviance: 278.7
Residual Deviance: 251.5 AIC: 261.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.5354 0.2446 0.4647 0.7125 1.3983
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.852e+01 2.400e+03 0.008 0.99384
currentDF[, PROTEIN] 2.083e-01 1.698e-01 1.227 0.21985
Age -1.254e-02 2.242e-02 -0.559 0.57605
Gendermale 8.477e-02 3.694e-01 0.229 0.81849
Hypertension.compositeyes -1.129e+00 5.986e-01 -1.886 0.05935 .
DiabetesStatusDiabetes 4.580e-01 4.514e-01 1.015 0.31029
SmokerCurrentyes -6.676e-03 3.575e-01 -0.019 0.98510
Med.Statin.LLDyes -9.166e-01 4.335e-01 -2.115 0.03447 *
Med.all.antiplateletyes -5.242e-01 7.147e-01 -0.733 0.46329
GFR_MDRD -1.484e-03 1.014e-02 -0.146 0.88363
BMI 2.330e-02 4.168e-02 0.559 0.57614
CAD_history 2.614e-01 3.661e-01 0.714 0.47514
Stroke_history 1.473e+00 4.626e-01 3.185 0.00145 **
Peripheral.interv -7.791e-01 3.664e-01 -2.126 0.03349 *
stenose50-70% -1.515e+01 2.400e+03 -0.006 0.99496
stenose70-90% -1.530e+01 2.400e+03 -0.006 0.99491
stenose90-99% -1.479e+01 2.400e+03 -0.006 0.99508
stenose100% (Occlusion) -3.797e-01 2.689e+03 0.000 0.99989
hsCRP_plasma 1.105e-03 3.283e-03 0.337 0.73637
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 278.73 on 282 degrees of freedom
Residual deviance: 243.89 on 264 degrees of freedom
AIC: 281.89
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.208288
Standard error............: 0.169766
Odds ratio (effect size)..: 1.232
Lower 95% CI..............: 0.883
Upper 95% CI..............: 1.718
Z-value...................: 1.226914
P-value...................: 0.2198548
Hosmer and Lemeshow r^2...: 0.124996
Cox and Snell r^2.........: 0.115836
Nagelkerke's pseudo r^2...: 0.184884
Sample size of AE DB......: 2388
Sample size of model......: 283
Missing data %............: 88.14908
Analysis of IL6_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + CAD_history + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes CAD_history
3.5223 0.4197 -0.7448 -1.3388 0.4457
Stroke_history Peripheral.interv
1.0675 -0.6632
Degrees of Freedom: 618 Total (i.e. Null); 612 Residual
Null Deviance: 449.1
Residual Deviance: 418 AIC: 432
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.0372 0.2573 0.4134 0.5576 1.0672
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.665e+01 1.294e+03 0.013 0.9897
currentDF[, PROTEIN] 8.355e-02 1.349e-01 0.619 0.5358
Age 2.094e-02 1.651e-02 1.268 0.2047
Gendermale -1.585e-01 2.913e-01 -0.544 0.5864
Hypertension.compositeyes -2.428e-01 4.429e-01 -0.548 0.5836
DiabetesStatusDiabetes 1.095e-01 3.301e-01 0.332 0.7400
SmokerCurrentyes 4.602e-01 3.004e-01 1.532 0.1255
Med.Statin.LLDyes -6.981e-01 3.703e-01 -1.885 0.0594 .
Med.all.antiplateletyes -1.301e+00 7.504e-01 -1.734 0.0828 .
GFR_MDRD 7.369e-03 7.470e-03 0.987 0.3238
BMI -1.151e-02 3.352e-02 -0.343 0.7313
CAD_history 4.680e-01 3.075e-01 1.522 0.1280
Stroke_history 9.339e-01 3.521e-01 2.652 0.0080 **
Peripheral.interv -6.329e-01 2.948e-01 -2.147 0.0318 *
stenose50-70% -1.383e+01 1.294e+03 -0.011 0.9915
stenose70-90% -1.462e+01 1.294e+03 -0.011 0.9910
stenose90-99% -1.460e+01 1.294e+03 -0.011 0.9910
stenose100% (Occlusion) -8.536e-01 1.728e+03 0.000 0.9996
stenose70-99% -2.603e-01 1.601e+03 0.000 0.9999
hsCRP_plasma 2.019e-03 4.558e-03 0.443 0.6577
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 449.13 on 618 degrees of freedom
Residual deviance: 410.18 on 599 degrees of freedom
AIC: 450.18
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.08355
Standard error............: 0.134925
Odds ratio (effect size)..: 1.087
Lower 95% CI..............: 0.835
Upper 95% CI..............: 1.416
Z-value...................: 0.619236
P-value...................: 0.5357609
Hosmer and Lemeshow r^2...: 0.086712
Cox and Snell r^2.........: 0.060977
Nagelkerke's pseudo r^2...: 0.118184
Sample size of AE DB......: 2388
Sample size of model......: 619
Missing data %............: 74.07873
Analysis of IL6R_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes
1.76707 0.02495 0.57986 -0.67730 -1.31015
Stroke_history Peripheral.interv
0.94026 -0.52936
Degrees of Freedom: 623 Total (i.e. Null); 617 Residual
Null Deviance: 466.3
Residual Deviance: 433.7 AIC: 447.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.0600 0.2532 0.4185 0.5752 1.1086
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.617e+01 1.557e+03 0.010 0.9917
currentDF[, PROTEIN] -1.120e-01 1.242e-01 -0.902 0.3670
Age 2.750e-02 1.628e-02 1.689 0.0912 .
Gendermale -1.439e-01 2.846e-01 -0.506 0.6132
Hypertension.compositeyes -1.462e-01 4.213e-01 -0.347 0.7285
DiabetesStatusDiabetes 1.245e-01 3.212e-01 0.388 0.6983
SmokerCurrentyes 5.751e-01 2.950e-01 1.950 0.0512 .
Med.Statin.LLDyes -7.720e-01 3.717e-01 -2.077 0.0378 *
Med.all.antiplateletyes -1.318e+00 7.493e-01 -1.758 0.0787 .
GFR_MDRD 8.610e-03 7.337e-03 1.174 0.2406
BMI -3.572e-02 3.447e-02 -1.036 0.3000
CAD_history 3.093e-01 2.947e-01 1.049 0.2940
Stroke_history 9.321e-01 3.372e-01 2.764 0.0057 **
Peripheral.interv -5.352e-01 2.940e-01 -1.820 0.0687 .
stenose50-70% -1.328e+01 1.557e+03 -0.009 0.9932
stenose70-90% -1.417e+01 1.557e+03 -0.009 0.9927
stenose90-99% -1.404e+01 1.557e+03 -0.009 0.9928
stenose100% (Occlusion) -4.252e-01 1.933e+03 0.000 0.9998
stenose50-99% -1.688e-01 2.287e+03 0.000 0.9999
stenose70-99% 1.041e-04 1.825e+03 0.000 1.0000
hsCRP_plasma 1.943e-03 4.401e-03 0.442 0.6588
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 466.30 on 623 degrees of freedom
Residual deviance: 423.92 on 603 degrees of freedom
AIC: 465.92
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.112022
Standard error............: 0.124189
Odds ratio (effect size)..: 0.894
Lower 95% CI..............: 0.701
Upper 95% CI..............: 1.14
Z-value...................: -0.902032
P-value...................: 0.36704
Hosmer and Lemeshow r^2...: 0.090899
Cox and Snell r^2.........: 0.065671
Nagelkerke's pseudo r^2...: 0.124768
Sample size of AE DB......: 2388
Sample size of model......: 624
Missing data %............: 73.86935
Analysis of MCP1_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + Stroke_history +
Peripheral.interv, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age SmokerCurrentyes Med.Statin.LLDyes Med.all.antiplateletyes
1.84941 0.02409 0.58172 -0.67198 -1.32001
Stroke_history Peripheral.interv
0.93466 -0.49342
Degrees of Freedom: 642 Total (i.e. Null); 636 Residual
Null Deviance: 475.2
Residual Deviance: 442.7 AIC: 456.7
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.1203 0.2480 0.4177 0.5780 1.1392
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.605e+01 1.276e+03 0.013 0.9900
currentDF[, PROTEIN] 1.655e-01 1.228e-01 1.347 0.1780
Age 2.913e-02 1.617e-02 1.801 0.0716 .
Gendermale -2.021e-01 2.832e-01 -0.714 0.4755
Hypertension.compositeyes -1.069e-01 4.204e-01 -0.254 0.7992
DiabetesStatusDiabetes 1.868e-01 3.205e-01 0.583 0.5600
SmokerCurrentyes 5.855e-01 2.925e-01 2.002 0.0453 *
Med.Statin.LLDyes -7.137e-01 3.689e-01 -1.935 0.0530 .
Med.all.antiplateletyes -1.331e+00 7.487e-01 -1.777 0.0755 .
GFR_MDRD 9.981e-03 7.402e-03 1.348 0.1775
BMI -1.865e-02 3.227e-02 -0.578 0.5634
CAD_history 3.335e-01 2.908e-01 1.147 0.2514
Stroke_history 8.659e-01 3.381e-01 2.561 0.0104 *
Peripheral.interv -5.307e-01 2.904e-01 -1.828 0.0676 .
stenose50-70% -1.385e+01 1.276e+03 -0.011 0.9913
stenose70-90% -1.473e+01 1.276e+03 -0.012 0.9908
stenose90-99% -1.461e+01 1.276e+03 -0.011 0.9909
stenose100% (Occlusion) -7.054e-01 1.716e+03 0.000 0.9997
stenose50-99% -7.583e-01 2.116e+03 0.000 0.9997
stenose70-99% -5.285e-01 1.593e+03 0.000 0.9997
hsCRP_plasma 2.253e-03 4.931e-03 0.457 0.6478
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 475.20 on 642 degrees of freedom
Residual deviance: 431.82 on 622 degrees of freedom
AIC: 473.82
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.165464
Standard error............: 0.12284
Odds ratio (effect size)..: 1.18
Lower 95% CI..............: 0.927
Upper 95% CI..............: 1.501
Z-value...................: 1.346985
P-value...................: 0.177985
Hosmer and Lemeshow r^2...: 0.091292
Cox and Snell r^2.........: 0.065243
Nagelkerke's pseudo r^2...: 0.124883
Sample size of AE DB......: 2388
Sample size of model......: 643
Missing data %............: 73.0737 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.RANK.Symptoms.MODEL4.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Model 5
In this model we correct for Age, Gender, Hypertension status, Diabetes status, current smoker status, lipid-lowering drugs (LLDs), antiplatelet medication, eGFR (MDRD), BMI, CAD history, stroke history, peripheral interventions, stenosis., and IL6 in plaques.
Natural log-transformed data
First we use the natural-log transformed data.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN)) {
PROTEIN = TRAITS.PROTEIN[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M5) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_LN,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Med.Statin.LLD + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Med.Statin.LLDyes Stroke_history Peripheral.interv
3.1233 -1.1555 -0.5724 1.4408 -0.9856
Degrees of Freedom: 318 Total (i.e. Null); 314 Residual
Null Deviance: 273.6
Residual Deviance: 245.6 AIC: 255.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.6954 0.2310 0.4158 0.6161 1.3095
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.024e+01 1.635e+03 0.012 0.99012
currentDF[, PROTEIN] 8.990e-02 1.712e-01 0.525 0.59955
Age -1.184e-02 2.234e-02 -0.530 0.59604
Gendermale 3.202e-01 3.733e-01 0.858 0.39092
Hypertension.compositeyes -1.258e+00 7.819e-01 -1.609 0.10758
DiabetesStatusDiabetes 1.895e-01 4.358e-01 0.435 0.66367
SmokerCurrentyes -6.166e-01 3.694e-01 -1.669 0.09504 .
Med.Statin.LLDyes -5.971e-01 4.308e-01 -1.386 0.16580
Med.all.antiplateletyes -7.127e-01 6.897e-01 -1.033 0.30149
GFR_MDRD 3.517e-03 1.020e-02 0.345 0.73016
BMI -2.071e-02 4.695e-02 -0.441 0.65911
CAD_history -1.294e-01 3.774e-01 -0.343 0.73165
Stroke_history 1.525e+00 4.737e-01 3.219 0.00128 **
Peripheral.interv -9.504e-01 3.695e-01 -2.572 0.01010 *
stenose50-70% -1.466e+01 1.635e+03 -0.009 0.99284
stenose70-90% -1.547e+01 1.635e+03 -0.009 0.99245
stenose90-99% -1.514e+01 1.635e+03 -0.009 0.99261
stenose100% (Occlusion) -1.725e+00 2.046e+03 -0.001 0.99933
IL6_pg_ug_2015_LN 1.081e-01 1.190e-01 0.908 0.36387
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 273.65 on 318 degrees of freedom
Residual deviance: 236.90 on 300 degrees of freedom
AIC: 274.9
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.089896
Standard error............: 0.171214
Odds ratio (effect size)..: 1.094
Lower 95% CI..............: 0.782
Upper 95% CI..............: 1.53
Z-value...................: 0.525049
P-value...................: 0.5995494
Hosmer and Lemeshow r^2...: 0.134276
Cox and Snell r^2.........: 0.108799
Nagelkerke's pseudo r^2...: 0.188914
Sample size of AE DB......: 2388
Sample size of model......: 319
Missing data %............: 86.64154
Analysis of MCP1_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Stroke_history Peripheral.interv
3.046 -1.489 1.618 -1.024
Degrees of Freedom: 390 Total (i.e. Null); 387 Residual
Null Deviance: 317.6
Residual Deviance: 282.5 AIC: 290.5
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.7663 0.2017 0.3715 0.6050 1.4386
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.896e+01 1.643e+03 0.012 0.990793
currentDF[, PROTEIN] 1.215e-01 1.958e-01 0.621 0.534683
Age 2.906e-03 2.022e-02 0.144 0.885728
Gendermale -6.048e-03 3.525e-01 -0.017 0.986312
Hypertension.compositeyes -1.665e+00 7.758e-01 -2.146 0.031910 *
DiabetesStatusDiabetes 1.615e-01 3.926e-01 0.411 0.680858
SmokerCurrentyes -4.023e-01 3.387e-01 -1.188 0.234883
Med.Statin.LLDyes -4.024e-01 4.046e-01 -0.995 0.319878
Med.all.antiplateletyes -8.924e-01 6.929e-01 -1.288 0.197789
GFR_MDRD 9.595e-04 9.306e-03 0.103 0.917883
BMI 4.773e-05 4.263e-02 0.001 0.999107
CAD_history -1.512e-01 3.476e-01 -0.435 0.663556
Stroke_history 1.687e+00 4.656e-01 3.623 0.000291 ***
Peripheral.interv -1.048e+00 3.573e-01 -2.935 0.003338 **
stenose50-70% -1.416e+01 1.643e+03 -0.009 0.993126
stenose70-90% -1.554e+01 1.643e+03 -0.009 0.992453
stenose90-99% -1.488e+01 1.643e+03 -0.009 0.992774
stenose100% (Occlusion) -1.543e+00 1.975e+03 -0.001 0.999376
IL6_pg_ug_2015_LN 4.199e-02 1.094e-01 0.384 0.701204
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 317.62 on 390 degrees of freedom
Residual deviance: 271.14 on 372 degrees of freedom
AIC: 309.14
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.121548
Standard error............: 0.195769
Odds ratio (effect size)..: 1.129
Lower 95% CI..............: 0.769
Upper 95% CI..............: 1.657
Z-value...................: 0.620873
P-value...................: 0.534683
Hosmer and Lemeshow r^2...: 0.146359
Cox and Snell r^2.........: 0.112097
Nagelkerke's pseudo r^2...: 0.201548
Sample size of AE DB......: 2388
Sample size of model......: 391
Missing data %............: 83.62647
Analysis of IL6_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
Med.all.antiplatelet + GFR_MDRD + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age Gendermale Med.all.antiplateletyes GFR_MDRD
15.387606 0.027762 -0.453161 -0.916880 0.008104
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
1.166727 -0.673292 -13.748714 -14.870639 -14.701591
stenose100% (Occlusion) stenose50-99% stenose70-99%
-0.331218 -16.941956 -0.167408
Degrees of Freedom: 1008 Total (i.e. Null); 996 Residual
Null Deviance: 707.6
Residual Deviance: 652.1 AIC: 678.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8226 0.2652 0.4017 0.5590 0.9792
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.565e+01 1.027e+03 0.015 0.987838
currentDF[, PROTEIN] 4.009e-02 7.151e-02 0.561 0.575025
Age 3.157e-02 1.296e-02 2.437 0.014805 *
Gendermale -4.000e-01 2.443e-01 -1.637 0.101631
Hypertension.compositeyes -2.988e-01 3.648e-01 -0.819 0.412745
DiabetesStatusDiabetes -8.362e-03 2.509e-01 -0.033 0.973407
SmokerCurrentyes 1.551e-01 2.332e-01 0.665 0.506105
Med.Statin.LLDyes -1.772e-01 2.732e-01 -0.649 0.516525
Med.all.antiplateletyes -9.046e-01 4.485e-01 -2.017 0.043704 *
GFR_MDRD 7.273e-03 5.677e-03 1.281 0.200167
BMI 9.375e-04 2.893e-02 0.032 0.974147
CAD_history -1.784e-01 2.263e-01 -0.788 0.430588
Stroke_history 1.108e+00 2.862e-01 3.872 0.000108 ***
Peripheral.interv -6.278e-01 2.398e-01 -2.618 0.008851 **
stenose50-70% -1.368e+01 1.027e+03 -0.013 0.989373
stenose70-90% -1.486e+01 1.027e+03 -0.014 0.988456
stenose90-99% -1.469e+01 1.027e+03 -0.014 0.988585
stenose100% (Occlusion) -4.360e-01 1.306e+03 0.000 0.999734
stenose50-99% -1.691e+01 1.027e+03 -0.016 0.986861
stenose70-99% -1.378e-01 1.233e+03 0.000 0.999911
IL6_pg_ug_2015_LN NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 707.63 on 1008 degrees of freedom
Residual deviance: 648.67 on 989 degrees of freedom
AIC: 688.67
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.040092
Standard error............: 0.071508
Odds ratio (effect size)..: 1.041
Lower 95% CI..............: 0.905
Upper 95% CI..............: 1.198
Z-value...................: 0.560667
P-value...................: 0.5750247
Hosmer and Lemeshow r^2...: 0.083324
Cox and Snell r^2.........: 0.056762
Nagelkerke's pseudo r^2...: 0.112607
Sample size of AE DB......: 2388
Sample size of model......: 1009
Missing data %............: 57.74707
Analysis of IL6R_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + Stroke_history + Peripheral.interv +
IL6_pg_ug_2015_LN, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
1.22809 -0.29703 0.02273 -0.38267 -0.74254
Stroke_history Peripheral.interv IL6_pg_ug_2015_LN
1.09881 -0.56737 0.13789
Degrees of Freedom: 975 Total (i.e. Null); 968 Residual
Null Deviance: 687.4
Residual Deviance: 639.4 AIC: 655.4
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.7313 0.2616 0.3936 0.5448 1.0748
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.547e+01 1.142e+03 0.014 0.989188
currentDF[, PROTEIN] -2.799e-01 1.087e-01 -2.575 0.010020 *
Age 3.013e-02 1.333e-02 2.259 0.023854 *
Gendermale -3.800e-01 2.498e-01 -1.521 0.128141
Hypertension.compositeyes -2.389e-01 3.670e-01 -0.651 0.515128
DiabetesStatusDiabetes -7.154e-02 2.537e-01 -0.282 0.777963
SmokerCurrentyes 1.609e-01 2.376e-01 0.677 0.498292
Med.Statin.LLDyes -2.106e-01 2.771e-01 -0.760 0.447143
Med.all.antiplateletyes -8.279e-01 4.507e-01 -1.837 0.066229 .
GFR_MDRD 5.094e-03 5.859e-03 0.869 0.384626
BMI -5.086e-03 3.024e-02 -0.168 0.866441
CAD_history -2.107e-01 2.317e-01 -0.909 0.363109
Stroke_history 1.078e+00 2.873e-01 3.752 0.000175 ***
Peripheral.interv -5.651e-01 2.460e-01 -2.297 0.021601 *
stenose50-70% -1.349e+01 1.142e+03 -0.012 0.990570
stenose70-90% -1.461e+01 1.142e+03 -0.013 0.989789
stenose90-99% -1.445e+01 1.142e+03 -0.013 0.989902
stenose100% (Occlusion) -2.736e-01 1.393e+03 0.000 0.999843
stenose50-99% -1.670e+01 1.142e+03 -0.015 0.988331
stenose70-99% -1.888e-01 1.332e+03 0.000 0.999887
IL6_pg_ug_2015_LN 1.301e-01 7.939e-02 1.639 0.101187
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 687.36 on 975 degrees of freedom
Residual deviance: 624.01 on 955 degrees of freedom
AIC: 666.01
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: -0.279855
Standard error............: 0.108675
Odds ratio (effect size)..: 0.756
Lower 95% CI..............: 0.611
Upper 95% CI..............: 0.935
Z-value...................: -2.575155
P-value...................: 0.0100195
Hosmer and Lemeshow r^2...: 0.092164
Cox and Snell r^2.........: 0.062846
Nagelkerke's pseudo r^2...: 0.124318
Sample size of AE DB......: 2388
Sample size of model......: 976
Missing data %............: 59.12898
Analysis of MCP1_pg_ug_2015_LN.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + GFR_MDRD + Stroke_history +
Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
15.571730 0.136390 0.028145 -0.459467 -0.915731
GFR_MDRD Stroke_history Peripheral.interv stenose50-70% stenose70-90%
0.008321 1.146387 -0.669062 -13.779325 -14.925585
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
-14.736397 -0.347463 -17.087502 -0.329992
Degrees of Freedom: 1007 Total (i.e. Null); 994 Residual
Null Deviance: 707.4
Residual Deviance: 648.6 AIC: 676.6
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_LN, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.9070 0.2640 0.3966 0.5542 1.1087
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.566e+01 1.029e+03 0.015 0.987849
currentDF[, PROTEIN] 1.355e-01 8.956e-02 1.513 0.130306
Age 3.141e-02 1.298e-02 2.420 0.015530 *
Gendermale -4.097e-01 2.445e-01 -1.675 0.093857 .
Hypertension.compositeyes -2.809e-01 3.657e-01 -0.768 0.442438
DiabetesStatusDiabetes -2.837e-03 2.509e-01 -0.011 0.990980
SmokerCurrentyes 1.636e-01 2.333e-01 0.701 0.483158
Med.Statin.LLDyes -1.508e-01 2.740e-01 -0.550 0.582051
Med.all.antiplateletyes -9.121e-01 4.501e-01 -2.026 0.042717 *
GFR_MDRD 7.303e-03 5.673e-03 1.287 0.197982
BMI 2.607e-04 2.867e-02 0.009 0.992745
CAD_history -1.829e-01 2.266e-01 -0.807 0.419512
Stroke_history 1.109e+00 2.864e-01 3.873 0.000107 ***
Peripheral.interv -6.424e-01 2.407e-01 -2.669 0.007611 **
stenose50-70% -1.370e+01 1.029e+03 -0.013 0.989373
stenose70-90% -1.489e+01 1.029e+03 -0.014 0.988451
stenose90-99% -1.470e+01 1.029e+03 -0.014 0.988593
stenose100% (Occlusion) -3.751e-01 1.311e+03 0.000 0.999772
stenose50-99% -1.704e+01 1.029e+03 -0.017 0.986781
stenose70-99% -2.841e-01 1.236e+03 0.000 0.999817
IL6_pg_ug_2015_LN -1.685e-02 8.271e-02 -0.204 0.838531
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 707.39 on 1007 degrees of freedom
Residual deviance: 645.86 on 987 degrees of freedom
AIC: 687.86
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_LN ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_LN
Trait/outcome.............: AsymptSympt
Effect size...............: 0.1355
Standard error............: 0.089563
Odds ratio (effect size)..: 1.145
Lower 95% CI..............: 0.961
Upper 95% CI..............: 1.365
Z-value...................: 1.512895
P-value...................: 0.1303063
Hosmer and Lemeshow r^2...: 0.08698
Cox and Snell r^2.........: 0.059215
Nagelkerke's pseudo r^2...: 0.117422
Sample size of AE DB......: 2388
Sample size of model......: 1008
Missing data %............: 57.78894 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.RANK.Symptoms.MODEL5.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
Inverse-rank normalization
Here we use the inverse-rank normalized data - visually this is more normally distributed.
GLM.results <- data.frame(matrix(NA, ncol = 16, nrow = 0))
for (protein in 1:length(TRAITS.PROTEIN.RANK)) {
PROTEIN = TRAITS.PROTEIN.RANK[protein]
cat(paste0("\nAnalysis of ",PROTEIN,".\n"))
TRAIT = "AsymptSympt"
cat(paste0("\n- processing ",TRAIT,"\n\n"))
currentDF <- as.data.frame(AEDB.CEA %>%
dplyr::select(., PROTEIN, TRAIT, COVARIATES_M5rank) %>%
filter(complete.cases(.))) %>%
filter_if(~is.numeric(.), all_vars(!is.infinite(.)))
# for debug
# print(DT::datatable(currentDF))
# print(nrow(currentDF))
# print(str(currentDF))
# print(class(currentDF[,TRAIT]))
### univariate
fit <- glm(as.factor(currentDF[,TRAIT]) ~ currentDF[,PROTEIN] + Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent +
Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI +
CAD_history + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_rank,
data = currentDF, family = binomial(link = "logit"))
model_step <- stepAIC(fit, direction = "both", trace = FALSE)
print(model_step)
print(summary(fit))
GLM.results.TEMP <- data.frame(matrix(NA, ncol = 16, nrow = 0))
GLM.results.TEMP[1,] = GLM.BIN(fit, "AEDB.CEA", PROTEIN, TRAIT, verbose = TRUE)
GLM.results = rbind(GLM.results, GLM.results.TEMP)
}
Analysis of IL6_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Stroke_history Peripheral.interv
2.8970 -1.4467 1.5894 -0.8629
Degrees of Freedom: 370 Total (i.e. Null); 367 Residual
Null Deviance: 318.3
Residual Deviance: 287 AIC: 295
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.7233 0.2313 0.3958 0.6502 1.3548
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.840e+01 1.654e+03 0.011 0.991125
currentDF[, PROTEIN] 5.567e-02 1.702e-01 0.327 0.743551
Age 6.865e-03 1.952e-02 0.352 0.725052
Gendermale 2.965e-02 3.434e-01 0.086 0.931207
Hypertension.compositeyes -1.535e+00 7.735e-01 -1.985 0.047130 *
DiabetesStatusDiabetes 2.731e-02 3.801e-01 0.072 0.942721
SmokerCurrentyes -2.411e-01 3.319e-01 -0.726 0.467620
Med.Statin.LLDyes -3.834e-01 3.892e-01 -0.985 0.324634
Med.all.antiplateletyes -8.233e-01 6.737e-01 -1.222 0.221727
GFR_MDRD 3.604e-03 9.165e-03 0.393 0.694154
BMI 1.329e-03 4.227e-02 0.031 0.974915
CAD_history -2.050e-02 3.402e-01 -0.060 0.951956
Stroke_history 1.614e+00 4.619e-01 3.494 0.000476 ***
Peripheral.interv -8.466e-01 3.480e-01 -2.433 0.014983 *
stenose50-70% -1.424e+01 1.654e+03 -0.009 0.993130
stenose70-90% -1.538e+01 1.654e+03 -0.009 0.992582
stenose90-99% -1.486e+01 1.654e+03 -0.009 0.992833
stenose100% (Occlusion) -1.410e+00 1.991e+03 -0.001 0.999435
IL6_pg_ug_2015_rank 9.545e-02 1.578e-01 0.605 0.545359
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 318.3 on 370 degrees of freedom
Residual deviance: 277.7 on 352 degrees of freedom
AIC: 315.7
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.055668
Standard error............: 0.170159
Odds ratio (effect size)..: 1.057
Lower 95% CI..............: 0.757
Upper 95% CI..............: 1.476
Z-value...................: 0.327155
P-value...................: 0.7435508
Hosmer and Lemeshow r^2...: 0.127539
Cox and Snell r^2.........: 0.103646
Nagelkerke's pseudo r^2...: 0.179953
Sample size of AE DB......: 2388
Sample size of model......: 371
Missing data %............: 84.46399
Analysis of MCP1_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Hypertension.composite +
Med.Statin.LLD + Stroke_history + Peripheral.interv, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) Hypertension.compositeyes Med.Statin.LLDyes Stroke_history Peripheral.interv
3.4064 -1.4720 -0.5627 1.6787 -0.9431
Degrees of Freedom: 394 Total (i.e. Null); 390 Residual
Null Deviance: 326
Residual Deviance: 287.9 AIC: 297.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8502 0.2019 0.3580 0.6163 1.3684
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.855e+01 1.631e+03 0.011 0.990925
currentDF[, PROTEIN] 2.259e-01 1.705e-01 1.325 0.185209
Age 1.073e-02 1.956e-02 0.549 0.583218
Gendermale -3.045e-02 3.460e-01 -0.088 0.929859
Hypertension.compositeyes -1.639e+00 7.745e-01 -2.116 0.034335 *
DiabetesStatusDiabetes 5.711e-03 3.765e-01 0.015 0.987899
SmokerCurrentyes -2.974e-01 3.337e-01 -0.891 0.372744
Med.Statin.LLDyes -4.032e-01 4.024e-01 -1.002 0.316352
Med.all.antiplateletyes -1.040e+00 6.833e-01 -1.522 0.128006
GFR_MDRD 2.505e-03 9.230e-03 0.271 0.786073
BMI 8.869e-03 4.176e-02 0.212 0.831806
CAD_history -1.018e-01 3.459e-01 -0.294 0.768495
Stroke_history 1.677e+00 4.631e-01 3.622 0.000293 ***
Peripheral.interv -9.896e-01 3.549e-01 -2.788 0.005304 **
stenose50-70% -1.405e+01 1.631e+03 -0.009 0.993125
stenose70-90% -1.546e+01 1.631e+03 -0.009 0.992438
stenose90-99% -1.489e+01 1.631e+03 -0.009 0.992716
stenose100% (Occlusion) -1.435e+00 1.960e+03 -0.001 0.999416
IL6_pg_ug_2015_rank 5.195e-02 1.594e-01 0.326 0.744452
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 326.03 on 394 degrees of freedom
Residual deviance: 277.58 on 376 degrees of freedom
AIC: 315.58
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.225877
Standard error............: 0.170488
Odds ratio (effect size)..: 1.253
Lower 95% CI..............: 0.897
Upper 95% CI..............: 1.751
Z-value...................: 1.324886
P-value...................: 0.1852089
Hosmer and Lemeshow r^2...: 0.148606
Cox and Snell r^2.........: 0.115435
Nagelkerke's pseudo r^2...: 0.205422
Sample size of AE DB......: 2388
Sample size of model......: 395
Missing data %............: 83.45896
Analysis of IL6_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ Age + Gender +
Med.all.antiplatelet + GFR_MDRD + Stroke_history + Peripheral.interv +
stenose, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) Age Gendermale Med.all.antiplateletyes GFR_MDRD
15.387606 0.027762 -0.453161 -0.916880 0.008104
Stroke_history Peripheral.interv stenose50-70% stenose70-90% stenose90-99%
1.166727 -0.673292 -13.748714 -14.870639 -14.701591
stenose100% (Occlusion) stenose50-99% stenose70-99%
-0.331218 -16.941956 -0.167408
Degrees of Freedom: 1008 Total (i.e. Null); 996 Residual
Null Deviance: 707.6
Residual Deviance: 652.1 AIC: 678.1
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.8197 0.2654 0.4021 0.5591 0.9812
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.553e+01 1.027e+03 0.015 0.987936
currentDF[, PROTEIN] 6.163e-02 1.053e-01 0.585 0.558336
Age 3.155e-02 1.295e-02 2.436 0.014857 *
Gendermale -4.004e-01 2.443e-01 -1.639 0.101287
Hypertension.compositeyes -2.983e-01 3.648e-01 -0.818 0.413500
DiabetesStatusDiabetes -8.036e-03 2.508e-01 -0.032 0.974442
SmokerCurrentyes 1.551e-01 2.332e-01 0.665 0.505947
Med.Statin.LLDyes -1.778e-01 2.733e-01 -0.651 0.515164
Med.all.antiplateletyes -9.050e-01 4.485e-01 -2.018 0.043614 *
GFR_MDRD 7.277e-03 5.677e-03 1.282 0.199907
BMI 9.863e-04 2.892e-02 0.034 0.972798
CAD_history -1.788e-01 2.262e-01 -0.790 0.429472
Stroke_history 1.108e+00 2.862e-01 3.870 0.000109 ***
Peripheral.interv -6.265e-01 2.400e-01 -2.611 0.009031 **
stenose50-70% -1.368e+01 1.027e+03 -0.013 0.989371
stenose70-90% -1.486e+01 1.027e+03 -0.014 0.988453
stenose90-99% -1.469e+01 1.027e+03 -0.014 0.988582
stenose100% (Occlusion) -4.303e-01 1.306e+03 0.000 0.999737
stenose50-99% -1.691e+01 1.027e+03 -0.016 0.986859
stenose70-99% -1.372e-01 1.233e+03 0.000 0.999911
IL6_pg_ug_2015_rank NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 707.63 on 1008 degrees of freedom
Residual deviance: 648.64 on 989 degrees of freedom
AIC: 688.64
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.061634
Standard error............: 0.1053
Odds ratio (effect size)..: 1.064
Lower 95% CI..............: 0.865
Upper 95% CI..............: 1.307
Z-value...................: 0.585315
P-value...................: 0.5583357
Hosmer and Lemeshow r^2...: 0.083364
Cox and Snell r^2.........: 0.056789
Nagelkerke's pseudo r^2...: 0.11266
Sample size of AE DB......: 2388
Sample size of model......: 1009
Missing data %............: 57.74707
Analysis of IL6R_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + Stroke_history + Peripheral.interv +
IL6_pg_ug_2015_rank, family = binomial(link = "logit"), data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
1.3871 -0.2676 0.0228 -0.3736 -0.7581
Stroke_history Peripheral.interv IL6_pg_ug_2015_rank
1.0967 -0.5702 0.1770
Degrees of Freedom: 976 Total (i.e. Null); 969 Residual
Null Deviance: 687.6
Residual Deviance: 642 AIC: 658
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.7434 0.2654 0.3984 0.5457 1.0557
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.564e+01 1.146e+03 0.014 0.989110
currentDF[, PROTEIN] -2.501e-01 1.134e-01 -2.206 0.027368 *
Age 3.026e-02 1.330e-02 2.275 0.022891 *
Gendermale -3.735e-01 2.495e-01 -1.497 0.134481
Hypertension.compositeyes -2.396e-01 3.668e-01 -0.653 0.513499
DiabetesStatusDiabetes -6.182e-02 2.532e-01 -0.244 0.807128
SmokerCurrentyes 1.670e-01 2.372e-01 0.704 0.481234
Med.Statin.LLDyes -2.058e-01 2.771e-01 -0.743 0.457665
Med.all.antiplateletyes -8.375e-01 4.504e-01 -1.859 0.062968 .
GFR_MDRD 5.091e-03 5.857e-03 0.869 0.384726
BMI -4.588e-03 3.030e-02 -0.151 0.879620
CAD_history -2.014e-01 2.313e-01 -0.871 0.383855
Stroke_history 1.077e+00 2.871e-01 3.752 0.000175 ***
Peripheral.interv -5.706e-01 2.460e-01 -2.320 0.020362 *
stenose50-70% -1.354e+01 1.146e+03 -0.012 0.990573
stenose70-90% -1.466e+01 1.146e+03 -0.013 0.989793
stenose90-99% -1.451e+01 1.146e+03 -0.013 0.989900
stenose100% (Occlusion) -3.044e-01 1.398e+03 0.000 0.999826
stenose50-99% -1.678e+01 1.146e+03 -0.015 0.988317
stenose70-99% -1.591e-01 1.336e+03 0.000 0.999905
IL6_pg_ug_2015_rank 1.666e-01 1.149e-01 1.450 0.146970
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 687.60 on 976 degrees of freedom
Residual deviance: 626.44 on 956 degrees of freedom
AIC: 668.44
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' IL6R_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: IL6R_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: -0.250127
Standard error............: 0.113373
Odds ratio (effect size)..: 0.779
Lower 95% CI..............: 0.624
Upper 95% CI..............: 0.972
Z-value...................: -2.206227
P-value...................: 0.02736813
Hosmer and Lemeshow r^2...: 0.088951
Cox and Snell r^2.........: 0.060684
Nagelkerke's pseudo r^2...: 0.120096
Sample size of AE DB......: 2388
Sample size of model......: 977
Missing data %............: 59.0871
Analysis of MCP1_pg_ug_2015_rank.
- processing AsymptSympt
Call: glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Med.all.antiplatelet + GFR_MDRD + Stroke_history +
Peripheral.interv + stenose, family = binomial(link = "logit"),
data = currentDF)
Coefficients:
(Intercept) currentDF[, PROTEIN] Age Gendermale Med.all.antiplateletyes
15.413005 0.201735 0.028292 -0.458713 -0.916140
GFR_MDRD Stroke_history Peripheral.interv stenose50-70% stenose70-90%
0.008298 1.144339 -0.666402 -13.789340 -14.939503
stenose90-99% stenose100% (Occlusion) stenose50-99% stenose70-99%
-14.747482 -0.356754 -17.110247 -0.362039
Degrees of Freedom: 1007 Total (i.e. Null); 994 Residual
Null Deviance: 707.4
Residual Deviance: 647.9 AIC: 675.9
Call:
glm(formula = as.factor(currentDF[, TRAIT]) ~ currentDF[, PROTEIN] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, family = binomial(link = "logit"),
data = currentDF)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.9165 0.2626 0.3994 0.5531 1.1042
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 1.556e+01 1.028e+03 0.015 0.98791
currentDF[, PROTEIN] 2.053e-01 1.190e-01 1.726 0.08434 .
Age 3.153e-02 1.298e-02 2.429 0.01516 *
Gendermale -4.083e-01 2.445e-01 -1.670 0.09493 .
Hypertension.compositeyes -2.765e-01 3.659e-01 -0.756 0.44980
DiabetesStatusDiabetes -5.170e-03 2.510e-01 -0.021 0.98357
SmokerCurrentyes 1.651e-01 2.335e-01 0.707 0.47941
Med.Statin.LLDyes -1.524e-01 2.741e-01 -0.556 0.57839
Med.all.antiplateletyes -9.139e-01 4.503e-01 -2.029 0.04241 *
GFR_MDRD 7.258e-03 5.677e-03 1.278 0.20109
BMI 1.501e-04 2.864e-02 0.005 0.99582
CAD_history -1.852e-01 2.266e-01 -0.817 0.41384
Stroke_history 1.108e+00 2.864e-01 3.868 0.00011 ***
Peripheral.interv -6.415e-01 2.408e-01 -2.664 0.00773 **
stenose50-70% -1.371e+01 1.028e+03 -0.013 0.98936
stenose70-90% -1.490e+01 1.028e+03 -0.015 0.98843
stenose90-99% -1.471e+01 1.028e+03 -0.014 0.98858
stenose100% (Occlusion) -3.816e-01 1.310e+03 0.000 0.99977
stenose50-99% -1.707e+01 1.028e+03 -0.017 0.98675
stenose70-99% -3.171e-01 1.235e+03 0.000 0.99980
IL6_pg_ug_2015_rank -3.253e-02 1.209e-01 -0.269 0.78795
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 707.39 on 1007 degrees of freedom
Residual deviance: 645.10 on 987 degrees of freedom
AIC: 687.1
Number of Fisher Scoring iterations: 15
Analyzing in dataset ' AEDB.CEA ' the association of ' MCP1_pg_ug_2015_rank ' with ' AsymptSympt ' ...
Collecting data...
We have collected the following and summarize it in an object:
Dataset...................: AEDB.CEA
Score/Exposure/biomarker..: MCP1_pg_ug_2015_rank
Trait/outcome.............: AsymptSympt
Effect size...............: 0.205327
Standard error............: 0.118957
Odds ratio (effect size)..: 1.228
Lower 95% CI..............: 0.973
Upper 95% CI..............: 1.55
Z-value...................: 1.726055
P-value...................: 0.08433759
Hosmer and Lemeshow r^2...: 0.088063
Cox and Snell r^2.........: 0.05993
Nagelkerke's pseudo r^2...: 0.118838
Sample size of AE DB......: 2388
Sample size of model......: 1008
Missing data %............: 57.78894 cat("Edit the column names...\n")Edit the column names...colnames(GLM.results) = c("Dataset", "Predictor", "Trait",
"Beta", "s.e.m.",
"OR", "low95CI", "up95CI",
"Z-value", "P-value", "r^2_l", "r^2_cs", "r^2_nagelkerke", "AE_N", "Model_N", "Perc_Miss")
cat("Correct the variable types...\n")Correct the variable types...GLM.results$Beta <- as.numeric(GLM.results$Beta)
GLM.results$s.e.m. <- as.numeric(GLM.results$s.e.m.)
GLM.results$OR <- as.numeric(GLM.results$OR)
GLM.results$low95CI <- as.numeric(GLM.results$low95CI)
GLM.results$up95CI <- as.numeric(GLM.results$up95CI)
GLM.results$`Z-value` <- as.numeric(GLM.results$`Z-value`)
GLM.results$`P-value` <- as.numeric(GLM.results$`P-value`)
GLM.results$`r^2_l` <- as.numeric(GLM.results$`r^2_l`)
GLM.results$`r^2_cs` <- as.numeric(GLM.results$`r^2_cs`)
GLM.results$`r^2_nagelkerke` <- as.numeric(GLM.results$`r^2_nagelkerke`)
GLM.results$`AE_N` <- as.numeric(GLM.results$`AE_N`)
GLM.results$`Model_N` <- as.numeric(GLM.results$`Model_N`)
GLM.results$`Perc_Miss` <- as.numeric(GLM.results$`Perc_Miss`)
# Save the data
cat("Writing results to Excel-file...\n")Writing results to Excel-file...### Univariate
write.xlsx(GLM.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Bin.Multi.Protein.RANK.Symptoms.MODEL5.xlsx"),
row.names = FALSE, col.names = TRUE, sheetName = "Bin.Multi.Symptoms")
# Removing intermediates
cat("Removing intermediate files...\n")Removing intermediate files...rm(TRAIT, currentDF, GLM.results, GLM.results.TEMP, fit, model_step)
C. Longitudinal analysis secondary clinical outcome
For the longitudinal analyses of plaque and serum MCP1, IL6, and IL6R levels and secondary cardiovascular events over a three-year follow-up period.
The primary outcome is defined as “a composite of fatal or non-fatal myocardial infarction, fatal or non-fatal stroke, ruptured aortic aneurysm, fatal cardiac failure, coronary or peripheral interventions, leg amputation due to vascular causes, and cardiovascular death”, i.e. major adverse cardiovascular events (MACE). Variable: epmajor.3years, these include: - myocardial infarction (MI) - cerebral infarction (CVA/stroke) - cardiovascular death (exact cause to be investigated) - cerebral bleeding (CVA/stroke) - fatal myocardial infarction (MI) - fatal cerebral infarction - fatal cerebral bleeding - sudden death - fatal heart failure - fatal aneurysm rupture - other cardiovascular death..
The secondary outcomes will be
- incidence of fatal or non-fatal stroke (ischemic and bleeding) - variable:
epstroke.3years, these include:- cerebral infarction (CVA/stroke)
- cerebral bleeding (CVA/stroke)
- fatal cerebral infarction
- fatal cerebral bleeding.
- incidence of acute coronary events (fatal or non-fatal myocardial infarction, coronary interventions) - variable:
epcoronary.3years, these include:- myocardial infarction (MI)
- coronary angioplasty (PCI/PTCA)
- cardiovascular death (exact cause to be investigated)
- coronary bypass (CABG)
- fatal myocardial infarction (MI)
- sudden death.
- cardiovascular death - variable:
epcvdeath.3years, these include:- cardiovascular death (exact cause to be investigated)
- fatal myocardial infarction (MI)
- fatal cerebral infarction
- fatal cerebral bleeding
- sudden death
- fatal heart failure
- fatal aneurysm rupture
- other cardiovascular death..
Sanity checks
First we do some sanity checks and inventory the time-to-event and event variables.
# Reference: https://bioconductor.org/packages/devel/bioc/vignettes/MultiAssayExperiment/inst/doc/QuickStartMultiAssay.html
# If you want to suppress warnings and messages when installing/loading packages
# suppressPackageStartupMessages({})
install.packages.auto("survival")
install.packages.auto("survminer")
install.packages.auto("Hmisc")
cat("* Creating function to summarize Cox regression and prepare container for results.")* Creating function to summarize Cox regression and prepare container for results.# Function to get summary statistics from Cox regression model
COX.STAT <- function(coxfit, DATASET, OUTCOME, protein){
cat("Summarizing Cox regression results for '", protein ,"' and its association to '",OUTCOME,"' in '",DATASET,"'.\n")
if (nrow(summary(coxfit)$coefficients) == 1) {
output = c(protein, rep(NA,8))
cat("Model not fitted; probably singular.\n")
}else {
cat("Collecting data.\n\n")
cox.sum <- summary(coxfit)
cox.effectsize = cox.sum$coefficients[1,1]
cox.SE = cox.sum$coefficients[1,3]
cox.HReffect = cox.sum$coefficients[1,2]
cox.CI_low = exp(cox.effectsize - 1.96 * cox.SE)
cox.CI_up = exp(cox.effectsize + 1.96 * cox.SE)
cox.zvalue = cox.sum$coefficients[1,4]
cox.pvalue = cox.sum$coefficients[1,5]
cox.sample_size = cox.sum$n
cox.nevents = cox.sum$nevent
output = c(DATASET, OUTCOME, protein, cox.effectsize, cox.SE, cox.HReffect, cox.CI_low, cox.CI_up, cox.zvalue, cox.pvalue, cox.sample_size, cox.nevents)
cat("We have collected the following:\n")
cat("Dataset used..............:", DATASET, "\n")
cat("Outcome analyzed..........:", OUTCOME, "\n")
cat("Protein...................:", protein, "\n")
cat("Effect size...............:", round(cox.effectsize, 6), "\n")
cat("Standard error............:", round(cox.SE, 6), "\n")
cat("Odds ratio (effect size)..:", round(cox.HReffect, 3), "\n")
cat("Lower 95% CI..............:", round(cox.CI_low, 3), "\n")
cat("Upper 95% CI..............:", round(cox.CI_up, 3), "\n")
cat("T-value...................:", round(cox.zvalue, 6), "\n")
cat("P-value...................:", signif(cox.pvalue, 8), "\n")
cat("Sample size in model......:", cox.sample_size, "\n")
cat("Number of events..........:", cox.nevents, "\n")
}
return(output)
print(output)
}
times = c("ep_major_t_3years",
"ep_stroke_t_3years", "ep_coronary_t_3years", "ep_cvdeath_t_3years")
endpoints = c("epmajor.3years",
"epstroke.3years", "epcoronary.3years", "epcvdeath.3years")
cat("* Check the cases per event type - for sanity.")* Check the cases per event type - for sanity.for (events in endpoints){
print(paste0("Printing the summary of: ",events))
print(summary(AEDB.CEA[,events]))
print(table(AEDB.CEA[,events]))
}[1] "Printing the summary of: epmajor.3years"
epmajor.3years
Min. :0.0000
1st Qu.:0.0000
Median :0.0000
Mean :0.1145
3rd Qu.:0.0000
Max. :1.0000
NA's :127
0 1
2002 259
[1] "Printing the summary of: epstroke.3years"
epstroke.3years
Min. :0.00000
1st Qu.:0.00000
Median :0.00000
Mean :0.05659
3rd Qu.:0.00000
Max. :1.00000
NA's :126
0 1
2134 128
[1] "Printing the summary of: epcoronary.3years"
epcoronary.3years
Min. :0.00000
1st Qu.:0.00000
Median :0.00000
Mean :0.07825
3rd Qu.:0.00000
Max. :1.00000
NA's :126
0 1
2085 177
[1] "Printing the summary of: epcvdeath.3years"
epcvdeath.3years
Min. :0.00000
1st Qu.:0.00000
Median :0.00000
Mean :0.03892
3rd Qu.:0.00000
Max. :1.00000
NA's :127
0 1
2173 88 cat("* Check distribution of events over time - for sanity.")* Check distribution of events over time - for sanity.for (eventtimes in times){
print(paste0("Printing the summary of: ",eventtimes))
print(summary(AEDB.CEA[,eventtimes]))
}[1] "Printing the summary of: ep_major_t_3years"
ep_major_t_3years
Min. :0.000
1st Qu.:2.770
Median :3.000
Mean :2.585
3rd Qu.:3.000
Max. :3.000
NA's :129
[1] "Printing the summary of: ep_stroke_t_3years"
ep_stroke_t_3years
Min. :0.000
1st Qu.:2.890
Median :3.000
Mean :2.636
3rd Qu.:3.000
Max. :3.000
NA's :129
[1] "Printing the summary of: ep_coronary_t_3years"
ep_coronary_t_3years
Min. :0.000
1st Qu.:2.851
Median :3.000
Mean :2.637
3rd Qu.:3.000
Max. :3.000
NA's :129
[1] "Printing the summary of: ep_cvdeath_t_3years"
ep_cvdeath_t_3years
Min. :0.00274
1st Qu.:2.91781
Median :3.00000
Mean :2.72214
3rd Qu.:3.00000
Max. :3.00000
NA's :129 for (eventtime in times){
print(paste0("Printing the distribution of: ",eventtime))
p <- gghistogram(AEDB.CEA, x = eventtime, y = "..count..",
main = eventtime, bins = 15,
xlab = "year", color = uithof_color[16], fill = uithof_color[16], ggtheme = theme_minimal())
print(p)
ggsave(file = paste0(PLOT_loc, "/",Today,".AEDB.CEA.EventDistributionPerYear.",eventtime,".pdf"), plot = last_plot())
}[1] "Printing the distribution of: ep_major_t_3years"
[1] "Printing the distribution of: ep_stroke_t_3years"
[1] "Printing the distribution of: ep_coronary_t_3years"
[1] "Printing the distribution of: ep_cvdeath_t_3years"
Cox regressions
Let’s perform the actual Cox-regressions. We will apply a couple of models:
- Model 1: adjusted for age and sex
- Model 2: adjusted for age, sex, hypertension, diabetes, smoking, LDL-C levels, lipid-lowering drugs, antiplatelet drugs, eGFR, BMI, history of CVD, level of stenosis,
- Model 3: same to model 2, with additional adjustments for circulating CRP levels
- Model 4: same to model 2 with additional adjustment for IL6 levels in the plaque
MODEL 1
# Set up a dataframe to receive results
COX.results <- data.frame(matrix(NA, ncol = 12, nrow = 0))
# Looping over each protein/endpoint/time combination
for (i in 1:length(times)){
eptime = times[i]
ep = endpoints[i]
cat(paste0("* Analyzing the effect of plaque proteins on [",ep,"].\n"))
cat(" - creating temporary SE for this work.\n")
TEMP.DF = as.data.frame(AEDB.CEA)
cat(" - making a 'Surv' object and adding this to temporary dataframe.\n")
TEMP.DF$event <- as.integer(TEMP.DF[,ep])
TEMP.DF$y <- Surv(time = TEMP.DF[,eptime], event = TEMP.DF$event)
cat(" - making strata of each of the plaque proteins and start survival analysis.\n")
for (protein in 1:length(TRAITS.PROTEIN.RANK)){
cat(paste0(" > processing [",TRAITS.PROTEIN.RANK[protein],"]; ",protein," out of ",length(TRAITS.PROTEIN.RANK)," proteins.\n"))
# splitting into two groups
TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]] <- cut2(TEMP.DF[,TRAITS.PROTEIN.RANK[protein]], g = 2)
cat(paste0(" > cross tabulation of ",TRAITS.PROTEIN.RANK[protein],"-stratum.\n"))
show(table(TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]]))
cat(paste0("\n > fitting the model for ",TRAITS.PROTEIN.RANK[protein],"-stratum.\n"))
fit <- survfit(as.formula(paste0("y ~ ", TRAITS.PROTEIN.RANK[protein])), data = TEMP.DF)
cat(paste0("\n > make a Kaplan-Meier-shizzle...\n"))
# make Kaplan-Meier curve and save it
show(ggsurvplot(fit, data = TEMP.DF,
palette = c("#DB003F", "#1290D9"),
# palete = c("F59D10", "#DB003F", "#49A01D", "#1290D9"),
linetype = c(1,2),
# linetype = c(1,2,3,4),
# conf.int = FALSE, conf.int.fill = "#595A5C", conf.int.alpha = 0.1,
pval = FALSE, pval.method = FALSE, pval.size = 4,
risk.table = TRUE, risk.table.y.text = FALSE, tables.y.text.col = TRUE, fontsize = 4,
censor = FALSE,
legend = "right",
legend.title = paste0("",TRAITS.PROTEIN.RANK[protein],""),
legend.labs = c("low", "high"),
title = paste0("Risk of ",ep,""), xlab = "Time [years]", font.main = c(16, "bold", "black")))
dev.copy2pdf(file = paste0(COX_loc,"/",
Today,".AEDB.CEA.survival.",ep,".2G.",
TRAITS.PROTEIN.RANK[protein],".pdf"), width = 12, height = 10, onefile = FALSE)
cat(paste0("\n > perform the Cox-regression fashizzle and plot it...\n"))
### Do Cox-regression and plot it
### MODEL 1 (Simple model)
cox = coxph(Surv(TEMP.DF[,eptime], event) ~ TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]]+Age+Gender, data = TEMP.DF)
coxplot = coxph(Surv(TEMP.DF[,eptime], event) ~ strata(TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]])+Age+Gender, data = TEMP.DF)
plot(survfit(coxplot), main = paste0("Cox proportional hazard of [",ep,"] per [",eptime,"]."),
# ylim = c(0.2, 1), xlim = c(0,3), col = c("#595A5C", "#DB003F", "#1290D9"),
ylim = c(0, 1), xlim = c(0,3), col = c("#DB003F", "#1290D9"),
lty = c(1,2), lwd = 2,
ylab = "Suvival probability", xlab = "FU time [years]",
mark.time = FALSE, axes = FALSE, bty = "n")
legend("topright",
c("low", "high"),
title = paste0("",TRAITS.PROTEIN.RANK[protein],""),
col = c("#DB003F", "#1290D9"),
lty = c(1,2), lwd = 2,
bty = "n")
axis(side = 1, at = seq(0, 3, by = 1))
axis(side = 2, at = seq(0, 1, by = 0.2))
dev.copy2pdf(file = paste0(COX_loc,"/",
Today,".AEDB.CEA.Cox.",ep,".2G.",
# Today,".AEDB.CEA.Cox.",ep,".4G.",
TRAITS.PROTEIN.RANK[protein],".MODEL1.pdf"), height = 12, width = 10, onefile = TRUE)
show(summary(cox))
cat(paste0("\n > writing the Cox-regression fashizzle to Excel...\n"))
COX.results.TEMP <- data.frame(matrix(NA, ncol = 12, nrow = 0))
COX.results.TEMP[1,] = COX.STAT(cox, "AEDB.CEA", ep, TRAITS.PROTEIN.RANK[protein])
COX.results = rbind(COX.results, COX.results.TEMP)
}
}* Analyzing the effect of plaque proteins on [epmajor.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 522, number of events= 70
(1866 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 0.15269 1.16496 0.23974 0.637 0.52420
Age 0.03853 1.03928 0.01471 2.620 0.00879 **
Gendermale 0.78339 2.18888 0.32848 2.385 0.01708 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.165 0.8584 0.7282 1.864
Age 1.039 0.9622 1.0098 1.070
Gendermale 2.189 0.4569 1.1498 4.167
Concordance= 0.632 (se = 0.036 )
Likelihood ratio test= 14.17 on 3 df, p=0.003
Wald test = 12.77 on 3 df, p=0.005
Score (logrank) test = 13.09 on 3 df, p=0.004
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6_rank
Effect size...............: 0.152688
Standard error............: 0.239742
Odds ratio (effect size)..: 1.165
Lower 95% CI..............: 0.728
Upper 95% CI..............: 1.864
T-value...................: 0.636883
P-value...................: 0.524201
Sample size in model......: 522
Number of events..........: 70
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 558, number of events= 72
(1830 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -0.20048 0.81834 0.23746 -0.844 0.3985
Age 0.03070 1.03117 0.01446 2.123 0.0338 *
Gendermale 0.81021 2.24838 0.32813 2.469 0.0135 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 0.8183 1.2220 0.5138 1.303
Age 1.0312 0.9698 1.0024 1.061
Gendermale 2.2484 0.4448 1.1819 4.277
Concordance= 0.62 (se = 0.035 )
Likelihood ratio test= 12.85 on 3 df, p=0.005
Wald test = 11.56 on 3 df, p=0.009
Score (logrank) test = 11.89 on 3 df, p=0.008
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: MCP1_rank
Effect size...............: -0.200476
Standard error............: 0.237458
Odds ratio (effect size)..: 0.818
Lower 95% CI..............: 0.514
Upper 95% CI..............: 1.303
T-value...................: -0.844258
P-value...................: 0.3985254
Sample size in model......: 558
Number of events..........: 72
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1141, number of events= 133
(1247 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] -0.03418 0.96640 0.17344 -0.197 0.843795
Age 0.03487 1.03549 0.01013 3.441 0.000579 ***
Gendermale 0.44653 1.56287 0.21004 2.126 0.033515 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 0.9664 1.0348 0.6879 1.358
Age 1.0355 0.9657 1.0151 1.056
Gendermale 1.5629 0.6398 1.0355 2.359
Concordance= 0.597 (se = 0.026 )
Likelihood ratio test= 17.19 on 3 df, p=6e-04
Wald test = 16.13 on 3 df, p=0.001
Score (logrank) test = 16.22 on 3 df, p=0.001
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: -0.034175
Standard error............: 0.173443
Odds ratio (effect size)..: 0.966
Lower 95% CI..............: 0.688
Upper 95% CI..............: 1.358
T-value...................: -0.197041
P-value...................: 0.8437952
Sample size in model......: 1141
Number of events..........: 133
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1143, number of events= 137
(1245 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 0.448497 1.565956 0.174488 2.570 0.010159 *
Age 0.033432 1.033997 0.009989 3.347 0.000817 ***
Gendermale 0.335403 1.398504 0.201961 1.661 0.096766 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.566 0.6386 1.1124 2.204
Age 1.034 0.9671 1.0140 1.054
Gendermale 1.399 0.7150 0.9414 2.078
Concordance= 0.607 (se = 0.024 )
Likelihood ratio test= 20.48 on 3 df, p=1e-04
Wald test = 19.65 on 3 df, p=2e-04
Score (logrank) test = 19.73 on 3 df, p=2e-04
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.448497
Standard error............: 0.174488
Odds ratio (effect size)..: 1.566
Lower 95% CI..............: 1.112
Upper 95% CI..............: 2.204
T-value...................: 2.570364
P-value...................: 0.01015916
Sample size in model......: 1143
Number of events..........: 137
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1187, number of events= 139
(1201 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 0.037312 1.038016 0.169989 0.219 0.826266
Age 0.033060 1.033613 0.009864 3.351 0.000804 ***
Gendermale 0.343970 1.410536 0.199674 1.723 0.084950 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.038 0.9634 0.7439 1.448
Age 1.034 0.9675 1.0138 1.054
Gendermale 1.411 0.7090 0.9537 2.086
Concordance= 0.587 (se = 0.025 )
Likelihood ratio test= 14.94 on 3 df, p=0.002
Wald test = 14.19 on 3 df, p=0.003
Score (logrank) test = 14.26 on 3 df, p=0.003
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.037312
Standard error............: 0.169989
Odds ratio (effect size)..: 1.038
Lower 95% CI..............: 0.744
Upper 95% CI..............: 1.448
T-value...................: 0.219494
P-value...................: 0.8262655
Sample size in model......: 1187
Number of events..........: 139
* Analyzing the effect of plaque proteins on [epstroke.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 522, number of events= 37
(1866 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 0.07624 1.07922 0.32935 0.231 0.817
Age 0.02809 1.02849 0.01976 1.422 0.155
Gendermale 0.20807 1.23130 0.38325 0.543 0.587
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.079 0.9266 0.5659 2.058
Age 1.028 0.9723 0.9894 1.069
Gendermale 1.231 0.8122 0.5809 2.610
Concordance= 0.569 (se = 0.051 )
Likelihood ratio test= 2.43 on 3 df, p=0.5
Wald test = 2.35 on 3 df, p=0.5
Score (logrank) test = 2.35 on 3 df, p=0.5
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6_rank
Effect size...............: 0.076241
Standard error............: 0.329345
Odds ratio (effect size)..: 1.079
Lower 95% CI..............: 0.566
Upper 95% CI..............: 2.058
T-value...................: 0.231493
P-value...................: 0.8169321
Sample size in model......: 522
Number of events..........: 37
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 558, number of events= 38
(1830 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -0.33054 0.71854 0.32977 -1.002 0.316
Age 0.01603 1.01615 0.01930 0.830 0.406
Gendermale 0.26127 1.29858 0.38266 0.683 0.495
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 0.7185 1.3917 0.3765 1.371
Age 1.0162 0.9841 0.9784 1.055
Gendermale 1.2986 0.7701 0.6134 2.749
Concordance= 0.558 (se = 0.044 )
Likelihood ratio test= 2.22 on 3 df, p=0.5
Wald test = 2.2 on 3 df, p=0.5
Score (logrank) test = 2.21 on 3 df, p=0.5
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: MCP1_rank
Effect size...............: -0.330541
Standard error............: 0.329767
Odds ratio (effect size)..: 0.719
Lower 95% CI..............: 0.376
Upper 95% CI..............: 1.371
T-value...................: -1.002346
P-value...................: 0.3161763
Sample size in model......: 558
Number of events..........: 38
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1141, number of events= 69
(1247 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] -0.17128 0.84258 0.24143 -0.709 0.47805
Age 0.03832 1.03907 0.01407 2.724 0.00645 **
Gendermale 0.12792 1.13646 0.26956 0.475 0.63511
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 0.8426 1.1868 0.5249 1.352
Age 1.0391 0.9624 1.0108 1.068
Gendermale 1.1365 0.8799 0.6700 1.928
Concordance= 0.601 (se = 0.035 )
Likelihood ratio test= 8.42 on 3 df, p=0.04
Wald test = 8.05 on 3 df, p=0.05
Score (logrank) test = 8.1 on 3 df, p=0.04
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: -0.171284
Standard error............: 0.241434
Odds ratio (effect size)..: 0.843
Lower 95% CI..............: 0.525
Upper 95% CI..............: 1.352
T-value...................: -0.709446
P-value...................: 0.4780475
Sample size in model......: 1141
Number of events..........: 69
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1143, number of events= 72
(1245 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 0.37431 1.45399 0.23932 1.564 0.1178
Age 0.03294 1.03349 0.01373 2.400 0.0164 *
Gendermale 0.09556 1.10027 0.26316 0.363 0.7165
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.454 0.6878 0.9096 2.324
Age 1.033 0.9676 1.0061 1.062
Gendermale 1.100 0.9089 0.6569 1.843
Concordance= 0.593 (se = 0.034 )
Likelihood ratio test= 8.25 on 3 df, p=0.04
Wald test = 7.97 on 3 df, p=0.05
Score (logrank) test = 8 on 3 df, p=0.05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.374314
Standard error............: 0.239317
Odds ratio (effect size)..: 1.454
Lower 95% CI..............: 0.91
Upper 95% CI..............: 2.324
T-value...................: 1.564093
P-value...................: 0.1177957
Sample size in model......: 1143
Number of events..........: 72
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1187, number of events= 73
(1201 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 0.13635 1.14608 0.23507 0.580 0.5619
Age 0.03393 1.03451 0.01354 2.505 0.0122 *
Gendermale 0.07048 1.07302 0.25901 0.272 0.7855
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.146 0.8725 0.7230 1.817
Age 1.035 0.9666 1.0074 1.062
Gendermale 1.073 0.9319 0.6459 1.783
Concordance= 0.595 (se = 0.033 )
Likelihood ratio test= 6.98 on 3 df, p=0.07
Wald test = 6.75 on 3 df, p=0.08
Score (logrank) test = 6.78 on 3 df, p=0.08
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.13635
Standard error............: 0.235072
Odds ratio (effect size)..: 1.146
Lower 95% CI..............: 0.723
Upper 95% CI..............: 1.817
T-value...................: 0.580033
P-value...................: 0.5618924
Sample size in model......: 1187
Number of events..........: 73
* Analyzing the effect of plaque proteins on [epcoronary.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 522, number of events= 47
(1866 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 0.17371 1.18970 0.29265 0.594 0.5528
Age 0.03896 1.03973 0.01792 2.175 0.0297 *
Gendermale 1.01973 2.77244 0.43719 2.332 0.0197 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.190 0.8405 0.6704 2.111
Age 1.040 0.9618 1.0039 1.077
Gendermale 2.772 0.3607 1.1769 6.531
Concordance= 0.646 (se = 0.038 )
Likelihood ratio test= 12.15 on 3 df, p=0.007
Wald test = 10.44 on 3 df, p=0.02
Score (logrank) test = 10.96 on 3 df, p=0.01
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6_rank
Effect size...............: 0.173705
Standard error............: 0.292653
Odds ratio (effect size)..: 1.19
Lower 95% CI..............: 0.67
Upper 95% CI..............: 2.111
T-value...................: 0.593554
P-value...................: 0.5528105
Sample size in model......: 522
Number of events..........: 47
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 558, number of events= 47
(1830 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 0.30417 1.35550 0.29625 1.027 0.3045
Age 0.03606 1.03672 0.01811 1.991 0.0464 *
Gendermale 0.79302 2.21007 0.41021 1.933 0.0532 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 1.356 0.7377 0.7585 2.423
Age 1.037 0.9646 1.0006 1.074
Gendermale 2.210 0.4525 0.9891 4.938
Concordance= 0.628 (se = 0.039 )
Likelihood ratio test= 9.85 on 3 df, p=0.02
Wald test = 8.75 on 3 df, p=0.03
Score (logrank) test = 8.99 on 3 df, p=0.03
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: MCP1_rank
Effect size...............: 0.304172
Standard error............: 0.296253
Odds ratio (effect size)..: 1.356
Lower 95% CI..............: 0.758
Upper 95% CI..............: 2.423
T-value...................: 1.026729
P-value...................: 0.3045479
Sample size in model......: 558
Number of events..........: 47
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1141, number of events= 89
(1247 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] -0.079260 0.923800 0.212158 -0.374 0.70871
Age 0.005236 1.005250 0.011952 0.438 0.66131
Gendermale 0.776579 2.174022 0.283231 2.742 0.00611 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 0.9238 1.0825 0.6095 1.400
Age 1.0053 0.9948 0.9820 1.029
Gendermale 2.1740 0.4600 1.2479 3.787
Concordance= 0.575 (se = 0.028 )
Likelihood ratio test= 9.22 on 3 df, p=0.03
Wald test = 7.88 on 3 df, p=0.05
Score (logrank) test = 8.27 on 3 df, p=0.04
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: -0.07926
Standard error............: 0.212158
Odds ratio (effect size)..: 0.924
Lower 95% CI..............: 0.61
Upper 95% CI..............: 1.4
T-value...................: -0.373589
P-value...................: 0.7087101
Sample size in model......: 1141
Number of events..........: 89
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1143, number of events= 90
(1245 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 0.382893 1.466522 0.214416 1.786 0.0741 .
Age 0.007227 1.007253 0.011916 0.607 0.5442
Gendermale 0.619255 1.857544 0.269355 2.299 0.0215 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.467 0.6819 0.9633 2.233
Age 1.007 0.9928 0.9840 1.031
Gendermale 1.858 0.5383 1.0956 3.149
Concordance= 0.59 (se = 0.029 )
Likelihood ratio test= 9.52 on 3 df, p=0.02
Wald test = 8.77 on 3 df, p=0.03
Score (logrank) test = 8.98 on 3 df, p=0.03
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.382893
Standard error............: 0.214416
Odds ratio (effect size)..: 1.467
Lower 95% CI..............: 0.963
Upper 95% CI..............: 2.233
T-value...................: 1.785754
P-value...................: 0.0741391
Sample size in model......: 1143
Number of events..........: 90
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1187, number of events= 91
(1201 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] -0.172568 0.841501 0.210487 -0.820 0.4123
Age 0.006873 1.006897 0.011840 0.581 0.5616
Gendermale 0.671236 1.956655 0.269190 2.494 0.0126 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 0.8415 1.1884 0.5570 1.271
Age 1.0069 0.9932 0.9838 1.031
Gendermale 1.9567 0.5111 1.1545 3.316
Concordance= 0.577 (se = 0.03 )
Likelihood ratio test= 7.99 on 3 df, p=0.05
Wald test = 7.11 on 3 df, p=0.07
Score (logrank) test = 7.34 on 3 df, p=0.06
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: -0.172568
Standard error............: 0.210487
Odds ratio (effect size)..: 0.842
Lower 95% CI..............: 0.557
Upper 95% CI..............: 1.271
T-value...................: -0.819853
P-value...................: 0.4122998
Sample size in model......: 1187
Number of events..........: 91
* Analyzing the effect of plaque proteins on [epcvdeath.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 522, number of events= 27
(1866 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 0.12032 1.12786 0.38592 0.312 0.7552
Age 0.05430 1.05581 0.02434 2.231 0.0257 *
Gendermale 0.82329 2.27798 0.54178 1.520 0.1286
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.128 0.8866 0.5294 2.403
Age 1.056 0.9471 1.0066 1.107
Gendermale 2.278 0.4390 0.7877 6.587
Concordance= 0.665 (se = 0.059 )
Likelihood ratio test= 8.18 on 3 df, p=0.04
Wald test = 7.35 on 3 df, p=0.06
Score (logrank) test = 7.53 on 3 df, p=0.06
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6_rank
Effect size...............: 0.120318
Standard error............: 0.385919
Odds ratio (effect size)..: 1.128
Lower 95% CI..............: 0.529
Upper 95% CI..............: 2.403
T-value...................: 0.311771
P-value...................: 0.7552146
Sample size in model......: 522
Number of events..........: 27
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 558, number of events= 27
(1830 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -0.05233 0.94902 0.38729 -0.135 0.8925
Age 0.05687 1.05852 0.02468 2.304 0.0212 *
Gendermale 0.79435 2.21300 0.54234 1.465 0.1430
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 0.949 1.0537 0.4442 2.027
Age 1.059 0.9447 1.0085 1.111
Gendermale 2.213 0.4519 0.7644 6.407
Concordance= 0.667 (se = 0.059 )
Likelihood ratio test= 8.48 on 3 df, p=0.04
Wald test = 7.69 on 3 df, p=0.05
Score (logrank) test = 7.85 on 3 df, p=0.05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: MCP1_rank
Effect size...............: -0.052326
Standard error............: 0.387295
Odds ratio (effect size)..: 0.949
Lower 95% CI..............: 0.444
Upper 95% CI..............: 2.027
T-value...................: -0.135107
P-value...................: 0.8925272
Sample size in model......: 558
Number of events..........: 27
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1141, number of events= 45
(1247 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 0.10096 1.10623 0.29884 0.338 0.7355
Age 0.08294 1.08648 0.01919 4.322 1.55e-05 ***
Gendermale 0.89258 2.44141 0.41182 2.167 0.0302 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.106 0.9040 0.6158 1.987
Age 1.086 0.9204 1.0464 1.128
Gendermale 2.441 0.4096 1.0892 5.472
Concordance= 0.706 (se = 0.037 )
Likelihood ratio test= 26.21 on 3 df, p=9e-06
Wald test = 22.65 on 3 df, p=5e-05
Score (logrank) test = 23.27 on 3 df, p=4e-05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.100959
Standard error............: 0.298838
Odds ratio (effect size)..: 1.106
Lower 95% CI..............: 0.616
Upper 95% CI..............: 1.987
T-value...................: 0.337838
P-value...................: 0.7354853
Sample size in model......: 1141
Number of events..........: 45
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1143, number of events= 45
(1245 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 0.77149 2.16299 0.31659 2.437 0.0148 *
Age 0.08479 1.08849 0.01926 4.403 1.07e-05 ***
Gendermale 0.87112 2.38958 0.41164 2.116 0.0343 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 2.163 0.4623 1.163 4.023
Age 1.088 0.9187 1.048 1.130
Gendermale 2.390 0.4185 1.066 5.354
Concordance= 0.727 (se = 0.037 )
Likelihood ratio test= 31.83 on 3 df, p=6e-07
Wald test = 28.21 on 3 df, p=3e-06
Score (logrank) test = 28.76 on 3 df, p=3e-06
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.77149
Standard error............: 0.316594
Odds ratio (effect size)..: 2.163
Lower 95% CI..............: 1.163
Upper 95% CI..............: 4.023
T-value...................: 2.436846
P-value...................: 0.01481598
Sample size in model......: 1143
Number of events..........: 45
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender, data = TEMP.DF)
n= 1187, number of events= 45
(1201 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] -0.11294 0.89320 0.29879 -0.378 0.7054
Age 0.08412 1.08776 0.01929 4.360 1.3e-05 ***
Gendermale 0.90814 2.47970 0.41206 2.204 0.0275 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 0.8932 1.1196 0.4973 1.604
Age 1.0878 0.9193 1.0474 1.130
Gendermale 2.4797 0.4033 1.1057 5.561
Concordance= 0.709 (se = 0.036 )
Likelihood ratio test= 26.75 on 3 df, p=7e-06
Wald test = 23.06 on 3 df, p=4e-05
Score (logrank) test = 23.7 on 3 df, p=3e-05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: -0.112944
Standard error............: 0.298793
Odds ratio (effect size)..: 0.893
Lower 95% CI..............: 0.497
Upper 95% CI..............: 1.604
T-value...................: -0.378
P-value...................: 0.7054304
Sample size in model......: 1187
Number of events..........: 45 
cat("- Edit the column names...\n")- Edit the column names...colnames(COX.results) = c("Dataset", "Outcome", "CpG",
"Beta", "s.e.m.",
"HR", "low95CI", "up95CI",
"Z-value", "P-value", "SampleSize", "N_events")
cat("- Correct the variable types...\n")- Correct the variable types...COX.results$Beta <- as.numeric(COX.results$Beta)
COX.results$s.e.m. <- as.numeric(COX.results$s.e.m.)
COX.results$HR <- as.numeric(COX.results$HR)
COX.results$low95CI <- as.numeric(COX.results$low95CI)
COX.results$up95CI <- as.numeric(COX.results$up95CI)
COX.results$`Z-value` <- as.numeric(COX.results$`Z-value`)
COX.results$`P-value` <- as.numeric(COX.results$`P-value`)
COX.results$SampleSize <- as.numeric(COX.results$SampleSize)
COX.results$N_events <- as.numeric(COX.results$N_events)
AEDB.CEA.COX.results <- COX.results
# Save the data
cat("- Writing results to Excel-file...\n")- Writing results to Excel-file...head.style <- createStyle(textDecoration = "BOLD")
write.xlsx(AEDB.CEA.COX.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Cox.2G.MODEL1.xlsx"),
creator = "Sander W. van der Laan",
sheetName = "Results", headerStyle = head.style,
row.names = FALSE, col.names = TRUE, overwrite = TRUE)
# Removing intermediates
cat("- Removing intermediate files...\n")- Removing intermediate files...#rm(TEMP.DF, protein, fit, cox, coxplot, COX.results, COX.results.TEMP, head.style, AEDB.CEA.COX.results)
#rm(head.style)
MODEL 2
# Set up a dataframe to receive results
COX.results <- data.frame(matrix(NA, ncol = 12, nrow = 0))
# Looping over each protein/endpoint/time combination
for (i in 1:length(times)){
eptime = times[i]
ep = endpoints[i]
cat(paste0("* Analyzing the effect of plaque proteins on [",ep,"].\n"))
cat(" - creating temporary SE for this work.\n")
TEMP.DF = as.data.frame(AEDB.CEA)
cat(" - making a 'Surv' object and adding this to temporary dataframe.\n")
TEMP.DF$event <- as.integer(TEMP.DF[,ep])
#as.integer(TEMP.DF[,ep] == "Excluded")
TEMP.DF$y <- Surv(time = TEMP.DF[,eptime], event = TEMP.DF$event)
cat(" - making strata of each of the plaque proteins and start survival analysis.\n")
for (protein in 1:length(TRAITS.PROTEIN.RANK)){
cat(paste0(" > processing [",TRAITS.PROTEIN.RANK[protein],"]; ",protein," out of ",length(TRAITS.PROTEIN.RANK)," proteins.\n"))
# splitting into two groups
TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]] <- cut2(TEMP.DF[,TRAITS.PROTEIN.RANK[protein]], g = 2)
cat(paste0(" > cross tabulation of ",TRAITS.PROTEIN.RANK[protein],"-stratum.\n"))
show(table(TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]]))
cat(paste0("\n > fitting the model for ",TRAITS.PROTEIN.RANK[protein],"-stratum.\n"))
fit <- survfit(as.formula(paste0("y ~ ", TRAITS.PROTEIN.RANK[protein])), data = TEMP.DF)
cat(paste0("\n > make a Kaplan-Meier-shizzle...\n"))
# make Kaplan-Meier curve and save it
show(ggsurvplot(fit, data = TEMP.DF,
palette = c("#DB003F", "#1290D9"),
# palete = c("F59D10", "#DB003F", "#49A01D", "#1290D9"),
linetype = c(1,2),
# linetype = c(1,2,3,4),
# conf.int = FALSE, conf.int.fill = "#595A5C", conf.int.alpha = 0.1,
pval = FALSE, pval.method = FALSE, pval.size = 4,
risk.table = TRUE, risk.table.y.text = FALSE, tables.y.text.col = TRUE, fontsize = 4,
censor = FALSE,
legend = "right",
legend.title = paste0("",TRAITS.PROTEIN.RANK[protein],""),
legend.labs = c("low", "high"),
title = paste0("Risk of ",ep,""), xlab = "Time [years]", font.main = c(16, "bold", "black")))
dev.copy2pdf(file = paste0(COX_loc,"/",
Today,".AEDB.CEA.survival.",ep,".2G.",
TRAITS.PROTEIN.RANK[protein],".pdf"), width = 12, height = 10, onefile = FALSE)
cat(paste0("\n > perform the Cox-regression fashizzle and plot it...\n"))
### Do Cox-regression and plot it
### MODEL 2 adjusted for age, sex, hypertension, diabetes, smoking, LDL-C levels, lipid-lowering drugs, antiplatelet drugs, eGFR, BMI, history of CVD, level of stenosis
cox = coxph(Surv(TEMP.DF[,eptime], event) ~ TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]]+Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI + CAD_history + Stroke_history + Peripheral.interv + stenose, data = TEMP.DF)
coxplot = coxph(Surv(TEMP.DF[,eptime], event) ~ strata(TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]])+Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI + CAD_history + Stroke_history + Peripheral.interv + stenose, data = TEMP.DF)
plot(survfit(coxplot), main = paste0("Cox proportional hazard of [",ep,"] per [",eptime,"]."),
# ylim = c(0.2, 1), xlim = c(0,3), col = c("#595A5C", "#DB003F", "#1290D9"),
ylim = c(0, 1), xlim = c(0,3), col = c("#DB003F", "#1290D9"),
lty = c(1,2), lwd = 2,
ylab = "Suvival probability", xlab = "FU time [years]",
mark.time = FALSE, axes = FALSE, bty = "n")
legend("topright",
c("low", "high"),
title = paste0("",TRAITS.PROTEIN.RANK[protein],""),
col = c("#DB003F", "#1290D9"),
lty = c(1,2), lwd = 2,
bty = "n")
axis(side = 1, at = seq(0, 3, by = 1))
axis(side = 2, at = seq(0, 1, by = 0.2))
dev.copy2pdf(file = paste0(COX_loc,"/",
Today,".AEDB.CEA.Cox.",ep,".2G.",
# Today,".AEDB.CEA.Cox.",ep,".4G.",
TRAITS.PROTEIN.RANK[protein],".MODEL2.pdf"), height = 12, width = 10, onefile = TRUE)
show(summary(cox))
cat(paste0("\n > writing the Cox-regression fashizzle to Excel...\n"))
COX.results.TEMP <- data.frame(matrix(NA, ncol = 12, nrow = 0))
COX.results.TEMP[1,] = COX.STAT(cox, "AEDB.CEA", ep, TRAITS.PROTEIN.RANK[protein])
COX.results = rbind(COX.results, COX.results.TEMP)
}
}* Analyzing the effect of plaque proteins on [epmajor.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 477, number of events= 64
(1911 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.309e-01 1.140e+00 2.580e-01 0.508 0.61176
Age 4.862e-02 1.050e+00 1.825e-02 2.664 0.00773 **
Gendermale 6.880e-01 1.990e+00 3.396e-01 2.026 0.04279 *
Hypertension.compositeno -7.622e-01 4.666e-01 5.345e-01 -1.426 0.15387
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 7.270e-01 2.069e+00 2.896e-01 2.510 0.01207 *
SmokerCurrentno -6.648e-01 5.144e-01 2.676e-01 -2.484 0.01298 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.278e-01 1.256e+00 2.880e-01 0.791 0.42898
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.425e-01 1.153e+00 4.189e-01 0.340 0.73377
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -4.913e-03 9.951e-01 6.711e-03 -0.732 0.46411
BMI 5.332e-04 1.001e+00 3.520e-02 0.015 0.98792
CAD_history 5.932e-01 1.810e+00 2.727e-01 2.176 0.02959 *
Stroke_history 1.930e-01 1.213e+00 2.673e-01 0.722 0.47032
Peripheral.interv 6.059e-02 1.062e+00 3.164e-01 0.191 0.84814
stenose0-49% -1.611e+01 1.011e-07 3.372e+03 -0.005 0.99619
stenose50-70% -1.333e+00 2.637e-01 1.461e+00 -0.912 0.36164
stenose70-90% -4.726e-01 6.234e-01 1.061e+00 -0.445 0.65609
stenose90-99% -7.412e-01 4.765e-01 1.069e+00 -0.694 0.48795
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.140e+00 8.773e-01 0.68752 1.8899
Age 1.050e+00 9.525e-01 1.01293 1.0881
Gendermale 1.990e+00 5.026e-01 1.02259 3.8717
Hypertension.compositeno 4.666e-01 2.143e+00 0.16368 1.3303
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 2.069e+00 4.834e-01 1.17271 3.6496
SmokerCurrentno 5.144e-01 1.944e+00 0.30442 0.8691
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.256e+00 7.963e-01 0.71413 2.2084
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.153e+00 8.672e-01 0.50733 2.6210
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.951e-01 1.005e+00 0.98210 1.0083
BMI 1.001e+00 9.995e-01 0.93383 1.0720
CAD_history 1.810e+00 5.525e-01 1.06055 3.0885
Stroke_history 1.213e+00 8.245e-01 0.71822 2.0483
Peripheral.interv 1.062e+00 9.412e-01 0.57145 1.9754
stenose0-49% 1.011e-07 9.891e+06 0.00000 Inf
stenose50-70% 2.637e-01 3.792e+00 0.01505 4.6215
stenose70-90% 6.234e-01 1.604e+00 0.07787 4.9903
stenose90-99% 4.765e-01 2.098e+00 0.05868 3.8703
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.714 (se = 0.029 )
Likelihood ratio test= 37 on 17 df, p=0.003
Wald test = 33.02 on 17 df, p=0.01
Score (logrank) test = 35.81 on 17 df, p=0.005
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6_rank
Effect size...............: 0.130932
Standard error............: 0.257961
Odds ratio (effect size)..: 1.14
Lower 95% CI..............: 0.688
Upper 95% CI..............: 1.89
T-value...................: 0.507564
P-value...................: 0.6117595
Sample size in model......: 477
Number of events..........: 64
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 509, number of events= 66
(1879 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -3.049e-01 7.372e-01 2.532e-01 -1.204 0.2287
Age 3.571e-02 1.036e+00 1.769e-02 2.019 0.0435 *
Gendermale 7.112e-01 2.036e+00 3.367e-01 2.112 0.0347 *
Hypertension.compositeno -8.086e-01 4.455e-01 5.335e-01 -1.516 0.1296
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 6.394e-01 1.895e+00 2.842e-01 2.250 0.0244 *
SmokerCurrentno -5.756e-01 5.624e-01 2.650e-01 -2.172 0.0299 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.742e-01 1.315e+00 2.847e-01 0.963 0.3356
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.447e-03 1.003e+00 4.203e-01 0.008 0.9935
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -9.214e-03 9.908e-01 6.629e-03 -1.390 0.1646
BMI 1.203e-02 1.012e+00 3.398e-02 0.354 0.7234
CAD_history 4.032e-01 1.497e+00 2.681e-01 1.504 0.1326
Stroke_history 2.966e-01 1.345e+00 2.596e-01 1.142 0.2533
Peripheral.interv 1.347e-01 1.144e+00 3.143e-01 0.429 0.6682
stenose0-49% -1.653e+01 6.613e-08 3.378e+03 -0.005 0.9961
stenose50-70% -1.817e+00 1.625e-01 1.455e+00 -1.249 0.2118
stenose70-90% -8.410e-01 4.313e-01 1.052e+00 -0.799 0.4240
stenose90-99% -1.061e+00 3.461e-01 1.061e+00 -1.000 0.3172
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 7.372e-01 1.356e+00 0.448785 1.2111
Age 1.036e+00 9.649e-01 1.001040 1.0729
Gendermale 2.036e+00 4.911e-01 1.052586 3.9395
Hypertension.compositeno 4.455e-01 2.245e+00 0.156588 1.2674
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.895e+00 5.276e-01 1.085923 3.3081
SmokerCurrentno 5.624e-01 1.778e+00 0.334542 0.9454
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.315e+00 7.602e-01 0.752853 2.2986
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.003e+00 9.966e-01 0.440301 2.2869
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.908e-01 1.009e+00 0.978038 1.0038
BMI 1.012e+00 9.880e-01 0.946891 1.0818
CAD_history 1.497e+00 6.682e-01 0.884884 2.5311
Stroke_history 1.345e+00 7.434e-01 0.808757 2.2376
Peripheral.interv 1.144e+00 8.740e-01 0.617943 2.1187
stenose0-49% 6.613e-08 1.512e+07 0.000000 Inf
stenose50-70% 1.625e-01 6.155e+00 0.009373 2.8157
stenose70-90% 4.313e-01 2.319e+00 0.054876 3.3897
stenose90-99% 3.461e-01 2.889e+00 0.043283 2.7680
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.7 (se = 0.028 )
Likelihood ratio test= 35.01 on 17 df, p=0.006
Wald test = 31.02 on 17 df, p=0.02
Score (logrank) test = 33.48 on 17 df, p=0.01
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: MCP1_rank
Effect size...............: -0.304862
Standard error............: 0.253245
Odds ratio (effect size)..: 0.737
Lower 95% CI..............: 0.449
Upper 95% CI..............: 1.211
T-value...................: -1.203825
P-value...................: 0.2286573
Sample size in model......: 509
Number of events..........: 66
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1002, number of events= 114
(1386 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 9.097e-02 1.095e+00 1.899e-01 0.479 0.631870
Age 3.856e-02 1.039e+00 1.296e-02 2.975 0.002927 **
Gendermale 5.730e-01 1.774e+00 2.310e-01 2.481 0.013107 *
Hypertension.compositeno -5.174e-01 5.961e-01 3.773e-01 -1.371 0.170285
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -4.403e-02 9.569e-01 2.233e-01 -0.197 0.843644
SmokerCurrentno -6.023e-01 5.475e-01 2.046e-01 -2.944 0.003240 **
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.369e-01 1.401e+00 2.175e-01 1.549 0.121332
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 4.026e-01 1.496e+00 2.586e-01 1.557 0.119528
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.899e-02 9.812e-01 4.977e-03 -3.815 0.000136 ***
BMI 5.747e-02 1.059e+00 2.597e-02 2.213 0.026905 *
CAD_history 1.411e-01 1.152e+00 2.032e-01 0.695 0.487257
Stroke_history 4.304e-02 1.044e+00 2.028e-01 0.212 0.831900
Peripheral.interv 6.318e-01 1.881e+00 2.183e-01 2.894 0.003802 **
stenose0-49% -1.561e+01 1.659e-07 2.745e+03 -0.006 0.995462
stenose50-70% -8.519e-01 4.266e-01 8.692e-01 -0.980 0.326998
stenose70-90% -2.953e-01 7.443e-01 7.264e-01 -0.406 0.684395
stenose90-99% -2.722e-01 7.617e-01 7.236e-01 -0.376 0.706782
stenose100% (Occlusion) 4.662e-02 1.048e+00 1.239e+00 0.038 0.969996
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.539e+01 2.069e-07 4.208e+03 -0.004 0.997082
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.095e+00 9.130e-01 0.75490 1.5890
Age 1.039e+00 9.622e-01 1.01325 1.0660
Gendermale 1.774e+00 5.638e-01 1.12785 2.7890
Hypertension.compositeno 5.961e-01 1.678e+00 0.28453 1.2487
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.569e-01 1.045e+00 0.61778 1.4822
SmokerCurrentno 5.475e-01 1.826e+00 0.36664 0.8176
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.401e+00 7.140e-01 0.91454 2.1451
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.496e+00 6.686e-01 0.90098 2.4831
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.812e-01 1.019e+00 0.97167 0.9908
BMI 1.059e+00 9.442e-01 1.00659 1.1145
CAD_history 1.152e+00 8.684e-01 0.77330 1.7150
Stroke_history 1.044e+00 9.579e-01 0.70161 1.5534
Peripheral.interv 1.881e+00 5.316e-01 1.22621 2.8853
stenose0-49% 1.659e-07 6.027e+06 0.00000 Inf
stenose50-70% 4.266e-01 2.344e+00 0.07765 2.3434
stenose70-90% 7.443e-01 1.343e+00 0.17924 3.0909
stenose90-99% 7.617e-01 1.313e+00 0.18446 3.1454
stenose100% (Occlusion) 1.048e+00 9.545e-01 0.09231 11.8918
stenoseNA NA NA NA NA
stenose50-99% 2.069e-07 4.833e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.705 (se = 0.023 )
Likelihood ratio test= 68.36 on 19 df, p=2e-07
Wald test = 38.72 on 19 df, p=0.005
Score (logrank) test = 66.86 on 19 df, p=3e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.090966
Standard error............: 0.189871
Odds ratio (effect size)..: 1.095
Lower 95% CI..............: 0.755
Upper 95% CI..............: 1.589
T-value...................: 0.479096
P-value...................: 0.6318701
Sample size in model......: 1002
Number of events..........: 114
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1006, number of events= 119
(1382 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 3.149e-01 1.370e+00 1.929e-01 1.633 0.102540
Age 3.419e-02 1.035e+00 1.261e-02 2.711 0.006713 **
Gendermale 4.342e-01 1.544e+00 2.199e-01 1.974 0.048335 *
Hypertension.compositeno -4.432e-01 6.420e-01 3.576e-01 -1.239 0.215200
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -5.992e-02 9.418e-01 2.208e-01 -0.271 0.786088
SmokerCurrentno -5.022e-01 6.052e-01 2.014e-01 -2.493 0.012653 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.893e-01 1.336e+00 2.159e-01 1.340 0.180144
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.779e-01 1.459e+00 2.578e-01 1.466 0.142612
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.788e-02 9.823e-01 4.918e-03 -3.635 0.000278 ***
BMI 5.699e-02 1.059e+00 2.656e-02 2.146 0.031874 *
CAD_history 1.903e-01 1.210e+00 1.989e-01 0.956 0.338836
Stroke_history 3.055e-02 1.031e+00 1.974e-01 0.155 0.876999
Peripheral.interv 5.619e-01 1.754e+00 2.131e-01 2.637 0.008368 **
stenose0-49% -1.540e+01 2.045e-07 3.123e+03 -0.005 0.996065
stenose50-70% -8.794e-01 4.150e-01 8.686e-01 -1.012 0.311330
stenose70-90% -3.666e-01 6.931e-01 7.269e-01 -0.504 0.613981
stenose90-99% -3.659e-01 6.936e-01 7.256e-01 -0.504 0.614096
stenose100% (Occlusion) -5.671e-02 9.449e-01 1.238e+00 -0.046 0.963452
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.519e+01 2.528e-07 2.805e+03 -0.005 0.995679
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.370e+00 7.299e-01 0.93882 1.9996
Age 1.035e+00 9.664e-01 1.00951 1.0607
Gendermale 1.544e+00 6.478e-01 1.00318 2.3753
Hypertension.compositeno 6.420e-01 1.558e+00 0.31849 1.2939
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.418e-01 1.062e+00 0.61101 1.4518
SmokerCurrentno 6.052e-01 1.652e+00 0.40784 0.8981
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.336e+00 7.488e-01 0.87479 2.0390
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.459e+00 6.853e-01 0.88047 2.4185
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.823e-01 1.018e+00 0.97286 0.9918
BMI 1.059e+00 9.446e-01 1.00495 1.1152
CAD_history 1.210e+00 8.267e-01 0.81904 1.7863
Stroke_history 1.031e+00 9.699e-01 0.70028 1.5180
Peripheral.interv 1.754e+00 5.701e-01 1.15517 2.6634
stenose0-49% 2.045e-07 4.889e+06 0.00000 Inf
stenose50-70% 4.150e-01 2.409e+00 0.07564 2.2773
stenose70-90% 6.931e-01 1.443e+00 0.16675 2.8806
stenose90-99% 6.936e-01 1.442e+00 0.16730 2.8756
stenose100% (Occlusion) 9.449e-01 1.058e+00 0.08354 10.6868
stenoseNA NA NA NA NA
stenose50-99% 2.528e-07 3.956e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.694 (se = 0.023 )
Likelihood ratio test= 64.3 on 19 df, p=8e-07
Wald test = 60.58 on 19 df, p=3e-06
Score (logrank) test = 64.14 on 19 df, p=8e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.314907
Standard error............: 0.19288
Odds ratio (effect size)..: 1.37
Lower 95% CI..............: 0.939
Upper 95% CI..............: 2
T-value...................: 1.632661
P-value...................: 0.1025404
Sample size in model......: 1006
Number of events..........: 119
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1044, number of events= 120
(1344 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.748e-01 1.191e+00 1.860e-01 0.940 0.34727
Age 3.379e-02 1.034e+00 1.249e-02 2.704 0.00684 **
Gendermale 4.474e-01 1.564e+00 2.179e-01 2.053 0.04006 *
Hypertension.compositeno -4.648e-01 6.283e-01 3.578e-01 -1.299 0.19387
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -4.790e-02 9.532e-01 2.188e-01 -0.219 0.82676
SmokerCurrentno -5.109e-01 6.000e-01 2.003e-01 -2.550 0.01076 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.401e-01 1.405e+00 2.130e-01 1.597 0.11036
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.623e-01 1.437e+00 2.571e-01 1.409 0.15872
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.979e-02 9.804e-01 4.879e-03 -4.056 4.99e-05 ***
BMI 5.687e-02 1.059e+00 2.555e-02 2.226 0.02603 *
CAD_history 1.679e-01 1.183e+00 1.979e-01 0.848 0.39636
Stroke_history 3.892e-02 1.040e+00 1.978e-01 0.197 0.84402
Peripheral.interv 5.626e-01 1.755e+00 2.131e-01 2.641 0.00827 **
stenose0-49% -1.548e+01 1.894e-07 2.739e+03 -0.006 0.99549
stenose50-70% -8.329e-01 4.348e-01 8.698e-01 -0.958 0.33825
stenose70-90% -2.432e-01 7.841e-01 7.270e-01 -0.334 0.73803
stenose90-99% -1.974e-01 8.209e-01 7.252e-01 -0.272 0.78546
stenose100% (Occlusion) 1.205e-01 1.128e+00 1.242e+00 0.097 0.92272
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.518e+01 2.560e-07 2.870e+03 -0.005 0.99578
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.191e+00 8.396e-01 0.82721 1.7148
Age 1.034e+00 9.668e-01 1.00934 1.0600
Gendermale 1.564e+00 6.393e-01 1.02051 2.3975
Hypertension.compositeno 6.283e-01 1.592e+00 0.31162 1.2667
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.532e-01 1.049e+00 0.62075 1.4638
SmokerCurrentno 6.000e-01 1.667e+00 0.40514 0.8884
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.405e+00 7.117e-01 0.92552 2.1331
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.437e+00 6.961e-01 0.86802 2.3778
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.804e-01 1.020e+00 0.97107 0.9898
BMI 1.059e+00 9.447e-01 1.00681 1.1129
CAD_history 1.183e+00 8.455e-01 0.80247 1.7433
Stroke_history 1.040e+00 9.618e-01 0.70553 1.5321
Peripheral.interv 1.755e+00 5.697e-01 1.15608 2.6651
stenose0-49% 1.894e-07 5.281e+06 0.00000 Inf
stenose50-70% 4.348e-01 2.300e+00 0.07905 2.3912
stenose70-90% 7.841e-01 1.275e+00 0.18860 3.2602
stenose90-99% 8.209e-01 1.218e+00 0.19814 3.4007
stenose100% (Occlusion) 1.128e+00 8.865e-01 0.09893 12.8612
stenoseNA NA NA NA NA
stenose50-99% 2.560e-07 3.906e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.696 (se = 0.023 )
Likelihood ratio test= 65.33 on 19 df, p=5e-07
Wald test = 60.85 on 19 df, p=3e-06
Score (logrank) test = 63.96 on 19 df, p=9e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.174792
Standard error............: 0.185968
Odds ratio (effect size)..: 1.191
Lower 95% CI..............: 0.827
Upper 95% CI..............: 1.715
T-value...................: 0.939904
P-value...................: 0.3472667
Sample size in model......: 1044
Number of events..........: 120
* Analyzing the effect of plaque proteins on [epstroke.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 477, number of events= 32
(1911 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 2.472e-02 1.025e+00 3.648e-01 0.068 0.946
Age 3.546e-02 1.036e+00 2.467e-02 1.438 0.151
Gendermale 3.450e-02 1.035e+00 4.022e-01 0.086 0.932
Hypertension.compositeno -7.437e-01 4.754e-01 7.516e-01 -0.990 0.322
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 5.315e-01 1.701e+00 4.207e-01 1.263 0.206
SmokerCurrentno -5.350e-01 5.857e-01 3.815e-01 -1.402 0.161
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -2.487e-02 9.754e-01 4.179e-01 -0.060 0.953
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.103e-01 1.364e+00 5.848e-01 0.531 0.596
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -8.165e-04 9.992e-01 9.773e-03 -0.084 0.933
BMI -1.288e-02 9.872e-01 4.814e-02 -0.268 0.789
CAD_history 2.559e-01 1.292e+00 3.977e-01 0.643 0.520
Stroke_history 3.207e-01 1.378e+00 3.689e-01 0.869 0.385
Peripheral.interv -5.758e-01 5.622e-01 5.473e-01 -1.052 0.293
stenose0-49% -1.810e+01 1.377e-08 1.222e+04 -0.001 0.999
stenose50-70% -1.785e+01 1.766e-08 4.805e+03 -0.004 0.997
stenose70-90% -8.478e-01 4.283e-01 1.142e+00 -0.742 0.458
stenose90-99% -9.721e-01 3.783e-01 1.153e+00 -0.843 0.399
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.025e+00 9.756e-01 0.50142 2.095
Age 1.036e+00 9.652e-01 0.98720 1.087
Gendermale 1.035e+00 9.661e-01 0.47054 2.277
Hypertension.compositeno 4.754e-01 2.104e+00 0.10897 2.074
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.701e+00 5.877e-01 0.74601 3.881
SmokerCurrentno 5.857e-01 1.708e+00 0.27727 1.237
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 9.754e-01 1.025e+00 0.43002 2.213
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.364e+00 7.332e-01 0.43347 4.291
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.992e-01 1.001e+00 0.98023 1.019
BMI 9.872e-01 1.013e+00 0.89831 1.085
CAD_history 1.292e+00 7.742e-01 0.59235 2.816
Stroke_history 1.378e+00 7.256e-01 0.66875 2.840
Peripheral.interv 5.622e-01 1.779e+00 0.19233 1.644
stenose0-49% 1.377e-08 7.260e+07 0.00000 Inf
stenose50-70% 1.766e-08 5.662e+07 0.00000 Inf
stenose70-90% 4.283e-01 2.335e+00 0.04564 4.020
stenose90-99% 3.783e-01 2.643e+00 0.03946 3.627
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.712 (se = 0.04 )
Likelihood ratio test= 13.18 on 17 df, p=0.7
Wald test = 9.66 on 17 df, p=0.9
Score (logrank) test = 11.9 on 17 df, p=0.8
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6_rank
Effect size...............: 0.024717
Standard error............: 0.364815
Odds ratio (effect size)..: 1.025
Lower 95% CI..............: 0.501
Upper 95% CI..............: 2.095
T-value...................: 0.067752
P-value...................: 0.9459834
Sample size in model......: 477
Number of events..........: 32
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 509, number of events= 33
(1879 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -4.721e-01 6.237e-01 3.625e-01 -1.302 0.193
Age 2.320e-02 1.023e+00 2.358e-02 0.984 0.325
Gendermale 6.449e-02 1.067e+00 3.990e-01 0.162 0.872
Hypertension.compositeno -8.685e-01 4.196e-01 7.492e-01 -1.159 0.246
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 3.761e-01 1.457e+00 4.161e-01 0.904 0.366
SmokerCurrentno -4.557e-01 6.340e-01 3.760e-01 -1.212 0.226
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 4.243e-02 1.043e+00 4.107e-01 0.103 0.918
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.006e-01 1.106e+00 5.873e-01 0.171 0.864
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 1.256e-03 1.001e+00 9.624e-03 0.130 0.896
BMI 1.816e-02 1.018e+00 4.546e-02 0.399 0.690
CAD_history 7.676e-02 1.080e+00 3.981e-01 0.193 0.847
Stroke_history 4.080e-01 1.504e+00 3.637e-01 1.122 0.262
Peripheral.interv -4.789e-01 6.195e-01 5.459e-01 -0.877 0.380
stenose0-49% -1.860e+01 8.342e-09 1.262e+04 -0.001 0.999
stenose50-70% -1.841e+01 1.006e-08 4.635e+03 -0.004 0.997
stenose70-90% -1.288e+00 2.757e-01 1.118e+00 -1.153 0.249
stenose90-99% -1.414e+00 2.433e-01 1.134e+00 -1.246 0.213
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 6.237e-01 1.603e+00 0.30651 1.269
Age 1.023e+00 9.771e-01 0.97724 1.072
Gendermale 1.067e+00 9.375e-01 0.48793 2.332
Hypertension.compositeno 4.196e-01 2.383e+00 0.09662 1.822
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.457e+00 6.865e-01 0.64443 3.292
SmokerCurrentno 6.340e-01 1.577e+00 0.30344 1.325
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.043e+00 9.585e-01 0.46651 2.333
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.106e+00 9.043e-01 0.34980 3.496
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.001e+00 9.987e-01 0.98255 1.020
BMI 1.018e+00 9.820e-01 0.93151 1.113
CAD_history 1.080e+00 9.261e-01 0.49485 2.356
Stroke_history 1.504e+00 6.650e-01 0.73718 3.068
Peripheral.interv 6.195e-01 1.614e+00 0.21250 1.806
stenose0-49% 8.342e-09 1.199e+08 0.00000 Inf
stenose50-70% 1.006e-08 9.940e+07 0.00000 Inf
stenose70-90% 2.757e-01 3.627e+00 0.03082 2.466
stenose90-99% 2.433e-01 4.110e+00 0.02633 2.248
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.687 (se = 0.042 )
Likelihood ratio test= 13.23 on 17 df, p=0.7
Wald test = 10.29 on 17 df, p=0.9
Score (logrank) test = 12.25 on 17 df, p=0.8
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: MCP1_rank
Effect size...............: -0.472091
Standard error............: 0.36246
Odds ratio (effect size)..: 0.624
Lower 95% CI..............: 0.307
Upper 95% CI..............: 1.269
T-value...................: -1.302464
P-value...................: 0.1927578
Sample size in model......: 509
Number of events..........: 33
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1002, number of events= 58
(1386 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] -1.438e-01 8.660e-01 2.656e-01 -0.541 0.58818
Age 5.026e-02 1.052e+00 1.793e-02 2.803 0.00506 **
Gendermale 2.919e-01 1.339e+00 3.000e-01 0.973 0.33043
Hypertension.compositeno -2.080e-01 8.122e-01 4.442e-01 -0.468 0.63956
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -6.073e-02 9.411e-01 3.197e-01 -0.190 0.84935
SmokerCurrentno -3.427e-01 7.098e-01 2.939e-01 -1.166 0.24358
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.978e-01 1.488e+00 2.912e-01 1.366 0.17192
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.468e-01 1.414e+00 3.748e-01 0.925 0.35485
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -5.639e-03 9.944e-01 7.004e-03 -0.805 0.42078
BMI 9.236e-02 1.097e+00 3.357e-02 2.751 0.00593 **
CAD_history -5.750e-01 5.627e-01 3.288e-01 -1.749 0.08031 .
Stroke_history 3.241e-01 1.383e+00 2.748e-01 1.179 0.23826
Peripheral.interv 4.887e-01 1.630e+00 3.276e-01 1.492 0.13578
stenose0-49% -1.559e+01 1.699e-07 3.740e+03 -0.004 0.99667
stenose50-70% -5.898e-01 5.544e-01 1.159e+00 -0.509 0.61097
stenose70-90% -3.521e-01 7.032e-01 1.025e+00 -0.343 0.73127
stenose90-99% -3.578e-01 6.992e-01 1.024e+00 -0.349 0.72672
stenose100% (Occlusion) 3.875e-01 1.473e+00 1.439e+00 0.269 0.78767
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.537e+01 2.109e-07 5.615e+03 -0.003 0.99782
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 8.660e-01 1.155e+00 0.51454 1.458
Age 1.052e+00 9.510e-01 1.01523 1.089
Gendermale 1.339e+00 7.468e-01 0.74380 2.411
Hypertension.compositeno 8.122e-01 1.231e+00 0.34009 1.940
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.411e-01 1.063e+00 0.50289 1.761
SmokerCurrentno 7.098e-01 1.409e+00 0.39898 1.263
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.488e+00 6.718e-01 0.84120 2.634
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.414e+00 7.070e-01 0.67854 2.949
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.944e-01 1.006e+00 0.98082 1.008
BMI 1.097e+00 9.118e-01 1.02692 1.171
CAD_history 5.627e-01 1.777e+00 0.29542 1.072
Stroke_history 1.383e+00 7.232e-01 0.80691 2.370
Peripheral.interv 1.630e+00 6.134e-01 0.85779 3.098
stenose0-49% 1.699e-07 5.887e+06 0.00000 Inf
stenose50-70% 5.544e-01 1.804e+00 0.05713 5.380
stenose70-90% 7.032e-01 1.422e+00 0.09429 5.245
stenose90-99% 6.992e-01 1.430e+00 0.09401 5.200
stenose100% (Occlusion) 1.473e+00 6.788e-01 0.08784 24.711
stenoseNA NA NA NA NA
stenose50-99% 2.109e-07 4.742e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.682 (se = 0.036 )
Likelihood ratio test= 27.19 on 19 df, p=0.1
Wald test = 22.76 on 19 df, p=0.2
Score (logrank) test = 26.28 on 19 df, p=0.1
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: -0.143835
Standard error............: 0.265636
Odds ratio (effect size)..: 0.866
Lower 95% CI..............: 0.515
Upper 95% CI..............: 1.458
T-value...................: -0.541475
P-value...................: 0.5881802
Sample size in model......: 1002
Number of events..........: 58
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1006, number of events= 61
(1382 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 9.097e-02 1.095e+00 2.649e-01 0.343 0.73127
Age 4.173e-02 1.043e+00 1.733e-02 2.408 0.01603 *
Gendermale 2.095e-01 1.233e+00 2.916e-01 0.719 0.47243
Hypertension.compositeno -1.100e-01 8.958e-01 4.146e-01 -0.265 0.79079
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -9.138e-02 9.127e-01 3.159e-01 -0.289 0.77242
SmokerCurrentno -1.889e-01 8.279e-01 2.901e-01 -0.651 0.51499
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 4.222e-01 1.525e+00 2.868e-01 1.472 0.14104
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.050e-01 1.357e+00 3.718e-01 0.820 0.41197
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -3.051e-03 9.970e-01 7.024e-03 -0.434 0.66402
BMI 9.994e-02 1.105e+00 3.516e-02 2.842 0.00448 **
CAD_history -4.477e-01 6.391e-01 3.134e-01 -1.429 0.15306
Stroke_history 3.724e-01 1.451e+00 2.649e-01 1.406 0.15973
Peripheral.interv 5.374e-01 1.712e+00 3.163e-01 1.699 0.08937 .
stenose0-49% -1.514e+01 2.649e-07 4.536e+03 -0.003 0.99734
stenose50-70% -6.162e-01 5.400e-01 1.159e+00 -0.532 0.59478
stenose70-90% -3.140e-01 7.305e-01 1.023e+00 -0.307 0.75884
stenose90-99% -4.118e-01 6.625e-01 1.025e+00 -0.402 0.68783
stenose100% (Occlusion) 3.763e-01 1.457e+00 1.435e+00 0.262 0.79312
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.530e+01 2.262e-07 3.904e+03 -0.004 0.99687
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.095e+00 9.130e-01 0.65167 1.841
Age 1.043e+00 9.591e-01 1.00780 1.079
Gendermale 1.233e+00 8.110e-01 0.69627 2.184
Hypertension.compositeno 8.958e-01 1.116e+00 0.39748 2.019
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.127e-01 1.096e+00 0.49134 1.695
SmokerCurrentno 8.279e-01 1.208e+00 0.46886 1.462
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.525e+00 6.556e-01 0.86938 2.676
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.357e+00 7.371e-01 0.65464 2.812
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.970e-01 1.003e+00 0.98332 1.011
BMI 1.105e+00 9.049e-01 1.03152 1.184
CAD_history 6.391e-01 1.565e+00 0.34580 1.181
Stroke_history 1.451e+00 6.891e-01 0.86351 2.439
Peripheral.interv 1.712e+00 5.843e-01 0.92068 3.182
stenose0-49% 2.649e-07 3.775e+06 0.00000 Inf
stenose50-70% 5.400e-01 1.852e+00 0.05575 5.230
stenose70-90% 7.305e-01 1.369e+00 0.09839 5.424
stenose90-99% 6.625e-01 1.510e+00 0.08888 4.938
stenose100% (Occlusion) 1.457e+00 6.864e-01 0.08754 24.245
stenoseNA NA NA NA NA
stenose50-99% 2.262e-07 4.421e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.669 (se = 0.037 )
Likelihood ratio test= 24.74 on 19 df, p=0.2
Wald test = 22.97 on 19 df, p=0.2
Score (logrank) test = 24.39 on 19 df, p=0.2
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.090975
Standard error............: 0.264899
Odds ratio (effect size)..: 1.095
Lower 95% CI..............: 0.652
Upper 95% CI..............: 1.841
T-value...................: 0.343431
P-value...................: 0.731274
Sample size in model......: 1006
Number of events..........: 61
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1044, number of events= 62
(1344 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.163e-01 1.123e+00 2.615e-01 0.445 0.6566
Age 4.236e-02 1.043e+00 1.715e-02 2.470 0.0135 *
Gendermale 2.109e-01 1.235e+00 2.871e-01 0.734 0.4627
Hypertension.compositeno -1.076e-01 8.980e-01 4.149e-01 -0.259 0.7954
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -4.084e-02 9.600e-01 3.103e-01 -0.132 0.8953
SmokerCurrentno -1.804e-01 8.349e-01 2.888e-01 -0.625 0.5322
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 4.214e-01 1.524e+00 2.823e-01 1.493 0.1355
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 2.868e-01 1.332e+00 3.711e-01 0.773 0.4396
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -5.616e-03 9.944e-01 6.832e-03 -0.822 0.4111
BMI 9.215e-02 1.097e+00 3.244e-02 2.841 0.0045 **
CAD_history -4.624e-01 6.298e-01 3.106e-01 -1.489 0.1366
Stroke_history 3.497e-01 1.419e+00 2.651e-01 1.319 0.1871
Peripheral.interv 4.865e-01 1.627e+00 3.152e-01 1.544 0.1227
stenose0-49% -1.547e+01 1.920e-07 3.676e+03 -0.004 0.9966
stenose50-70% -5.939e-01 5.522e-01 1.159e+00 -0.512 0.6085
stenose70-90% -2.858e-01 7.514e-01 1.025e+00 -0.279 0.7803
stenose90-99% -3.216e-01 7.250e-01 1.026e+00 -0.313 0.7541
stenose100% (Occlusion) 4.722e-01 1.604e+00 1.441e+00 0.328 0.7431
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.528e+01 2.307e-07 3.934e+03 -0.004 0.9969
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.123e+00 8.902e-01 0.67282 1.875
Age 1.043e+00 9.585e-01 1.00878 1.079
Gendermale 1.235e+00 8.099e-01 0.70336 2.168
Hypertension.compositeno 8.980e-01 1.114e+00 0.39817 2.025
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.600e-01 1.042e+00 0.52254 1.764
SmokerCurrentno 8.349e-01 1.198e+00 0.47408 1.471
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.524e+00 6.562e-01 0.87646 2.650
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.332e+00 7.507e-01 0.64369 2.757
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.944e-01 1.006e+00 0.98117 1.008
BMI 1.097e+00 9.120e-01 1.02898 1.169
CAD_history 6.298e-01 1.588e+00 0.34258 1.158
Stroke_history 1.419e+00 7.049e-01 0.84381 2.385
Peripheral.interv 1.627e+00 6.148e-01 0.87701 3.017
stenose0-49% 1.920e-07 5.208e+06 0.00000 Inf
stenose50-70% 5.522e-01 1.811e+00 0.05691 5.358
stenose70-90% 7.514e-01 1.331e+00 0.10089 5.597
stenose90-99% 7.250e-01 1.379e+00 0.09697 5.421
stenose100% (Occlusion) 1.604e+00 6.236e-01 0.09522 27.006
stenoseNA NA NA NA NA
stenose50-99% 2.307e-07 4.335e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.672 (se = 0.036 )
Likelihood ratio test= 25.52 on 19 df, p=0.1
Wald test = 23.76 on 19 df, p=0.2
Score (logrank) test = 25.03 on 19 df, p=0.2
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.116261
Standard error............: 0.261501
Odds ratio (effect size)..: 1.123
Lower 95% CI..............: 0.673
Upper 95% CI..............: 1.875
T-value...................: 0.444593
P-value...................: 0.6566139
Sample size in model......: 1044
Number of events..........: 62
* Analyzing the effect of plaque proteins on [epcoronary.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 477, number of events= 43
(1911 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.378e-01 1.148e+00 3.168e-01 0.435 0.6635
Age 4.680e-02 1.048e+00 2.288e-02 2.046 0.0408 *
Gendermale 8.433e-01 2.324e+00 4.519e-01 1.866 0.0620 .
Hypertension.compositeno -5.478e-01 5.782e-01 6.192e-01 -0.885 0.3763
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 4.049e-01 1.499e+00 3.626e-01 1.117 0.2642
SmokerCurrentno -4.949e-01 6.097e-01 3.286e-01 -1.506 0.1321
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 9.778e-02 1.103e+00 3.667e-01 0.267 0.7897
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.919e-01 1.480e+00 4.544e-01 0.862 0.3885
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -7.231e-03 9.928e-01 8.598e-03 -0.841 0.4004
BMI 1.272e-02 1.013e+00 4.331e-02 0.294 0.7691
CAD_history 7.817e-01 2.185e+00 3.375e-01 2.316 0.0205 *
Stroke_history -2.712e-01 7.624e-01 3.572e-01 -0.759 0.4477
Peripheral.interv 3.803e-01 1.463e+00 3.575e-01 1.064 0.2874
stenose0-49% -8.465e-01 4.289e-01 8.354e+03 0.000 0.9999
stenose50-70% 1.550e+01 5.402e+06 4.119e+03 0.004 0.9970
stenose70-90% 1.589e+01 7.997e+06 4.119e+03 0.004 0.9969
stenose90-99% 1.577e+01 7.055e+06 4.119e+03 0.004 0.9969
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.148e+00 8.713e-01 0.6169 2.135
Age 1.048e+00 9.543e-01 1.0020 1.096
Gendermale 2.324e+00 4.303e-01 0.9584 5.635
Hypertension.compositeno 5.782e-01 1.729e+00 0.1718 1.946
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.499e+00 6.671e-01 0.7365 3.051
SmokerCurrentno 6.097e-01 1.640e+00 0.3201 1.161
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.103e+00 9.068e-01 0.5375 2.262
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.480e+00 6.758e-01 0.6073 3.605
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.928e-01 1.007e+00 0.9762 1.010
BMI 1.013e+00 9.874e-01 0.9304 1.103
CAD_history 2.185e+00 4.576e-01 1.1278 4.234
Stroke_history 7.624e-01 1.312e+00 0.3786 1.536
Peripheral.interv 1.463e+00 6.837e-01 0.7259 2.947
stenose0-49% 4.289e-01 2.332e+00 0.0000 Inf
stenose50-70% 5.402e+06 1.851e-07 0.0000 Inf
stenose70-90% 7.997e+06 1.251e-07 0.0000 Inf
stenose90-99% 7.055e+06 1.417e-07 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.749 (se = 0.033 )
Likelihood ratio test= 31.57 on 17 df, p=0.02
Wald test = 24.09 on 17 df, p=0.1
Score (logrank) test = 32.09 on 17 df, p=0.01
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6_rank
Effect size...............: 0.137818
Standard error............: 0.316752
Odds ratio (effect size)..: 1.148
Lower 95% CI..............: 0.617
Upper 95% CI..............: 2.135
T-value...................: 0.435097
P-value...................: 0.6634919
Sample size in model......: 477
Number of events..........: 43
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 509, number of events= 44
(1879 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 2.557e-01 1.291e+00 3.158e-01 0.810 0.4182
Age 3.929e-02 1.040e+00 2.294e-02 1.713 0.0868 .
Gendermale 6.478e-01 1.911e+00 4.234e-01 1.530 0.1260
Hypertension.compositeno -2.496e-01 7.791e-01 5.535e-01 -0.451 0.6520
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 5.175e-01 1.678e+00 3.489e-01 1.483 0.1381
SmokerCurrentno -5.444e-01 5.802e-01 3.229e-01 -1.686 0.0918 .
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 9.463e-02 1.099e+00 3.667e-01 0.258 0.7964
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.216e-01 1.379e+00 4.555e-01 0.706 0.4802
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.149e-02 9.886e-01 8.315e-03 -1.382 0.1669
BMI 2.137e-02 1.022e+00 4.270e-02 0.500 0.6168
CAD_history 7.843e-01 2.191e+00 3.274e-01 2.395 0.0166 *
Stroke_history -1.394e-01 8.699e-01 3.382e-01 -0.412 0.6803
Peripheral.interv 5.109e-01 1.667e+00 3.537e-01 1.445 0.1486
stenose0-49% -8.090e-01 4.453e-01 9.205e+03 0.000 0.9999
stenose50-70% 1.566e+01 6.305e+06 5.158e+03 0.003 0.9976
stenose70-90% 1.598e+01 8.730e+06 5.158e+03 0.003 0.9975
stenose90-99% 1.591e+01 8.127e+06 5.158e+03 0.003 0.9975
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 1.291e+00 7.744e-01 0.6954 2.398
Age 1.040e+00 9.615e-01 0.9943 1.088
Gendermale 1.911e+00 5.232e-01 0.8335 4.383
Hypertension.compositeno 7.791e-01 1.284e+00 0.2633 2.306
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.678e+00 5.960e-01 0.8467 3.325
SmokerCurrentno 5.802e-01 1.724e+00 0.3081 1.092
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.099e+00 9.097e-01 0.5357 2.256
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.379e+00 7.250e-01 0.5648 3.368
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.886e-01 1.012e+00 0.9726 1.005
BMI 1.022e+00 9.789e-01 0.9396 1.111
CAD_history 2.191e+00 4.565e-01 1.1532 4.162
Stroke_history 8.699e-01 1.150e+00 0.4483 1.688
Peripheral.interv 1.667e+00 6.000e-01 0.8333 3.334
stenose0-49% 4.453e-01 2.246e+00 0.0000 Inf
stenose50-70% 6.305e+06 1.586e-07 0.0000 Inf
stenose70-90% 8.730e+06 1.145e-07 0.0000 Inf
stenose90-99% 8.127e+06 1.230e-07 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.731 (se = 0.036 )
Likelihood ratio test= 31 on 17 df, p=0.02
Wald test = 23.03 on 17 df, p=0.1
Score (logrank) test = 32.35 on 17 df, p=0.01
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: MCP1_rank
Effect size...............: 0.25569
Standard error............: 0.315832
Odds ratio (effect size)..: 1.291
Lower 95% CI..............: 0.695
Upper 95% CI..............: 2.398
T-value...................: 0.809576
P-value...................: 0.4181839
Sample size in model......: 509
Number of events..........: 44
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1002, number of events= 79
(1386 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 5.813e-02 1.060e+00 2.304e-01 0.252 0.80083
Age -3.043e-03 9.970e-01 1.510e-02 -0.201 0.84032
Gendermale 7.141e-01 2.042e+00 3.011e-01 2.372 0.01771 *
Hypertension.compositeno -7.882e-01 4.546e-01 5.252e-01 -1.501 0.13341
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -1.803e-01 8.351e-01 2.782e-01 -0.648 0.51711
SmokerCurrentno -5.750e-01 5.627e-01 2.428e-01 -2.369 0.01785 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.493e-01 1.283e+00 2.741e-01 0.909 0.36312
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.737e-01 1.190e+00 3.354e-01 0.518 0.60448
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.040e-02 9.798e-01 5.967e-03 -3.419 0.00063 ***
BMI 1.169e-02 1.012e+00 3.338e-02 0.350 0.72620
CAD_history 9.403e-01 2.561e+00 2.410e-01 3.901 9.56e-05 ***
Stroke_history -1.024e-01 9.027e-01 2.526e-01 -0.405 0.68527
Peripheral.interv 4.301e-01 1.537e+00 2.613e-01 1.646 0.09979 .
stenose0-49% -1.581e+01 1.357e-07 3.608e+03 -0.004 0.99650
stenose50-70% -1.055e+00 3.483e-01 1.233e+00 -0.856 0.39220
stenose70-90% -1.716e-02 9.830e-01 1.022e+00 -0.017 0.98661
stenose90-99% -1.699e-01 8.437e-01 1.022e+00 -0.166 0.86794
stenose100% (Occlusion) -1.551e+01 1.841e-07 3.150e+03 -0.005 0.99607
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% 1.291e+00 3.637e+00 1.459e+00 0.885 0.37628
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.060e+00 9.435e-01 0.67470 1.6649
Age 9.970e-01 1.003e+00 0.96789 1.0269
Gendermale 2.042e+00 4.896e-01 1.13195 3.6847
Hypertension.compositeno 4.546e-01 2.200e+00 0.16241 1.2727
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 8.351e-01 1.198e+00 0.48403 1.4407
SmokerCurrentno 5.627e-01 1.777e+00 0.34966 0.9055
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.283e+00 7.793e-01 0.74978 2.1959
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.190e+00 8.405e-01 0.61655 2.2958
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.798e-01 1.021e+00 0.96842 0.9913
BMI 1.012e+00 9.884e-01 0.94768 1.0802
CAD_history 2.561e+00 3.905e-01 1.59668 4.1070
Stroke_history 9.027e-01 1.108e+00 0.55019 1.4810
Peripheral.interv 1.537e+00 6.504e-01 0.92119 2.5661
stenose0-49% 1.357e-07 7.370e+06 0.00000 Inf
stenose50-70% 3.483e-01 2.871e+00 0.03108 3.9018
stenose70-90% 9.830e-01 1.017e+00 0.13256 7.2891
stenose90-99% 8.437e-01 1.185e+00 0.11388 6.2514
stenose100% (Occlusion) 1.841e-07 5.432e+06 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 3.637e+00 2.750e-01 0.20825 63.5179
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.738 (se = 0.027 )
Likelihood ratio test= 61.46 on 19 df, p=2e-06
Wald test = 60.06 on 19 df, p=4e-06
Score (logrank) test = 64.83 on 19 df, p=7e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.058129
Standard error............: 0.230422
Odds ratio (effect size)..: 1.06
Lower 95% CI..............: 0.675
Upper 95% CI..............: 1.665
T-value...................: 0.252272
P-value...................: 0.8008308
Sample size in model......: 1002
Number of events..........: 79
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1006, number of events= 81
(1382 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 3.112e-01 1.365e+00 2.338e-01 1.331 0.183175
Age -9.543e-04 9.990e-01 1.485e-02 -0.064 0.948766
Gendermale 5.574e-01 1.746e+00 2.851e-01 1.955 0.050527 .
Hypertension.compositeno -8.059e-01 4.467e-01 5.248e-01 -1.536 0.124600
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -1.867e-01 8.297e-01 2.766e-01 -0.675 0.499578
SmokerCurrentno -5.490e-01 5.775e-01 2.406e-01 -2.282 0.022506 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 1.850e-01 1.203e+00 2.751e-01 0.673 0.501211
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 2.059e-01 1.229e+00 3.353e-01 0.614 0.539303
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.060e-02 9.796e-01 5.884e-03 -3.501 0.000464 ***
BMI 7.733e-03 1.008e+00 3.365e-02 0.230 0.818252
CAD_history 9.287e-01 2.531e+00 2.382e-01 3.898 9.69e-05 ***
Stroke_history -1.891e-01 8.277e-01 2.508e-01 -0.754 0.450860
Peripheral.interv 3.230e-01 1.381e+00 2.580e-01 1.252 0.210705
stenose0-49% -1.552e+01 1.820e-07 3.417e+03 -0.005 0.996376
stenose50-70% -1.047e+00 3.509e-01 1.231e+00 -0.851 0.394713
stenose70-90% -1.764e-01 8.383e-01 1.023e+00 -0.172 0.863099
stenose90-99% -2.621e-01 7.694e-01 1.023e+00 -0.256 0.797760
stenose100% (Occlusion) -1.525e+01 2.383e-07 2.534e+03 -0.006 0.995199
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% 9.092e-01 2.482e+00 1.444e+00 0.629 0.529066
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.365e+00 7.325e-01 0.86324 2.1588
Age 9.990e-01 1.001e+00 0.97039 1.0286
Gendermale 1.746e+00 5.727e-01 0.99872 3.0529
Hypertension.compositeno 4.467e-01 2.239e+00 0.15970 1.2493
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 8.297e-01 1.205e+00 0.48248 1.4267
SmokerCurrentno 5.775e-01 1.732e+00 0.36039 0.9255
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.203e+00 8.311e-01 0.70178 2.0630
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.229e+00 8.140e-01 0.63674 2.3705
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.796e-01 1.021e+00 0.96838 0.9910
BMI 1.008e+00 9.923e-01 0.94344 1.0765
CAD_history 2.531e+00 3.951e-01 1.58689 4.0375
Stroke_history 8.277e-01 1.208e+00 0.50632 1.3531
Peripheral.interv 1.381e+00 7.240e-01 0.83296 2.2903
stenose0-49% 1.820e-07 5.495e+06 0.00000 Inf
stenose50-70% 3.509e-01 2.850e+00 0.03145 3.9140
stenose70-90% 8.383e-01 1.193e+00 0.11291 6.2240
stenose90-99% 7.694e-01 1.300e+00 0.10364 5.7124
stenose100% (Occlusion) 2.383e-07 4.196e+06 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 2.482e+00 4.028e-01 0.14633 42.1104
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.73 (se = 0.029 )
Likelihood ratio test= 60.73 on 19 df, p=3e-06
Wald test = 60.13 on 19 df, p=4e-06
Score (logrank) test = 63.68 on 19 df, p=1e-06
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.311249
Standard error............: 0.233838
Odds ratio (effect size)..: 1.365
Lower 95% CI..............: 0.863
Upper 95% CI..............: 2.159
T-value...................: 1.331043
P-value...................: 0.1831749
Sample size in model......: 1006
Number of events..........: 81
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1044, number of events= 81
(1344 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] -1.596e-02 9.842e-01 2.268e-01 -0.070 0.943890
Age -1.539e-03 9.985e-01 1.479e-02 -0.104 0.917138
Gendermale 6.124e-01 1.845e+00 2.852e-01 2.147 0.031760 *
Hypertension.compositeno -8.179e-01 4.414e-01 5.250e-01 -1.558 0.119285
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -2.171e-01 8.048e-01 2.764e-01 -0.785 0.432187
SmokerCurrentno -5.707e-01 5.651e-01 2.391e-01 -2.387 0.016980 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.564e-01 1.292e+00 2.724e-01 0.941 0.346513
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.932e-01 1.213e+00 3.346e-01 0.577 0.563740
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.177e-02 9.785e-01 5.897e-03 -3.691 0.000223 ***
BMI 9.025e-03 1.009e+00 3.301e-02 0.273 0.784560
CAD_history 9.195e-01 2.508e+00 2.377e-01 3.868 0.000110 ***
Stroke_history -1.476e-01 8.628e-01 2.513e-01 -0.587 0.556941
Peripheral.interv 3.358e-01 1.399e+00 2.589e-01 1.297 0.194621
stenose0-49% -1.549e+01 1.880e-07 3.028e+03 -0.005 0.995919
stenose50-70% -1.074e+00 3.417e-01 1.233e+00 -0.871 0.383723
stenose70-90% -1.110e-01 8.949e-01 1.023e+00 -0.109 0.913589
stenose90-99% -1.822e-01 8.334e-01 1.023e+00 -0.178 0.858652
stenose100% (Occlusion) -1.520e+01 2.509e-07 2.633e+03 -0.006 0.995394
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% 1.014e+00 2.758e+00 1.440e+00 0.705 0.481061
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 9.842e-01 1.016e+00 0.6310 1.5351
Age 9.985e-01 1.002e+00 0.9699 1.0278
Gendermale 1.845e+00 5.420e-01 1.0549 3.2265
Hypertension.compositeno 4.414e-01 2.266e+00 0.1577 1.2351
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 8.048e-01 1.242e+00 0.4682 1.3835
SmokerCurrentno 5.651e-01 1.770e+00 0.3537 0.9029
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.292e+00 7.738e-01 0.7577 2.2040
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.213e+00 8.244e-01 0.6296 2.3371
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.785e-01 1.022e+00 0.9672 0.9898
BMI 1.009e+00 9.910e-01 0.9458 1.0765
CAD_history 2.508e+00 3.987e-01 1.5740 3.9966
Stroke_history 8.628e-01 1.159e+00 0.5272 1.4119
Peripheral.interv 1.399e+00 7.147e-01 0.8423 2.3240
stenose0-49% 1.880e-07 5.318e+06 0.0000 Inf
stenose50-70% 3.417e-01 2.926e+00 0.0305 3.8279
stenose70-90% 8.949e-01 1.117e+00 0.1204 6.6502
stenose90-99% 8.334e-01 1.200e+00 0.1122 6.1898
stenose100% (Occlusion) 2.509e-07 3.986e+06 0.0000 Inf
stenoseNA NA NA NA NA
stenose50-99% 2.758e+00 3.626e-01 0.1641 46.3478
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.732 (se = 0.027 )
Likelihood ratio test= 60.47 on 19 df, p=3e-06
Wald test = 59.13 on 19 df, p=5e-06
Score (logrank) test = 62.13 on 19 df, p=2e-06
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: -0.015964
Standard error............: 0.226816
Odds ratio (effect size)..: 0.984
Lower 95% CI..............: 0.631
Upper 95% CI..............: 1.535
T-value...................: -0.070382
P-value...................: 0.9438898
Sample size in model......: 1044
Number of events..........: 81
* Analyzing the effect of plaque proteins on [epcvdeath.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 477, number of events= 23
(1911 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] -9.187e-02 9.122e-01 4.309e-01 -0.213 0.8312
Age 6.195e-02 1.064e+00 3.229e-02 1.919 0.0550 .
Gendermale 6.438e-01 1.904e+00 5.718e-01 1.126 0.2602
Hypertension.compositeno -1.812e+01 1.351e-08 4.520e+03 -0.004 0.9968
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 6.838e-01 1.981e+00 5.048e-01 1.354 0.1756
SmokerCurrentno -7.494e-01 4.726e-01 4.470e-01 -1.677 0.0936 .
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 6.669e-01 1.948e+00 4.697e-01 1.420 0.1556
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 5.143e-01 1.672e+00 6.467e-01 0.795 0.4265
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.130e-02 9.888e-01 1.115e-02 -1.014 0.3107
BMI 3.610e-02 1.037e+00 5.620e-02 0.642 0.5207
CAD_history 5.531e-01 1.739e+00 4.562e-01 1.212 0.2254
Stroke_history 1.645e-01 1.179e+00 4.525e-01 0.364 0.7162
Peripheral.interv 2.184e-01 1.244e+00 5.444e-01 0.401 0.6882
stenose0-49% -5.590e-01 5.718e-01 3.107e+04 0.000 1.0000
stenose50-70% 4.197e-01 1.521e+00 1.643e+04 0.000 1.0000
stenose70-90% 1.810e+01 7.291e+07 1.408e+04 0.001 0.9990
stenose90-99% 1.800e+01 6.555e+07 1.408e+04 0.001 0.9990
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 9.122e-01 1.096e+00 0.3920 2.123
Age 1.064e+00 9.399e-01 0.9987 1.133
Gendermale 1.904e+00 5.253e-01 0.6207 5.839
Hypertension.compositeno 1.351e-08 7.403e+07 0.0000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.981e+00 5.047e-01 0.7366 5.329
SmokerCurrentno 4.726e-01 2.116e+00 0.1968 1.135
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.948e+00 5.133e-01 0.7760 4.892
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.672e+00 5.979e-01 0.4708 5.940
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.888e-01 1.011e+00 0.9674 1.011
BMI 1.037e+00 9.645e-01 0.9286 1.157
CAD_history 1.739e+00 5.752e-01 0.7110 4.251
Stroke_history 1.179e+00 8.483e-01 0.4856 2.861
Peripheral.interv 1.244e+00 8.038e-01 0.4280 3.616
stenose0-49% 5.718e-01 1.749e+00 0.0000 Inf
stenose50-70% 1.521e+00 6.573e-01 0.0000 Inf
stenose70-90% 7.291e+07 1.372e-08 0.0000 Inf
stenose90-99% 6.555e+07 1.526e-08 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.791 (se = 0.041 )
Likelihood ratio test= 26.72 on 17 df, p=0.06
Wald test = 9.85 on 17 df, p=0.9
Score (logrank) test = 22.16 on 17 df, p=0.2
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6_rank
Effect size...............: -0.091872
Standard error............: 0.430914
Odds ratio (effect size)..: 0.912
Lower 95% CI..............: 0.392
Upper 95% CI..............: 2.123
T-value...................: -0.213202
P-value...................: 0.8311691
Sample size in model......: 477
Number of events..........: 23
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 509, number of events= 24
(1879 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -1.771e-01 8.377e-01 4.270e-01 -0.415 0.6783
Age 5.662e-02 1.058e+00 3.156e-02 1.794 0.0728 .
Gendermale 6.642e-01 1.943e+00 5.609e-01 1.184 0.2364
Hypertension.compositeno -1.815e+01 1.310e-08 4.307e+03 -0.004 0.9966
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 6.356e-01 1.888e+00 5.042e-01 1.261 0.2075
SmokerCurrentno -8.101e-01 4.448e-01 4.374e-01 -1.852 0.0640 .
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 6.893e-01 1.992e+00 4.646e-01 1.484 0.1379
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 2.638e-01 1.302e+00 6.552e-01 0.403 0.6872
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.066e-02 9.796e-01 1.089e-02 -1.897 0.0578 .
BMI 1.251e-02 1.013e+00 5.815e-02 0.215 0.8296
CAD_history 2.554e-01 1.291e+00 4.455e-01 0.573 0.5665
Stroke_history 2.185e-01 1.244e+00 4.350e-01 0.502 0.6154
Peripheral.interv 5.211e-01 1.684e+00 5.060e-01 1.030 0.3031
stenose0-49% -7.104e-01 4.914e-01 3.570e+04 0.000 1.0000
stenose50-70% 3.764e-01 1.457e+00 2.096e+04 0.000 1.0000
stenose70-90% 1.826e+01 8.550e+07 1.922e+04 0.001 0.9992
stenose90-99% 1.805e+01 6.936e+07 1.922e+04 0.001 0.9993
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 8.377e-01 1.194e+00 0.3628 1.934
Age 1.058e+00 9.450e-01 0.9948 1.126
Gendermale 1.943e+00 5.147e-01 0.6472 5.833
Hypertension.compositeno 1.310e-08 7.634e+07 0.0000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.888e+00 5.296e-01 0.7028 5.072
SmokerCurrentno 4.448e-01 2.248e+00 0.1887 1.048
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.992e+00 5.019e-01 0.8015 4.953
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.302e+00 7.681e-01 0.3605 4.702
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.796e-01 1.021e+00 0.9589 1.001
BMI 1.013e+00 9.876e-01 0.9035 1.135
CAD_history 1.291e+00 7.746e-01 0.5391 3.091
Stroke_history 1.244e+00 8.037e-01 0.5305 2.918
Peripheral.interv 1.684e+00 5.939e-01 0.6246 4.540
stenose0-49% 4.914e-01 2.035e+00 0.0000 Inf
stenose50-70% 1.457e+00 6.863e-01 0.0000 Inf
stenose70-90% 8.550e+07 1.170e-08 0.0000 Inf
stenose90-99% 6.936e+07 1.442e-08 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.801 (se = 0.04 )
Likelihood ratio test= 29.16 on 17 df, p=0.03
Wald test = 9.19 on 17 df, p=0.9
Score (logrank) test = 24.7 on 17 df, p=0.1
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: MCP1_rank
Effect size...............: -0.177103
Standard error............: 0.426996
Odds ratio (effect size)..: 0.838
Lower 95% CI..............: 0.363
Upper 95% CI..............: 1.934
T-value...................: -0.414764
P-value...................: 0.6783146
Sample size in model......: 509
Number of events..........: 24
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1002, number of events= 35
(1386 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 3.124e-01 1.367e+00 3.495e-01 0.894 0.371352
Age 6.928e-02 1.072e+00 2.589e-02 2.676 0.007450 **
Gendermale 1.013e+00 2.755e+00 4.933e-01 2.054 0.039942 *
Hypertension.compositeno -1.767e+01 2.123e-08 3.770e+03 -0.005 0.996261
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -5.545e-02 9.461e-01 4.082e-01 -0.136 0.891958
SmokerCurrentno -4.117e-01 6.625e-01 3.828e-01 -1.076 0.282106
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.902e-02 1.040e+00 4.239e-01 0.092 0.926647
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.096e+00 2.991e+00 3.963e-01 2.765 0.005696 **
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -3.121e-02 9.693e-01 9.102e-03 -3.428 0.000607 ***
BMI 6.702e-02 1.069e+00 5.147e-02 1.302 0.192850
CAD_history 2.453e-01 1.278e+00 3.548e-01 0.692 0.489238
Stroke_history -1.405e-01 8.689e-01 3.867e-01 -0.363 0.716259
Peripheral.interv 6.223e-01 1.863e+00 4.073e-01 1.528 0.126503
stenose0-49% -1.957e+01 3.162e-09 2.801e+04 -0.001 0.999442
stenose50-70% -8.921e-01 4.098e-01 1.238e+00 -0.720 0.471253
stenose70-90% -1.380e+00 2.515e-01 1.065e+00 -1.296 0.195019
stenose90-99% -8.273e-01 4.372e-01 1.042e+00 -0.794 0.427146
stenose100% (Occlusion) -1.912e+01 4.954e-09 1.969e+04 -0.001 0.999225
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.913e+01 4.932e-09 4.806e+04 0.000 0.999682
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.367e+00 7.317e-01 0.68899 2.7110
Age 1.072e+00 9.331e-01 1.01871 1.1275
Gendermale 2.755e+00 3.630e-01 1.04766 7.2440
Hypertension.compositeno 2.123e-08 4.709e+07 0.00000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.461e-01 1.057e+00 0.42503 2.1058
SmokerCurrentno 6.625e-01 1.509e+00 0.31288 1.4029
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.040e+00 9.617e-01 0.45305 2.3865
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 2.991e+00 3.343e-01 1.37565 6.5034
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.693e-01 1.032e+00 0.95214 0.9867
BMI 1.069e+00 9.352e-01 0.96671 1.1828
CAD_history 1.278e+00 7.824e-01 0.63761 2.5618
Stroke_history 8.689e-01 1.151e+00 0.40722 1.8539
Peripheral.interv 1.863e+00 5.367e-01 0.83869 4.1396
stenose0-49% 3.162e-09 3.162e+08 0.00000 Inf
stenose50-70% 4.098e-01 2.440e+00 0.03619 4.6407
stenose70-90% 2.515e-01 3.976e+00 0.03118 2.0286
stenose90-99% 4.372e-01 2.287e+00 0.05675 3.3690
stenose100% (Occlusion) 4.954e-09 2.018e+08 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 4.932e-09 2.028e+08 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.841 (se = 0.028 )
Likelihood ratio test= 59.89 on 19 df, p=4e-06
Wald test = 21.5 on 19 df, p=0.3
Score (logrank) test = 56.6 on 19 df, p=1e-05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.312398
Standard error............: 0.349461
Odds ratio (effect size)..: 1.367
Lower 95% CI..............: 0.689
Upper 95% CI..............: 2.711
T-value...................: 0.893944
P-value...................: 0.3713521
Sample size in model......: 1002
Number of events..........: 35
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1006, number of events= 35
(1382 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 5.464e-01 1.727e+00 3.680e-01 1.485 0.137593
Age 6.965e-02 1.072e+00 2.601e-02 2.677 0.007422 **
Gendermale 1.005e+00 2.732e+00 4.908e-01 2.048 0.040545 *
Hypertension.compositeno -1.772e+01 2.009e-08 3.857e+03 -0.005 0.996334
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 4.218e-02 1.043e+00 4.083e-01 0.103 0.917718
SmokerCurrentno -3.826e-01 6.821e-01 3.836e-01 -0.997 0.318610
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -3.352e-02 9.670e-01 4.260e-01 -0.079 0.937271
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.105e+00 3.019e+00 3.963e-01 2.788 0.005308 **
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -3.056e-02 9.699e-01 9.111e-03 -3.354 0.000795 ***
BMI 6.759e-02 1.070e+00 5.231e-02 1.292 0.196361
CAD_history 2.611e-01 1.298e+00 3.523e-01 0.741 0.458589
Stroke_history -1.680e-01 8.454e-01 3.863e-01 -0.435 0.663620
Peripheral.interv 5.397e-01 1.716e+00 4.005e-01 1.348 0.177778
stenose0-49% -1.933e+01 4.012e-09 3.424e+04 -0.001 0.999549
stenose50-70% -9.530e-01 3.856e-01 1.235e+00 -0.772 0.440403
stenose70-90% -1.527e+00 2.172e-01 1.063e+00 -1.437 0.150749
stenose90-99% -1.042e+00 3.528e-01 1.045e+00 -0.997 0.318684
stenose100% (Occlusion) -1.934e+01 3.981e-09 2.180e+04 -0.001 0.999292
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.899e+01 5.679e-09 3.413e+04 -0.001 0.999556
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.727e+00 5.790e-01 0.83957 3.5528
Age 1.072e+00 9.327e-01 1.01884 1.1282
Gendermale 2.732e+00 3.660e-01 1.04423 7.1500
Hypertension.compositeno 2.009e-08 4.978e+07 0.00000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.043e+00 9.587e-01 0.46857 2.3220
SmokerCurrentno 6.821e-01 1.466e+00 0.32163 1.4467
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 9.670e-01 1.034e+00 0.41961 2.2286
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 3.019e+00 3.313e-01 1.38825 6.5635
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.699e-01 1.031e+00 0.95273 0.9874
BMI 1.070e+00 9.346e-01 0.96566 1.1854
CAD_history 1.298e+00 7.702e-01 0.65089 2.5901
Stroke_history 8.454e-01 1.183e+00 0.39652 1.8023
Peripheral.interv 1.716e+00 5.829e-01 0.78252 3.7609
stenose0-49% 4.012e-09 2.493e+08 0.00000 Inf
stenose50-70% 3.856e-01 2.593e+00 0.03426 4.3404
stenose70-90% 2.172e-01 4.604e+00 0.02706 1.7434
stenose90-99% 3.528e-01 2.835e+00 0.04551 2.7347
stenose100% (Occlusion) 3.981e-09 2.512e+08 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 5.679e-09 1.761e+08 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.839 (se = 0.03 )
Likelihood ratio test= 61.36 on 19 df, p=2e-06
Wald test = 24.03 on 19 df, p=0.2
Score (logrank) test = 59.66 on 19 df, p=4e-06
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.546431
Standard error............: 0.368013
Odds ratio (effect size)..: 1.727
Lower 95% CI..............: 0.84
Upper 95% CI..............: 3.553
T-value...................: 1.484815
P-value...................: 0.1375929
Sample size in model......: 1006
Number of events..........: 35
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose, data = TEMP.DF)
n= 1044, number of events= 35
(1344 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] -2.174e-02 9.785e-01 3.452e-01 -0.063 0.949793
Age 6.789e-02 1.070e+00 2.577e-02 2.635 0.008421 **
Gendermale 1.041e+00 2.832e+00 4.920e-01 2.116 0.034334 *
Hypertension.compositeno -1.769e+01 2.075e-08 3.765e+03 -0.005 0.996251
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -2.627e-02 9.741e-01 4.067e-01 -0.065 0.948492
SmokerCurrentno -4.254e-01 6.535e-01 3.816e-01 -1.115 0.264940
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 8.787e-02 1.092e+00 4.219e-01 0.208 0.834997
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.088e+00 2.970e+00 3.978e-01 2.736 0.006214 **
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -3.243e-02 9.681e-01 9.119e-03 -3.556 0.000376 ***
BMI 6.918e-02 1.072e+00 5.133e-02 1.348 0.177742
CAD_history 2.495e-01 1.283e+00 3.531e-01 0.707 0.479796
Stroke_history -1.160e-01 8.905e-01 3.884e-01 -0.299 0.765236
Peripheral.interv 5.734e-01 1.774e+00 4.037e-01 1.421 0.155458
stenose0-49% -1.972e+01 2.716e-09 2.937e+04 -0.001 0.999464
stenose50-70% -9.727e-01 3.781e-01 1.239e+00 -0.785 0.432437
stenose70-90% -1.445e+00 2.358e-01 1.068e+00 -1.353 0.176192
stenose90-99% -9.011e-01 4.061e-01 1.048e+00 -0.860 0.389738
stenose100% (Occlusion) -1.926e+01 4.335e-09 2.009e+04 -0.001 0.999235
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.904e+01 5.407e-09 3.419e+04 -0.001 0.999556
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 9.785e-01 1.022e+00 0.49743 1.9248
Age 1.070e+00 9.344e-01 1.01754 1.1257
Gendermale 2.832e+00 3.531e-01 1.07986 7.4287
Hypertension.compositeno 2.075e-08 4.820e+07 0.00000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.741e-01 1.027e+00 0.43893 2.1616
SmokerCurrentno 6.535e-01 1.530e+00 0.30931 1.3806
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.092e+00 9.159e-01 0.47761 2.4961
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 2.970e+00 3.368e-01 1.36177 6.4754
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.681e-01 1.033e+00 0.95094 0.9855
BMI 1.072e+00 9.332e-01 0.96906 1.1851
CAD_history 1.283e+00 7.792e-01 0.64242 2.5638
Stroke_history 8.905e-01 1.123e+00 0.41589 1.9066
Peripheral.interv 1.774e+00 5.636e-01 0.80432 3.9142
stenose0-49% 2.716e-09 3.681e+08 0.00000 Inf
stenose50-70% 3.781e-01 2.645e+00 0.03333 4.2880
stenose70-90% 2.358e-01 4.241e+00 0.02906 1.9132
stenose90-99% 4.061e-01 2.462e+00 0.05211 3.1654
stenose100% (Occlusion) 4.335e-09 2.307e+08 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 5.407e-09 1.849e+08 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
Concordance= 0.839 (se = 0.029 )
Likelihood ratio test= 60.04 on 19 df, p=4e-06
Wald test = 21.96 on 19 df, p=0.3
Score (logrank) test = 56.98 on 19 df, p=1e-05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: -0.021735
Standard error............: 0.345188
Odds ratio (effect size)..: 0.978
Lower 95% CI..............: 0.497
Upper 95% CI..............: 1.925
T-value...................: -0.062967
P-value...................: 0.9497931
Sample size in model......: 1044
Number of events..........: 35 
cat("- Edit the column names...\n")- Edit the column names...colnames(COX.results) = c("Dataset", "Outcome", "CpG",
"Beta", "s.e.m.",
"HR", "low95CI", "up95CI",
"Z-value", "P-value", "SampleSize", "N_events")
cat("- Correct the variable types...\n")- Correct the variable types...COX.results$Beta <- as.numeric(COX.results$Beta)
COX.results$s.e.m. <- as.numeric(COX.results$s.e.m.)
COX.results$HR <- as.numeric(COX.results$HR)
COX.results$low95CI <- as.numeric(COX.results$low95CI)
COX.results$up95CI <- as.numeric(COX.results$up95CI)
COX.results$`Z-value` <- as.numeric(COX.results$`Z-value`)
COX.results$`P-value` <- as.numeric(COX.results$`P-value`)
COX.results$SampleSize <- as.numeric(COX.results$SampleSize)
COX.results$N_events <- as.numeric(COX.results$N_events)
AEDB.CEA.COX.results <- COX.results
# Save the data
cat("- Writing results to Excel-file...\n")- Writing results to Excel-file...head.style <- createStyle(textDecoration = "BOLD")
write.xlsx(AEDB.CEA.COX.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Cox.2G.MODEL2.xlsx"),
creator = "Sander W. van der Laan",
sheetName = "Results", headerStyle = head.style,
row.names = FALSE, col.names = TRUE, overwrite = TRUE)
# Removing intermediates
cat("- Removing intermediate files...\n")- Removing intermediate files...rm(TEMP.DF, protein, fit, cox, coxplot, COX.results, COX.results.TEMP, head.style, AEDB.CEA.COX.results)
rm(head.style)object 'head.style' not foundMODEL 3
# Set up a dataframe to receive results
COX.results <- data.frame(matrix(NA, ncol = 12, nrow = 0))
# Looping over each protein/endpoint/time combination
for (i in 1:length(times)){
eptime = times[i]
ep = endpoints[i]
cat(paste0("* Analyzing the effect of plaque proteins on [",ep,"].\n"))
cat(" - creating temporary SE for this work.\n")
TEMP.DF = as.data.frame(AEDB.CEA)
cat(" - making a 'Surv' object and adding this to temporary dataframe.\n")
TEMP.DF$event <- as.integer(TEMP.DF[,ep])
#as.integer(TEMP.DF[,ep] == "Excluded")
TEMP.DF$y <- Surv(time = TEMP.DF[,eptime], event = TEMP.DF$event)
cat(" - making strata of each of the plaque proteins and start survival analysis.\n")
for (protein in 1:length(TRAITS.PROTEIN.RANK)){
cat(paste0(" > processing [",TRAITS.PROTEIN.RANK[protein],"]; ",protein," out of ",length(TRAITS.PROTEIN.RANK)," proteins.\n"))
# splitting into two groups
TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]] <- cut2(TEMP.DF[,TRAITS.PROTEIN.RANK[protein]], g = 2)
cat(paste0(" > cross tabulation of ",TRAITS.PROTEIN.RANK[protein],"-stratum.\n"))
show(table(TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]]))
cat(paste0("\n > fitting the model for ",TRAITS.PROTEIN.RANK[protein],"-stratum.\n"))
fit <- survfit(as.formula(paste0("y ~ ", TRAITS.PROTEIN.RANK[protein])), data = TEMP.DF)
cat(paste0("\n > make a Kaplan-Meier-shizzle...\n"))
# make Kaplan-Meier curve and save it
show(ggsurvplot(fit, data = TEMP.DF,
palette = c("#DB003F", "#1290D9"),
# palete = c("F59D10", "#DB003F", "#49A01D", "#1290D9"),
linetype = c(1,2),
# linetype = c(1,2,3,4),
# conf.int = FALSE, conf.int.fill = "#595A5C", conf.int.alpha = 0.1,
pval = FALSE, pval.method = FALSE, pval.size = 4,
risk.table = TRUE, risk.table.y.text = FALSE, tables.y.text.col = TRUE, fontsize = 4,
censor = FALSE,
legend = "right",
legend.title = paste0("",TRAITS.PROTEIN.RANK[protein],""),
legend.labs = c("low", "high"),
title = paste0("Risk of ",ep,""), xlab = "Time [years]", font.main = c(16, "bold", "black")))
dev.copy2pdf(file = paste0(COX_loc,"/",
Today,".AEDB.CEA.survival.",ep,".2G.",
TRAITS.PROTEIN.RANK[protein],".pdf"), width = 12, height = 10, onefile = FALSE)
cat(paste0("\n > perform the Cox-regression fashizzle and plot it...\n"))
### Do Cox-regression and plot it
### MODEL 3 same to model 2, with additional adjustments for circulating CRP levels
cox = coxph(Surv(TEMP.DF[,eptime], event) ~ TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]]+Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI + CAD_history + Stroke_history + Peripheral.interv + stenose + hsCRP_plasma, data = TEMP.DF)
coxplot = coxph(Surv(TEMP.DF[,eptime], event) ~ strata(TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]])+Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI + CAD_history + Stroke_history + Peripheral.interv + stenose + hsCRP_plasma, data = TEMP.DF)
plot(survfit(coxplot), main = paste0("Cox proportional hazard of [",ep,"] per [",eptime,"]."),
# ylim = c(0.2, 1), xlim = c(0,3), col = c("#595A5C", "#DB003F", "#1290D9"),
ylim = c(0, 1), xlim = c(0,3), col = c("#DB003F", "#1290D9"),
lty = c(1,2), lwd = 2,
ylab = "Suvival probability", xlab = "FU time [years]",
mark.time = FALSE, axes = FALSE, bty = "n")
legend("topright",
c("low", "high"),
title = paste0("",TRAITS.PROTEIN.RANK[protein],""),
col = c("#DB003F", "#1290D9"),
lty = c(1,2), lwd = 2,
bty = "n")
axis(side = 1, at = seq(0, 3, by = 1))
axis(side = 2, at = seq(0, 1, by = 0.2))
dev.copy2pdf(file = paste0(COX_loc,"/",
Today,".AEDB.CEA.Cox.",ep,".2G.",
# Today,".AEDB.CEA.Cox.",ep,".4G.",
TRAITS.PROTEIN.RANK[protein],".MODEL3.pdf"), height = 12, width = 10, onefile = TRUE)
show(summary(cox))
cat(paste0("\n > writing the Cox-regression fashizzle to Excel...\n"))
COX.results.TEMP <- data.frame(matrix(NA, ncol = 12, nrow = 0))
COX.results.TEMP[1,] = COX.STAT(cox, "AEDB.CEA", ep, TRAITS.PROTEIN.RANK[protein])
COX.results = rbind(COX.results, COX.results.TEMP)
}
}* Analyzing the effect of plaque proteins on [epmajor.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 268, number of events= 35
(2120 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] -5.459e-01 5.793e-01 3.897e-01 -1.401 0.16128
Age 1.227e-01 1.131e+00 3.092e-02 3.969 7.23e-05 ***
Gendermale 1.010e+00 2.746e+00 5.246e-01 1.926 0.05415 .
Hypertension.compositeno -4.907e-01 6.122e-01 6.472e-01 -0.758 0.44835
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.211e+00 3.355e+00 4.305e-01 2.812 0.00492 **
SmokerCurrentno -5.491e-01 5.775e-01 3.795e-01 -1.447 0.14788
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 7.838e-02 1.082e+00 4.133e-01 0.190 0.84961
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno -7.814e-01 4.578e-01 8.461e-01 -0.924 0.35571
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 7.143e-03 1.007e+00 1.087e-02 0.657 0.51118
BMI 1.431e-03 1.001e+00 5.364e-02 0.027 0.97871
CAD_history 5.748e-01 1.777e+00 3.866e-01 1.487 0.13705
Stroke_history -1.171e-01 8.895e-01 4.013e-01 -0.292 0.77037
Peripheral.interv 1.034e-01 1.109e+00 4.582e-01 0.226 0.82151
stenose0-49% -1.938e+01 3.824e-09 1.012e+04 -0.002 0.99847
stenose50-70% -1.844e+01 9.795e-09 3.557e+03 -0.005 0.99586
stenose70-90% -2.610e+00 7.353e-02 1.186e+00 -2.201 0.02774 *
stenose90-99% -3.683e+00 2.514e-02 1.248e+00 -2.950 0.00317 **
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 5.765e-03 1.006e+00 1.816e-03 3.175 0.00150 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 5.793e-01 1.726e+00 0.269928 1.2435
Age 1.131e+00 8.845e-01 1.064087 1.2012
Gendermale 2.746e+00 3.642e-01 0.982133 7.6770
Hypertension.compositeno 6.122e-01 1.633e+00 0.172207 2.1766
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 3.355e+00 2.980e-01 1.443127 7.8007
SmokerCurrentno 5.775e-01 1.732e+00 0.274482 1.2149
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.082e+00 9.246e-01 0.481055 2.4315
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 4.578e-01 2.185e+00 0.087191 2.4033
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.007e+00 9.929e-01 0.985934 1.0289
BMI 1.001e+00 9.986e-01 0.901503 1.1124
CAD_history 1.777e+00 5.628e-01 0.832850 3.7908
Stroke_history 8.895e-01 1.124e+00 0.405065 1.9531
Peripheral.interv 1.109e+00 9.018e-01 0.451705 2.7223
stenose0-49% 3.824e-09 2.615e+08 0.000000 Inf
stenose50-70% 9.795e-09 1.021e+08 0.000000 Inf
stenose70-90% 7.353e-02 1.360e+01 0.007196 0.7514
stenose90-99% 2.514e-02 3.978e+01 0.002176 0.2904
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.006e+00 9.943e-01 1.002209 1.0094
Concordance= 0.811 (se = 0.035 )
Likelihood ratio test= 57.83 on 18 df, p=5e-06
Wald test = 36.37 on 18 df, p=0.006
Score (logrank) test = 99.38 on 18 df, p=3e-13
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6_rank
Effect size...............: -0.545852
Standard error............: 0.389675
Odds ratio (effect size)..: 0.579
Lower 95% CI..............: 0.27
Upper 95% CI..............: 1.243
T-value...................: -1.400788
P-value...................: 0.1612775
Sample size in model......: 268
Number of events..........: 35
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 282, number of events= 37
(2106 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -8.868e-01 4.120e-01 3.678e-01 -2.411 0.015921 *
Age 1.015e-01 1.107e+00 2.855e-02 3.555 0.000377 ***
Gendermale 1.123e+00 3.073e+00 5.091e-01 2.205 0.027422 *
Hypertension.compositeno -4.126e-01 6.619e-01 6.362e-01 -0.649 0.516564
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 7.775e-01 2.176e+00 4.208e-01 1.848 0.064627 .
SmokerCurrentno -6.027e-01 5.474e-01 3.683e-01 -1.636 0.101762
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.050e-02 1.031e+00 4.058e-01 0.075 0.940097
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno -1.373e+00 2.532e-01 8.302e-01 -1.654 0.098072 .
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 6.310e-04 1.001e+00 1.018e-02 0.062 0.950582
BMI 1.886e-02 1.019e+00 4.571e-02 0.412 0.679994
CAD_history 3.407e-01 1.406e+00 3.736e-01 0.912 0.361863
Stroke_history -2.990e-01 7.415e-01 3.852e-01 -0.776 0.437536
Peripheral.interv 2.667e-01 1.306e+00 4.307e-01 0.619 0.535753
stenose0-49% -2.044e+01 1.330e-09 1.406e+04 -0.001 0.998840
stenose50-70% -1.946e+01 3.552e-09 5.496e+03 -0.004 0.997175
stenose70-90% -2.985e+00 5.053e-02 1.196e+00 -2.495 0.012581 *
stenose90-99% -3.958e+00 1.911e-02 1.243e+00 -3.185 0.001448 **
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 6.384e-03 1.006e+00 1.939e-03 3.293 0.000991 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 4.120e-01 2.427e+00 0.200342 0.8472
Age 1.107e+00 9.035e-01 1.046604 1.1705
Gendermale 3.073e+00 3.254e-01 1.133122 8.3358
Hypertension.compositeno 6.619e-01 1.511e+00 0.190237 2.3030
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 2.176e+00 4.595e-01 0.953914 4.9640
SmokerCurrentno 5.474e-01 1.827e+00 0.265933 1.1266
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.031e+00 9.700e-01 0.465386 2.2839
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 2.532e-01 3.949e+00 0.049753 1.2889
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.001e+00 9.994e-01 0.980861 1.0208
BMI 1.019e+00 9.813e-01 0.931702 1.1146
CAD_history 1.406e+00 7.113e-01 0.675969 2.9240
Stroke_history 7.415e-01 1.349e+00 0.348535 1.5776
Peripheral.interv 1.306e+00 7.659e-01 0.561294 3.0374
stenose0-49% 1.330e-09 7.519e+08 0.000000 Inf
stenose50-70% 3.552e-09 2.815e+08 0.000000 Inf
stenose70-90% 5.053e-02 1.979e+01 0.004845 0.5270
stenose90-99% 1.911e-02 5.234e+01 0.001673 0.2182
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.006e+00 9.936e-01 1.002588 1.0102
Concordance= 0.785 (se = 0.039 )
Likelihood ratio test= 56.22 on 18 df, p=8e-06
Wald test = 36.47 on 18 df, p=0.006
Score (logrank) test = 96.15 on 18 df, p=1e-12
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: MCP1_rank
Effect size...............: -0.886767
Standard error............: 0.367844
Odds ratio (effect size)..: 0.412
Lower 95% CI..............: 0.2
Upper 95% CI..............: 0.847
T-value...................: -2.410713
P-value...................: 0.01592137
Sample size in model......: 282
Number of events..........: 37
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 618, number of events= 70
(1770 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 3.142e-01 1.369e+00 2.485e-01 1.264 0.206167
Age 6.558e-02 1.068e+00 1.756e-02 3.735 0.000188 ***
Gendermale 1.155e+00 3.173e+00 3.397e-01 3.399 0.000676 ***
Hypertension.compositeno -1.540e-01 8.573e-01 4.184e-01 -0.368 0.712809
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.634e-01 1.177e+00 2.902e-01 0.563 0.573433
SmokerCurrentno -4.001e-01 6.702e-01 2.676e-01 -1.495 0.134858
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.136e-01 1.368e+00 2.750e-01 1.141 0.254056
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 2.109e-01 1.235e+00 3.565e-01 0.592 0.554076
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.227e-02 9.878e-01 6.612e-03 -1.856 0.063401 .
BMI 3.692e-02 1.038e+00 3.542e-02 1.042 0.297219
CAD_history 2.888e-03 1.003e+00 2.698e-01 0.011 0.991459
Stroke_history -1.418e-01 8.678e-01 2.673e-01 -0.531 0.595723
Peripheral.interv 8.442e-01 2.326e+00 2.774e-01 3.043 0.002344 **
stenose0-49% -1.473e+01 3.992e-07 2.091e+03 -0.007 0.994378
stenose50-70% -1.207e+00 2.991e-01 1.241e+00 -0.973 0.330584
stenose70-90% -3.726e-01 6.889e-01 1.031e+00 -0.361 0.717882
stenose90-99% -5.464e-01 5.790e-01 1.033e+00 -0.529 0.596974
stenose100% (Occlusion) 1.423e+00 4.148e+00 1.474e+00 0.965 0.334614
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.720e-03 1.002e+00 6.275e-04 2.741 0.006131 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.369e+00 7.304e-01 0.84119 2.229
Age 1.068e+00 9.365e-01 1.03166 1.105
Gendermale 3.173e+00 3.151e-01 1.63057 6.175
Hypertension.compositeno 8.573e-01 1.167e+00 0.37752 1.947
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.177e+00 8.493e-01 0.66674 2.079
SmokerCurrentno 6.702e-01 1.492e+00 0.39667 1.132
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.368e+00 7.308e-01 0.79826 2.346
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.235e+00 8.098e-01 0.61397 2.484
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.878e-01 1.012e+00 0.97508 1.001
BMI 1.038e+00 9.638e-01 0.96803 1.112
CAD_history 1.003e+00 9.971e-01 0.59104 1.702
Stroke_history 8.678e-01 1.152e+00 0.51388 1.465
Peripheral.interv 2.326e+00 4.299e-01 1.35042 4.007
stenose0-49% 3.992e-07 2.505e+06 0.00000 Inf
stenose50-70% 2.991e-01 3.343e+00 0.02629 3.402
stenose70-90% 6.889e-01 1.452e+00 0.09126 5.201
stenose90-99% 5.790e-01 1.727e+00 0.07641 4.388
stenose100% (Occlusion) 4.148e+00 2.411e-01 0.23058 74.614
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.002e+00 9.983e-01 1.00049 1.003
Concordance= 0.72 (se = 0.032 )
Likelihood ratio test= 53.45 on 19 df, p=4e-05
Wald test = 44.44 on 19 df, p=8e-04
Score (logrank) test = 49.32 on 19 df, p=2e-04
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.314211
Standard error............: 0.24855
Odds ratio (effect size)..: 1.369
Lower 95% CI..............: 0.841
Upper 95% CI..............: 2.229
T-value...................: 1.264176
P-value...................: 0.2061668
Sample size in model......: 618
Number of events..........: 70
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 623, number of events= 73
(1765 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 4.692e-01 1.599e+00 2.551e-01 1.839 0.065846 .
Age 5.905e-02 1.061e+00 1.712e-02 3.448 0.000564 ***
Gendermale 9.005e-01 2.461e+00 3.147e-01 2.862 0.004213 **
Hypertension.compositeno -3.360e-02 9.670e-01 3.950e-01 -0.085 0.932211
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.468e-01 1.158e+00 2.870e-01 0.511 0.609052
SmokerCurrentno -2.058e-01 8.140e-01 2.630e-01 -0.782 0.433941
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.683e-01 1.308e+00 2.716e-01 0.988 0.323263
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.372e-01 1.147e+00 3.548e-01 0.387 0.698884
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.148e-02 9.886e-01 6.503e-03 -1.766 0.077473 .
BMI 4.213e-02 1.043e+00 3.544e-02 1.189 0.234513
CAD_history 2.864e-02 1.029e+00 2.646e-01 0.108 0.913801
Stroke_history -1.326e-01 8.759e-01 2.609e-01 -0.508 0.611425
Peripheral.interv 6.794e-01 1.973e+00 2.736e-01 2.484 0.013009 *
stenose0-49% -1.532e+01 2.214e-07 4.315e+03 -0.004 0.997166
stenose50-70% -1.435e+00 2.380e-01 1.249e+00 -1.149 0.250518
stenose70-90% -4.917e-01 6.116e-01 1.032e+00 -0.476 0.633801
stenose90-99% -7.206e-01 4.865e-01 1.037e+00 -0.695 0.487213
stenose100% (Occlusion) 1.051e+00 2.862e+00 1.468e+00 0.716 0.473841
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.500e+01 3.050e-07 4.201e+03 -0.004 0.997151
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.724e-03 1.002e+00 6.220e-04 2.772 0.005580 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.599e+00 6.255e-01 0.96973 2.636
Age 1.061e+00 9.427e-01 1.02581 1.097
Gendermale 2.461e+00 4.064e-01 1.32812 4.560
Hypertension.compositeno 9.670e-01 1.034e+00 0.44580 2.097
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.158e+00 8.635e-01 0.65990 2.032
SmokerCurrentno 8.140e-01 1.229e+00 0.48611 1.363
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.308e+00 7.647e-01 0.76791 2.227
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.147e+00 8.718e-01 0.57228 2.299
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.886e-01 1.012e+00 0.97606 1.001
BMI 1.043e+00 9.587e-01 0.97304 1.118
CAD_history 1.029e+00 9.718e-01 0.61267 1.728
Stroke_history 8.759e-01 1.142e+00 0.52522 1.461
Peripheral.interv 1.973e+00 5.069e-01 1.15399 3.372
stenose0-49% 2.214e-07 4.518e+06 0.00000 Inf
stenose50-70% 2.380e-01 4.201e+00 0.02057 2.754
stenose70-90% 6.116e-01 1.635e+00 0.08087 4.625
stenose90-99% 4.865e-01 2.056e+00 0.06371 3.715
stenose100% (Occlusion) 2.862e+00 3.494e-01 0.16108 50.847
stenoseNA NA NA NA NA
stenose50-99% 3.050e-07 3.279e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.002e+00 9.983e-01 1.00050 1.003
Concordance= 0.703 (se = 0.033 )
Likelihood ratio test= 47.73 on 20 df, p=5e-04
Wald test = 40.43 on 20 df, p=0.004
Score (logrank) test = 45.02 on 20 df, p=0.001
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.469189
Standard error............: 0.255067
Odds ratio (effect size)..: 1.599
Lower 95% CI..............: 0.97
Upper 95% CI..............: 2.636
T-value...................: 1.839474
P-value...................: 0.06584551
Sample size in model......: 623
Number of events..........: 73
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 642, number of events= 74
(1746 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 2.201e-01 1.246e+00 2.431e-01 0.905 0.365212
Age 5.764e-02 1.059e+00 1.683e-02 3.426 0.000613 ***
Gendermale 8.810e-01 2.413e+00 3.078e-01 2.862 0.004206 **
Hypertension.compositeno -5.189e-02 9.494e-01 3.941e-01 -0.132 0.895245
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.785e-01 1.195e+00 2.823e-01 0.632 0.527074
SmokerCurrentno -2.384e-01 7.879e-01 2.611e-01 -0.913 0.361350
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.541e-01 1.425e+00 2.664e-01 1.329 0.183735
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.218e-01 1.130e+00 3.526e-01 0.345 0.729815
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.364e-02 9.865e-01 6.516e-03 -2.093 0.036305 *
BMI 4.530e-02 1.046e+00 3.367e-02 1.345 0.178509
CAD_history -3.796e-02 9.628e-01 2.627e-01 -0.145 0.885093
Stroke_history -1.252e-01 8.823e-01 2.611e-01 -0.479 0.631705
Peripheral.interv 6.843e-01 1.982e+00 2.733e-01 2.504 0.012277 *
stenose0-49% -1.558e+01 1.705e-07 3.356e+03 -0.005 0.996295
stenose50-70% -1.149e+00 3.168e-01 1.240e+00 -0.927 0.354080
stenose70-90% -2.584e-01 7.723e-01 1.033e+00 -0.250 0.802554
stenose90-99% -3.903e-01 6.769e-01 1.037e+00 -0.376 0.706558
stenose100% (Occlusion) 1.598e+00 4.944e+00 1.484e+00 1.077 0.281380
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.497e+01 3.145e-07 4.137e+03 -0.004 0.997112
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.664e-03 1.002e+00 6.027e-04 2.761 0.005764 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.246e+00 8.025e-01 0.77391 2.0067
Age 1.059e+00 9.440e-01 1.02497 1.0949
Gendermale 2.413e+00 4.144e-01 1.32013 4.4118
Hypertension.compositeno 9.494e-01 1.053e+00 0.43856 2.0554
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.195e+00 8.365e-01 0.68747 2.0789
SmokerCurrentno 7.879e-01 1.269e+00 0.47228 1.3145
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.425e+00 7.018e-01 0.84537 2.4017
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.130e+00 8.853e-01 0.56592 2.2544
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.865e-01 1.014e+00 0.97393 0.9991
BMI 1.046e+00 9.557e-01 0.97952 1.1177
CAD_history 9.628e-01 1.039e+00 0.57535 1.6110
Stroke_history 8.823e-01 1.133e+00 0.52887 1.4721
Peripheral.interv 1.982e+00 5.045e-01 1.16030 3.3866
stenose0-49% 1.705e-07 5.866e+06 0.00000 Inf
stenose50-70% 3.168e-01 3.156e+00 0.02787 3.6020
stenose70-90% 7.723e-01 1.295e+00 0.10189 5.8538
stenose90-99% 6.769e-01 1.477e+00 0.08874 5.1628
stenose100% (Occlusion) 4.944e+00 2.023e-01 0.26991 90.5629
stenoseNA NA NA NA NA
stenose50-99% 3.145e-07 3.179e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.002e+00 9.983e-01 1.00048 1.0028
Concordance= 0.701 (se = 0.032 )
Likelihood ratio test= 46.5 on 20 df, p=7e-04
Wald test = 39.27 on 20 df, p=0.006
Score (logrank) test = 43.7 on 20 df, p=0.002
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.220083
Standard error............: 0.243057
Odds ratio (effect size)..: 1.246
Lower 95% CI..............: 0.774
Upper 95% CI..............: 2.007
T-value...................: 0.905479
P-value...................: 0.3652118
Sample size in model......: 642
Number of events..........: 74
* Analyzing the effect of plaque proteins on [epstroke.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 268, number of events= 16
(2120 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] -6.343e-01 5.303e-01 5.812e-01 -1.091 0.27513
Age 1.118e-01 1.118e+00 4.212e-02 2.655 0.00793 **
Gendermale 2.721e-01 1.313e+00 6.816e-01 0.399 0.68975
Hypertension.compositeno -3.726e-01 6.889e-01 8.437e-01 -0.442 0.65875
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 2.760e-01 1.318e+00 7.372e-01 0.374 0.70815
SmokerCurrentno -3.276e-01 7.206e-01 5.847e-01 -0.560 0.57526
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 6.236e-02 1.064e+00 6.046e-01 0.103 0.91784
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno -6.084e-01 5.442e-01 1.205e+00 -0.505 0.61357
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 1.413e-02 1.014e+00 1.725e-02 0.819 0.41262
BMI 2.352e-02 1.024e+00 7.812e-02 0.301 0.76336
CAD_history 1.104e-01 1.117e+00 6.060e-01 0.182 0.85540
Stroke_history 8.518e-03 1.009e+00 5.725e-01 0.015 0.98813
Peripheral.interv -4.181e-01 6.583e-01 7.891e-01 -0.530 0.59618
stenose0-49% -1.949e+01 3.441e-09 1.647e+04 -0.001 0.99906
stenose50-70% -1.886e+01 6.418e-09 6.979e+03 -0.003 0.99784
stenose70-90% -2.966e+00 5.151e-02 1.357e+00 -2.186 0.02882 *
stenose90-99% -3.589e+00 2.763e-02 1.406e+00 -2.553 0.01068 *
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 4.996e-03 1.005e+00 1.756e-03 2.845 0.00444 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 5.303e-01 1.886e+00 0.169747 1.6568
Age 1.118e+00 8.942e-01 1.029711 1.2146
Gendermale 1.313e+00 7.618e-01 0.345159 4.9923
Hypertension.compositeno 6.889e-01 1.452e+00 0.131836 3.6002
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.318e+00 7.588e-01 0.310717 5.5889
SmokerCurrentno 7.206e-01 1.388e+00 0.229109 2.2667
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.064e+00 9.395e-01 0.325439 3.4810
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 5.442e-01 1.837e+00 0.051321 5.7712
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.014e+00 9.860e-01 0.980521 1.0491
BMI 1.024e+00 9.768e-01 0.878449 1.1932
CAD_history 1.117e+00 8.955e-01 0.340531 3.6623
Stroke_history 1.009e+00 9.915e-01 0.328392 3.0975
Peripheral.interv 6.583e-01 1.519e+00 0.140194 3.0909
stenose0-49% 3.441e-09 2.907e+08 0.000000 Inf
stenose50-70% 6.418e-09 1.558e+08 0.000000 Inf
stenose70-90% 5.151e-02 1.941e+01 0.003605 0.7360
stenose90-99% 2.763e-02 3.620e+01 0.001757 0.4344
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.005e+00 9.950e-01 1.001556 1.0085
Concordance= 0.775 (se = 0.062 )
Likelihood ratio test= 24.03 on 18 df, p=0.2
Wald test = 13.98 on 18 df, p=0.7
Score (logrank) test = 69.62 on 18 df, p=5e-08
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6_rank
Effect size...............: -0.634292
Standard error............: 0.581212
Odds ratio (effect size)..: 0.53
Lower 95% CI..............: 0.17
Upper 95% CI..............: 1.657
T-value...................: -1.091327
P-value...................: 0.2751288
Sample size in model......: 268
Number of events..........: 16
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 282, number of events= 17
(2106 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -1.353e+00 2.584e-01 5.944e-01 -2.276 0.02282 *
Age 7.559e-02 1.079e+00 3.884e-02 1.946 0.05162 .
Gendermale 6.031e-01 1.828e+00 6.803e-01 0.886 0.37539
Hypertension.compositeno 8.003e-03 1.008e+00 8.095e-01 0.010 0.99211
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -2.550e-01 7.749e-01 7.332e-01 -0.348 0.72802
SmokerCurrentno -1.702e-01 8.435e-01 5.799e-01 -0.293 0.76919
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.128e-02 1.022e+00 5.846e-01 0.036 0.97097
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno -1.196e+00 3.025e-01 1.332e+00 -0.898 0.36918
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 1.406e-02 1.014e+00 1.608e-02 0.874 0.38201
BMI 7.504e-02 1.078e+00 6.347e-02 1.182 0.23709
CAD_history -5.998e-02 9.418e-01 5.898e-01 -0.102 0.91899
Stroke_history -2.604e-01 7.707e-01 5.579e-01 -0.467 0.64066
Peripheral.interv -5.122e-01 5.992e-01 7.849e-01 -0.652 0.51409
stenose0-49% -1.930e+01 4.153e-09 1.660e+04 -0.001 0.99907
stenose50-70% -1.950e+01 3.405e-09 6.144e+03 -0.003 0.99747
stenose70-90% -3.365e+00 3.456e-02 1.443e+00 -2.333 0.01967 *
stenose90-99% -3.694e+00 2.487e-02 1.447e+00 -2.552 0.01070 *
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 5.712e-03 1.006e+00 1.759e-03 3.248 0.00116 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 2.584e-01 3.870e+00 0.080610 0.8285
Age 1.079e+00 9.272e-01 0.999468 1.1638
Gendermale 1.828e+00 5.471e-01 0.481725 6.9347
Hypertension.compositeno 1.008e+00 9.920e-01 0.206272 4.9262
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 7.749e-01 1.290e+00 0.184132 3.2613
SmokerCurrentno 8.435e-01 1.186e+00 0.270693 2.6286
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.022e+00 9.789e-01 0.324801 3.2126
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 3.025e-01 3.306e+00 0.022246 4.1127
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.014e+00 9.860e-01 0.982693 1.0466
BMI 1.078e+00 9.277e-01 0.951838 1.2207
CAD_history 9.418e-01 1.062e+00 0.296414 2.9923
Stroke_history 7.707e-01 1.297e+00 0.258260 2.3002
Peripheral.interv 5.992e-01 1.669e+00 0.128657 2.7907
stenose0-49% 4.153e-09 2.408e+08 0.000000 Inf
stenose50-70% 3.405e-09 2.937e+08 0.000000 Inf
stenose70-90% 3.456e-02 2.894e+01 0.002045 0.5841
stenose90-99% 2.487e-02 4.022e+01 0.001457 0.4243
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.006e+00 9.943e-01 1.002267 1.0092
Concordance= 0.778 (se = 0.044 )
Likelihood ratio test= 27.05 on 18 df, p=0.08
Wald test = 17.77 on 18 df, p=0.5
Score (logrank) test = 74.01 on 18 df, p=9e-09
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: MCP1_rank
Effect size...............: -1.353138
Standard error............: 0.594398
Odds ratio (effect size)..: 0.258
Lower 95% CI..............: 0.081
Upper 95% CI..............: 0.829
T-value...................: -2.276484
P-value...................: 0.02281707
Sample size in model......: 282
Number of events..........: 17
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 618, number of events= 36
(1770 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] -7.706e-02 9.258e-01 3.574e-01 -0.216 0.829293
Age 1.048e-01 1.110e+00 2.521e-02 4.155 3.25e-05 ***
Gendermale 1.112e+00 3.040e+00 4.667e-01 2.382 0.017222 *
Hypertension.compositeno 2.472e-01 1.280e+00 4.770e-01 0.518 0.604307
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.545e-01 1.167e+00 4.216e-01 0.366 0.714022
SmokerCurrentno 5.431e-02 1.056e+00 4.023e-01 0.135 0.892602
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 5.182e-01 1.679e+00 3.595e-01 1.442 0.149407
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 8.201e-02 1.085e+00 5.079e-01 0.161 0.871733
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 6.588e-03 1.007e+00 9.032e-03 0.729 0.465734
BMI 1.056e-01 1.111e+00 4.614e-02 2.288 0.022120 *
CAD_history -9.445e-01 3.889e-01 4.605e-01 -2.051 0.040259 *
Stroke_history 1.343e-01 1.144e+00 3.670e-01 0.366 0.714459
Peripheral.interv 9.068e-01 2.476e+00 4.014e-01 2.259 0.023885 *
stenose0-49% -2.542e-01 7.755e-01 7.243e+03 0.000 0.999972
stenose50-70% 1.562e+01 6.097e+06 4.571e+03 0.003 0.997273
stenose70-90% 1.597e+01 8.649e+06 4.571e+03 0.003 0.997212
stenose90-99% 1.576e+01 6.960e+06 4.571e+03 0.003 0.997250
stenose100% (Occlusion) 1.859e+01 1.188e+08 4.571e+03 0.004 0.996755
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 2.753e-03 1.003e+00 7.714e-04 3.569 0.000359 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 9.258e-01 1.080e+00 0.4595 1.8653
Age 1.110e+00 9.005e-01 1.0569 1.1667
Gendermale 3.040e+00 3.290e-01 1.2177 7.5878
Hypertension.compositeno 1.280e+00 7.810e-01 0.5027 3.2615
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.167e+00 8.569e-01 0.5108 2.6665
SmokerCurrentno 1.056e+00 9.471e-01 0.4799 2.3227
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.679e+00 5.956e-01 0.8300 3.3966
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.085e+00 9.213e-01 0.4011 2.9374
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.007e+00 9.934e-01 0.9889 1.0246
BMI 1.111e+00 8.998e-01 1.0153 1.2165
CAD_history 3.889e-01 2.572e+00 0.1577 0.9589
Stroke_history 1.144e+00 8.744e-01 0.5571 2.3480
Peripheral.interv 2.476e+00 4.038e-01 1.1275 5.4385
stenose0-49% 7.755e-01 1.289e+00 0.0000 Inf
stenose50-70% 6.097e+06 1.640e-07 0.0000 Inf
stenose70-90% 8.649e+06 1.156e-07 0.0000 Inf
stenose90-99% 6.960e+06 1.437e-07 0.0000 Inf
stenose100% (Occlusion) 1.188e+08 8.416e-09 0.0000 Inf
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.003e+00 9.973e-01 1.0012 1.0043
Concordance= 0.751 (se = 0.045 )
Likelihood ratio test= 41.44 on 19 df, p=0.002
Wald test = 34.59 on 19 df, p=0.02
Score (logrank) test = 40.43 on 19 df, p=0.003
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: -0.077056
Standard error............: 0.357389
Odds ratio (effect size)..: 0.926
Lower 95% CI..............: 0.46
Upper 95% CI..............: 1.865
T-value...................: -0.215609
P-value...................: 0.8292928
Sample size in model......: 618
Number of events..........: 36
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 623, number of events= 38
(1765 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.328e-01 1.142e+00 3.479e-01 0.382 0.702622
Age 9.242e-02 1.097e+00 2.385e-02 3.875 0.000106 ***
Gendermale 9.010e-01 2.462e+00 4.339e-01 2.076 0.037867 *
Hypertension.compositeno 3.920e-01 1.480e+00 4.465e-01 0.878 0.380042
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 8.893e-02 1.093e+00 4.131e-01 0.215 0.829560
SmokerCurrentno 2.213e-01 1.248e+00 3.964e-01 0.558 0.576680
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 5.507e-01 1.734e+00 3.524e-01 1.563 0.118089
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 6.852e-03 1.007e+00 5.053e-01 0.014 0.989181
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 8.250e-03 1.008e+00 8.828e-03 0.935 0.350035
BMI 1.240e-01 1.132e+00 4.815e-02 2.576 0.009999 **
CAD_history -7.710e-01 4.625e-01 4.351e-01 -1.772 0.076349 .
Stroke_history 1.645e-01 1.179e+00 3.523e-01 0.467 0.640471
Peripheral.interv 8.030e-01 2.232e+00 3.973e-01 2.021 0.043271 *
stenose0-49% 7.960e-01 2.217e+00 1.113e+04 0.000 0.999943
stenose50-70% 1.592e+01 8.239e+06 5.452e+03 0.003 0.997669
stenose70-90% 1.640e+01 1.321e+07 5.452e+03 0.003 0.997600
stenose90-99% 1.608e+01 9.642e+06 5.452e+03 0.003 0.997646
stenose100% (Occlusion) 1.888e+01 1.579e+08 5.452e+03 0.003 0.997237
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% 6.571e-01 1.929e+00 1.157e+04 0.000 0.999955
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 2.565e-03 1.003e+00 7.306e-04 3.510 0.000448 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.142e+00 8.756e-01 0.5775 2.259
Age 1.097e+00 9.117e-01 1.0467 1.149
Gendermale 2.462e+00 4.062e-01 1.0518 5.763
Hypertension.compositeno 1.480e+00 6.757e-01 0.6168 3.551
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.093e+00 9.149e-01 0.4864 2.456
SmokerCurrentno 1.248e+00 8.015e-01 0.5737 2.714
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.734e+00 5.766e-01 0.8694 3.460
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.007e+00 9.932e-01 0.3740 2.711
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.008e+00 9.918e-01 0.9910 1.026
BMI 1.132e+00 8.834e-01 1.0301 1.244
CAD_history 4.625e-01 2.162e+00 0.1972 1.085
Stroke_history 1.179e+00 8.483e-01 0.5910 2.351
Peripheral.interv 2.232e+00 4.480e-01 1.0246 4.863
stenose0-49% 2.217e+00 4.511e-01 0.0000 Inf
stenose50-70% 8.239e+06 1.214e-07 0.0000 Inf
stenose70-90% 1.321e+07 7.571e-08 0.0000 Inf
stenose90-99% 9.642e+06 1.037e-07 0.0000 Inf
stenose100% (Occlusion) 1.579e+08 6.333e-09 0.0000 Inf
stenoseNA NA NA NA NA
stenose50-99% 1.929e+00 5.183e-01 0.0000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.003e+00 9.974e-01 1.0011 1.004
Concordance= 0.74 (se = 0.045 )
Likelihood ratio test= 39.66 on 20 df, p=0.006
Wald test = 33.6 on 20 df, p=0.03
Score (logrank) test = 39.52 on 20 df, p=0.006
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.132838
Standard error............: 0.347941
Odds ratio (effect size)..: 1.142
Lower 95% CI..............: 0.577
Upper 95% CI..............: 2.259
T-value...................: 0.381784
P-value...................: 0.7026217
Sample size in model......: 623
Number of events..........: 38
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 642, number of events= 39
(1746 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.603e-01 1.174e+00 3.445e-01 0.465 0.641655
Age 9.215e-02 1.097e+00 2.345e-02 3.929 8.53e-05 ***
Gendermale 8.195e-01 2.269e+00 4.185e-01 1.958 0.050198 .
Hypertension.compositeno 3.903e-01 1.477e+00 4.448e-01 0.877 0.380225
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.920e-01 1.212e+00 4.029e-01 0.477 0.633640
SmokerCurrentno 2.378e-01 1.268e+00 3.930e-01 0.605 0.545145
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 5.567e-01 1.745e+00 3.438e-01 1.619 0.105420
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno -3.158e-02 9.689e-01 5.040e-01 -0.063 0.950038
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 5.474e-03 1.005e+00 8.808e-03 0.621 0.534299
BMI 1.111e-01 1.118e+00 4.235e-02 2.624 0.008682 **
CAD_history -8.088e-01 4.454e-01 4.280e-01 -1.890 0.058786 .
Stroke_history 1.279e-01 1.136e+00 3.524e-01 0.363 0.716665
Peripheral.interv 7.314e-01 2.078e+00 3.961e-01 1.846 0.064855 .
stenose0-49% -1.147e-02 9.886e-01 7.076e+03 0.000 0.999999
stenose50-70% 1.553e+01 5.543e+06 4.362e+03 0.004 0.997160
stenose70-90% 1.601e+01 8.936e+06 4.362e+03 0.004 0.997072
stenose90-99% 1.581e+01 7.344e+06 4.362e+03 0.004 0.997108
stenose100% (Occlusion) 1.865e+01 1.253e+08 4.362e+03 0.004 0.996589
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% 8.436e-01 2.325e+00 8.528e+03 0.000 0.999921
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 2.534e-03 1.003e+00 7.256e-04 3.492 0.000479 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.174e+00 8.519e-01 0.5976 2.306
Age 1.097e+00 9.120e-01 1.0473 1.148
Gendermale 2.269e+00 4.407e-01 0.9993 5.154
Hypertension.compositeno 1.477e+00 6.768e-01 0.6178 3.533
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.212e+00 8.253e-01 0.5501 2.669
SmokerCurrentno 1.268e+00 7.884e-01 0.5871 2.740
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.745e+00 5.731e-01 0.8894 3.423
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 9.689e-01 1.032e+00 0.3608 2.602
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.005e+00 9.945e-01 0.9883 1.023
BMI 1.118e+00 8.948e-01 1.0285 1.214
CAD_history 4.454e-01 2.245e+00 0.1925 1.030
Stroke_history 1.136e+00 8.799e-01 0.5696 2.267
Peripheral.interv 2.078e+00 4.812e-01 0.9560 4.517
stenose0-49% 9.886e-01 1.012e+00 0.0000 Inf
stenose50-70% 5.543e+06 1.804e-07 0.0000 Inf
stenose70-90% 8.936e+06 1.119e-07 0.0000 Inf
stenose90-99% 7.344e+06 1.362e-07 0.0000 Inf
stenose100% (Occlusion) 1.253e+08 7.980e-09 0.0000 Inf
stenoseNA NA NA NA NA
stenose50-99% 2.325e+00 4.302e-01 0.0000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.003e+00 9.975e-01 1.0011 1.004
Concordance= 0.743 (se = 0.043 )
Likelihood ratio test= 39.62 on 20 df, p=0.006
Wald test = 33.61 on 20 df, p=0.03
Score (logrank) test = 39.6 on 20 df, p=0.006
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.160313
Standard error............: 0.344474
Odds ratio (effect size)..: 1.174
Lower 95% CI..............: 0.598
Upper 95% CI..............: 2.306
T-value...................: 0.465386
P-value...................: 0.6416551
Sample size in model......: 642
Number of events..........: 39
* Analyzing the effect of plaque proteins on [epcoronary.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 268, number of events= 26
(2120 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] -1.951e-01 8.228e-01 4.190e-01 -0.466 0.64150
Age 8.561e-02 1.089e+00 3.252e-02 2.633 0.00847 **
Gendermale 5.439e-01 1.723e+00 5.294e-01 1.027 0.30427
Hypertension.compositeno -5.772e-01 5.614e-01 7.702e-01 -0.750 0.45355
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 6.536e-01 1.922e+00 4.900e-01 1.334 0.18221
SmokerCurrentno -4.073e-01 6.655e-01 4.363e-01 -0.934 0.35055
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -7.107e-01 4.913e-01 5.438e-01 -1.307 0.19126
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 8.448e-02 1.088e+00 7.544e-01 0.112 0.91085
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 4.736e-03 1.005e+00 1.300e-02 0.364 0.71566
BMI -2.461e-03 9.975e-01 5.606e-02 -0.044 0.96498
CAD_history 6.008e-01 1.824e+00 4.462e-01 1.346 0.17816
Stroke_history -4.277e-01 6.520e-01 4.858e-01 -0.880 0.37866
Peripheral.interv 2.224e-01 1.249e+00 4.758e-01 0.467 0.64021
stenose0-49% -1.167e+00 3.114e-01 2.163e+04 0.000 0.99996
stenose50-70% -7.764e-02 9.253e-01 1.211e+04 0.000 0.99999
stenose70-90% 1.676e+01 1.898e+07 9.270e+03 0.002 0.99856
stenose90-99% 1.607e+01 9.502e+06 9.270e+03 0.002 0.99862
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.489e-03 1.001e+00 1.290e-03 1.154 0.24864
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 8.228e-01 1.215e+00 0.3619 1.870
Age 1.089e+00 9.180e-01 1.0221 1.161
Gendermale 1.723e+00 5.805e-01 0.6103 4.862
Hypertension.compositeno 5.614e-01 1.781e+00 0.1241 2.540
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.922e+00 5.202e-01 0.7359 5.022
SmokerCurrentno 6.655e-01 1.503e+00 0.2830 1.565
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 4.913e-01 2.035e+00 0.1692 1.426
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.088e+00 9.190e-01 0.2480 4.774
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.005e+00 9.953e-01 0.9795 1.031
BMI 9.975e-01 1.002e+00 0.8937 1.113
CAD_history 1.824e+00 5.484e-01 0.7605 4.373
Stroke_history 6.520e-01 1.534e+00 0.2516 1.690
Peripheral.interv 1.249e+00 8.006e-01 0.4916 3.174
stenose0-49% 3.114e-01 3.211e+00 0.0000 Inf
stenose50-70% 9.253e-01 1.081e+00 0.0000 Inf
stenose70-90% 1.898e+07 5.269e-08 0.0000 Inf
stenose90-99% 9.502e+06 1.052e-07 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.001e+00 9.985e-01 0.9990 1.004
Concordance= 0.748 (se = 0.04 )
Likelihood ratio test= 22.38 on 18 df, p=0.2
Wald test = 16.91 on 18 df, p=0.5
Score (logrank) test = 20.49 on 18 df, p=0.3
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6_rank
Effect size...............: -0.195076
Standard error............: 0.418981
Odds ratio (effect size)..: 0.823
Lower 95% CI..............: 0.362
Upper 95% CI..............: 1.87
T-value...................: -0.465596
P-value...................: 0.6415048
Sample size in model......: 268
Number of events..........: 26
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 282, number of events= 26
(2106 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 2.502e-01 1.284e+00 4.203e-01 0.595 0.55159
Age 8.205e-02 1.086e+00 3.145e-02 2.609 0.00909 **
Gendermale 4.205e-01 1.523e+00 5.317e-01 0.791 0.42897
Hypertension.compositeno -5.981e-01 5.498e-01 7.660e-01 -0.781 0.43490
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 8.161e-01 2.262e+00 4.796e-01 1.701 0.08887 .
SmokerCurrentno -6.407e-01 5.269e-01 4.264e-01 -1.503 0.13292
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -5.710e-01 5.650e-01 5.466e-01 -1.045 0.29618
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno -2.510e-01 7.780e-01 7.633e-01 -0.329 0.74230
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD 5.054e-03 1.005e+00 1.260e-02 0.401 0.68826
BMI 3.259e-03 1.003e+00 5.345e-02 0.061 0.95137
CAD_history 5.956e-01 1.814e+00 4.438e-01 1.342 0.17962
Stroke_history -3.392e-01 7.124e-01 4.700e-01 -0.722 0.47055
Peripheral.interv 5.946e-01 1.812e+00 4.567e-01 1.302 0.19292
stenose0-49% -1.809e+00 1.638e-01 1.440e+04 0.000 0.99990
stenose50-70% -3.731e-01 6.886e-01 8.607e+03 0.000 0.99997
stenose70-90% 1.555e+01 5.656e+06 7.113e+03 0.002 0.99826
stenose90-99% 1.486e+01 2.855e+06 7.113e+03 0.002 0.99833
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.423e-03 1.001e+00 1.312e-03 1.084 0.27828
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 1.284e+00 7.786e-01 0.5635 2.927
Age 1.086e+00 9.212e-01 1.0206 1.155
Gendermale 1.523e+00 6.567e-01 0.5371 4.317
Hypertension.compositeno 5.498e-01 1.819e+00 0.1225 2.468
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 2.262e+00 4.422e-01 0.8834 5.790
SmokerCurrentno 5.269e-01 1.898e+00 0.2285 1.215
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 5.650e-01 1.770e+00 0.1935 1.649
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 7.780e-01 1.285e+00 0.1743 3.473
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 1.005e+00 9.950e-01 0.9806 1.030
BMI 1.003e+00 9.967e-01 0.9035 1.114
CAD_history 1.814e+00 5.512e-01 0.7601 4.330
Stroke_history 7.124e-01 1.404e+00 0.2835 1.790
Peripheral.interv 1.812e+00 5.518e-01 0.7405 4.436
stenose0-49% 1.638e-01 6.104e+00 0.0000 Inf
stenose50-70% 6.886e-01 1.452e+00 0.0000 Inf
stenose70-90% 5.656e+06 1.768e-07 0.0000 Inf
stenose90-99% 2.855e+06 3.502e-07 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.001e+00 9.986e-01 0.9989 1.004
Concordance= 0.743 (se = 0.042 )
Likelihood ratio test= 22.86 on 18 df, p=0.2
Wald test = 18.54 on 18 df, p=0.4
Score (logrank) test = 22.18 on 18 df, p=0.2
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: MCP1_rank
Effect size...............: 0.250218
Standard error............: 0.420272
Odds ratio (effect size)..: 1.284
Lower 95% CI..............: 0.564
Upper 95% CI..............: 2.927
T-value...................: 0.595372
P-value...................: 0.5515948
Sample size in model......: 282
Number of events..........: 26
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 618, number of events= 47
(1770 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 3.396e-01 1.404e+00 3.052e-01 1.113 0.265852
Age -5.270e-03 9.947e-01 2.040e-02 -0.258 0.796187
Gendermale 9.025e-01 2.466e+00 4.015e-01 2.248 0.024587 *
Hypertension.compositeno -9.062e-01 4.040e-01 7.423e-01 -1.221 0.222132
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.538e-01 1.166e+00 3.464e-01 0.444 0.657127
SmokerCurrentno -7.453e-01 4.746e-01 3.139e-01 -2.374 0.017580 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -8.568e-02 9.179e-01 3.868e-01 -0.222 0.824695
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.711e-02 1.038e+00 4.917e-01 0.075 0.939834
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.146e-02 9.886e-01 8.202e-03 -1.397 0.162283
BMI -1.389e-02 9.862e-01 4.262e-02 -0.326 0.744519
CAD_history 1.124e+00 3.076e+00 3.222e-01 3.488 0.000487 ***
Stroke_history 3.471e-02 1.035e+00 3.271e-01 0.106 0.915502
Peripheral.interv 4.500e-01 1.568e+00 3.286e-01 1.369 0.170844
stenose0-49% -1.835e+01 1.077e-08 1.248e+04 -0.001 0.998827
stenose50-70% -1.831e+01 1.113e-08 3.039e+03 -0.006 0.995192
stenose70-90% -1.290e+00 2.754e-01 1.053e+00 -1.225 0.220712
stenose90-99% -1.479e+00 2.278e-01 1.054e+00 -1.403 0.160577
stenose100% (Occlusion) -1.868e+01 7.697e-09 9.605e+03 -0.002 0.998448
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 7.612e-05 1.000e+00 9.969e-04 0.076 0.939134
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.404e+00 7.121e-01 0.77214 2.554
Age 9.947e-01 1.005e+00 0.95575 1.035
Gendermale 2.466e+00 4.056e-01 1.12252 5.416
Hypertension.compositeno 4.040e-01 2.475e+00 0.09432 1.731
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.166e+00 8.575e-01 0.59148 2.299
SmokerCurrentno 4.746e-01 2.107e+00 0.25651 0.878
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 9.179e-01 1.089e+00 0.43006 1.959
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.038e+00 9.636e-01 0.39592 2.720
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.886e-01 1.012e+00 0.97284 1.005
BMI 9.862e-01 1.014e+00 0.90716 1.072
CAD_history 3.076e+00 3.251e-01 1.63600 5.785
Stroke_history 1.035e+00 9.659e-01 0.54531 1.966
Peripheral.interv 1.568e+00 6.376e-01 0.82363 2.986
stenose0-49% 1.077e-08 9.283e+07 0.00000 Inf
stenose50-70% 1.113e-08 8.988e+07 0.00000 Inf
stenose70-90% 2.754e-01 3.631e+00 0.03496 2.169
stenose90-99% 2.278e-01 4.389e+00 0.02886 1.799
stenose100% (Occlusion) 7.697e-09 1.299e+08 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.000e+00 9.999e-01 0.99812 1.002
Concordance= 0.763 (se = 0.034 )
Likelihood ratio test= 43.68 on 19 df, p=0.001
Wald test = 30.52 on 19 df, p=0.05
Score (logrank) test = 42.26 on 19 df, p=0.002
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.339572
Standard error............: 0.305188
Odds ratio (effect size)..: 1.404
Lower 95% CI..............: 0.772
Upper 95% CI..............: 2.554
T-value...................: 1.112665
P-value...................: 0.2658522
Sample size in model......: 618
Number of events..........: 47
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 623, number of events= 48
(1765 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 6.164e-01 1.852e+00 3.156e-01 1.953 0.05081 .
Age -2.033e-03 9.980e-01 2.005e-02 -0.101 0.91925
Gendermale 6.907e-01 1.995e+00 3.815e-01 1.811 0.07018 .
Hypertension.compositeno -9.056e-01 4.043e-01 7.411e-01 -1.222 0.22172
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.721e-01 1.188e+00 3.477e-01 0.495 0.62060
SmokerCurrentno -5.742e-01 5.632e-01 3.109e-01 -1.847 0.06479 .
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -1.747e-01 8.397e-01 3.898e-01 -0.448 0.65406
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.668e-02 1.017e+00 4.932e-01 0.034 0.97302
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.222e-02 9.879e-01 8.077e-03 -1.513 0.13033
BMI -2.167e-02 9.786e-01 4.284e-02 -0.506 0.61295
CAD_history 1.029e+00 2.799e+00 3.163e-01 3.253 0.00114 **
Stroke_history -1.088e-02 9.892e-01 3.259e-01 -0.033 0.97337
Peripheral.interv 3.127e-01 1.367e+00 3.270e-01 0.956 0.33893
stenose0-49% -1.842e+01 1.005e-08 1.484e+04 -0.001 0.99901
stenose50-70% -1.838e+01 1.044e-08 2.972e+03 -0.006 0.99507
stenose70-90% -1.422e+00 2.413e-01 1.061e+00 -1.340 0.18020
stenose90-99% -1.576e+00 2.067e-01 1.063e+00 -1.483 0.13801
stenose100% (Occlusion) -1.873e+01 7.313e-09 8.875e+03 -0.002 0.99832
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.827e+01 1.165e-08 1.496e+04 -0.001 0.99903
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 2.533e-04 1.000e+00 1.013e-03 0.250 0.80256
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.852e+00 5.399e-01 0.99784 3.438
Age 9.980e-01 1.002e+00 0.95951 1.038
Gendermale 1.995e+00 5.012e-01 0.94468 4.214
Hypertension.compositeno 4.043e-01 2.473e+00 0.09461 1.728
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.188e+00 8.419e-01 0.60085 2.348
SmokerCurrentno 5.632e-01 1.776e+00 0.30619 1.036
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 8.397e-01 1.191e+00 0.39114 1.803
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.017e+00 9.835e-01 0.38674 2.673
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.879e-01 1.012e+00 0.97234 1.004
BMI 9.786e-01 1.022e+00 0.89976 1.064
CAD_history 2.799e+00 3.573e-01 1.50554 5.202
Stroke_history 9.892e-01 1.011e+00 0.52226 1.874
Peripheral.interv 1.367e+00 7.315e-01 0.72024 2.595
stenose0-49% 1.005e-08 9.949e+07 0.00000 Inf
stenose50-70% 1.044e-08 9.582e+07 0.00000 Inf
stenose70-90% 2.413e-01 4.145e+00 0.03016 1.930
stenose90-99% 2.067e-01 4.837e+00 0.02575 1.660
stenose100% (Occlusion) 7.313e-09 1.367e+08 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 1.165e-08 8.583e+07 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.000e+00 9.997e-01 0.99827 1.002
Concordance= 0.754 (se = 0.037 )
Likelihood ratio test= 41.86 on 20 df, p=0.003
Wald test = 29.23 on 20 df, p=0.08
Score (logrank) test = 40.5 on 20 df, p=0.004
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.616391
Standard error............: 0.315596
Odds ratio (effect size)..: 1.852
Lower 95% CI..............: 0.998
Upper 95% CI..............: 3.438
T-value...................: 1.953101
P-value...................: 0.05080762
Sample size in model......: 623
Number of events..........: 48
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 642, number of events= 48
(1746 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.453e-01 1.156e+00 2.985e-01 0.487 0.62654
Age -6.351e-03 9.937e-01 1.984e-02 -0.320 0.74890
Gendermale 7.713e-01 2.163e+00 3.825e-01 2.017 0.04375 *
Hypertension.compositeno -9.429e-01 3.895e-01 7.405e-01 -1.273 0.20287
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 9.828e-02 1.103e+00 3.449e-01 0.285 0.77568
SmokerCurrentno -6.301e-01 5.326e-01 3.087e-01 -2.041 0.04125 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -4.514e-02 9.559e-01 3.864e-01 -0.117 0.90701
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 2.968e-02 1.030e+00 4.891e-01 0.061 0.95161
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.446e-02 9.856e-01 8.132e-03 -1.778 0.07534 .
BMI -1.959e-02 9.806e-01 4.266e-02 -0.459 0.64600
CAD_history 1.013e+00 2.755e+00 3.177e-01 3.190 0.00142 **
Stroke_history 3.953e-02 1.040e+00 3.279e-01 0.121 0.90406
Peripheral.interv 3.587e-01 1.431e+00 3.264e-01 1.099 0.27180
stenose0-49% -1.820e+01 1.243e-08 1.223e+04 -0.001 0.99881
stenose50-70% -1.815e+01 1.307e-08 3.044e+03 -0.006 0.99524
stenose70-90% -1.130e+00 3.229e-01 1.061e+00 -1.066 0.28657
stenose90-99% -1.243e+00 2.886e-01 1.065e+00 -1.167 0.24317
stenose100% (Occlusion) -1.839e+01 1.031e-08 9.618e+03 -0.002 0.99847
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.816e+01 1.293e-08 1.466e+04 -0.001 0.99901
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.645e-04 1.000e+00 9.860e-04 0.167 0.86752
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.156e+00 8.648e-01 0.64415 2.0758
Age 9.937e-01 1.006e+00 0.95577 1.0331
Gendermale 2.163e+00 4.624e-01 1.02186 4.5765
Hypertension.compositeno 3.895e-01 2.567e+00 0.09125 1.6626
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.103e+00 9.064e-01 0.56119 2.1690
SmokerCurrentno 5.326e-01 1.878e+00 0.29080 0.9753
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 9.559e-01 1.046e+00 0.44820 2.0385
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.030e+00 9.708e-01 0.39499 2.6865
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.856e-01 1.015e+00 0.97006 1.0015
BMI 9.806e-01 1.020e+00 0.90195 1.0661
CAD_history 2.755e+00 3.630e-01 1.47801 5.1341
Stroke_history 1.040e+00 9.612e-01 0.54707 1.9783
Peripheral.interv 1.431e+00 6.986e-01 0.75500 2.7140
stenose0-49% 1.243e-08 8.046e+07 0.00000 Inf
stenose50-70% 1.307e-08 7.652e+07 0.00000 Inf
stenose70-90% 3.229e-01 3.097e+00 0.04037 2.5823
stenose90-99% 2.886e-01 3.465e+00 0.03579 2.3264
stenose100% (Occlusion) 1.031e-08 9.704e+07 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 1.293e-08 7.734e+07 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.000e+00 9.998e-01 0.99823 1.0021
Concordance= 0.748 (se = 0.035 )
Likelihood ratio test= 38.67 on 20 df, p=0.007
Wald test = 24.85 on 20 df, p=0.2
Score (logrank) test = 36.62 on 20 df, p=0.01
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.145257
Standard error............: 0.298514
Odds ratio (effect size)..: 1.156
Lower 95% CI..............: 0.644
Upper 95% CI..............: 2.076
T-value...................: 0.486599
P-value...................: 0.6265423
Sample size in model......: 642
Number of events..........: 48
* Analyzing the effect of plaque proteins on [epcvdeath.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 268, number of events= 16
(2120 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] -5.623e-01 5.699e-01 5.176e-01 -1.086 0.27738
Age 9.014e-02 1.094e+00 3.751e-02 2.403 0.01626 *
Gendermale 5.128e-01 1.670e+00 6.414e-01 0.800 0.42399
Hypertension.compositeno -1.724e+01 3.243e-08 3.798e+03 -0.005 0.99638
Hypertension.compositeyes 0.000e+00 1.000e+00 3.798e+03 0.000 1.00000
DiabetesStatusDiabetes 1.099e+00 3.002e+00 5.398e-01 2.036 0.04174 *
SmokerCurrentno -8.228e-01 4.392e-01 5.015e-01 -1.641 0.10088
SmokerCurrentyes 0.000e+00 1.000e+00 5.015e-01 0.000 1.00000
Med.Statin.LLDno 5.213e-01 1.684e+00 5.187e-01 1.005 0.31487
Med.Statin.LLDyes 0.000e+00 1.000e+00 5.187e-01 0.000 1.00000
Med.all.antiplateletno -2.972e-01 7.429e-01 1.033e+00 -0.288 0.77362
Med.all.antiplateletyes 0.000e+00 1.000e+00 1.033e+00 0.000 1.00000
GFR_MDRD 3.542e-03 1.004e+00 1.385e-02 0.256 0.79815
BMI 2.457e-02 1.025e+00 6.104e-02 0.403 0.68731
CAD_history 8.404e-01 2.317e+00 5.006e-01 1.679 0.09319 .
Stroke_history 8.332e-01 2.301e+00 5.050e-01 1.650 0.09897 .
Peripheral.interv 2.525e-01 1.287e+00 6.407e-01 0.394 0.69348
stenose0-49% -1.964e+00 1.403e-01 2.902e+04 0.000 0.99995
stenose50-70% 1.189e+00 3.285e+00 9.652e+03 0.000 0.99990
stenose70-90% 1.611e+01 9.915e+06 5.175e-01 31.127 < 2e-16 ***
stenose90-99% 1.550e+01 5.394e+06 5.175e-01 29.951 < 2e-16 ***
stenose100% (Occlusion) 0.000e+00 1.000e+00 1.187e+04 0.000 1.00000
stenoseNA 0.000e+00 1.000e+00 0.000e+00 NA NA
stenose50-99% 0.000e+00 1.000e+00 0.000e+00 NA NA
stenose70-99% 0.000e+00 1.000e+00 0.000e+00 NA NA
stenose99 0.000e+00 1.000e+00 0.000e+00 NA NA
hsCRP_plasma 2.424e-03 1.002e+00 7.772e-04 3.119 0.00182 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 5.699e-01 1.755e+00 2.066e-01 1.572e+00
Age 1.094e+00 9.138e-01 1.017e+00 1.178e+00
Gendermale 1.670e+00 5.988e-01 4.751e-01 5.870e+00
Hypertension.compositeno 3.243e-08 3.084e+07 0.000e+00 Inf
Hypertension.compositeyes 1.000e+00 1.000e+00 0.000e+00 Inf
DiabetesStatusDiabetes 3.002e+00 3.331e-01 1.042e+00 8.648e+00
SmokerCurrentno 4.392e-01 2.277e+00 1.643e-01 1.174e+00
SmokerCurrentyes 1.000e+00 1.000e+00 3.742e-01 2.672e+00
Med.Statin.LLDno 1.684e+00 5.937e-01 6.094e-01 4.655e+00
Med.Statin.LLDyes 1.000e+00 1.000e+00 3.618e-01 2.764e+00
Med.all.antiplateletno 7.429e-01 1.346e+00 9.804e-02 5.629e+00
Med.all.antiplateletyes 1.000e+00 1.000e+00 1.320e-01 7.577e+00
GFR_MDRD 1.004e+00 9.965e-01 9.767e-01 1.031e+00
BMI 1.025e+00 9.757e-01 9.093e-01 1.155e+00
CAD_history 2.317e+00 4.315e-01 8.687e-01 6.182e+00
Stroke_history 2.301e+00 4.346e-01 8.550e-01 6.191e+00
Peripheral.interv 1.287e+00 7.768e-01 3.667e-01 4.519e+00
stenose0-49% 1.403e-01 7.126e+00 0.000e+00 Inf
stenose50-70% 3.285e+00 3.044e-01 0.000e+00 Inf
stenose70-90% 9.915e+06 1.009e-07 3.596e+06 2.734e+07
stenose90-99% 5.394e+06 1.854e-07 1.956e+06 1.487e+07
stenose100% (Occlusion) 1.000e+00 1.000e+00 0.000e+00 Inf
stenoseNA 1.000e+00 1.000e+00 1.000e+00 1.000e+00
stenose50-99% 1.000e+00 1.000e+00 1.000e+00 1.000e+00
stenose70-99% 1.000e+00 1.000e+00 1.000e+00 1.000e+00
stenose99 1.000e+00 1.000e+00 1.000e+00 1.000e+00
hsCRP_plasma 1.002e+00 9.976e-01 1.001e+00 1.004e+00
Concordance= 0.832 (se = 0.048 )
Likelihood ratio test= 28.19 on 27 df, p=0.4
Wald test = 1882 on 27 df, p=<2e-16
Score (logrank) test = 46.33 on 27 df, p=0.01
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6_rank
Effect size...............: -0.562254
Standard error............: 0.517624
Odds ratio (effect size)..: 0.57
Lower 95% CI..............: 0.207
Upper 95% CI..............: 1.572
T-value...................: -1.08622
P-value...................: 0.2773817
Sample size in model......: 268
Number of events..........: 16
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 282, number of events= 17
(2106 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -3.478e-01 7.062e-01 4.862e-01 -0.715 0.47442
Age 9.615e-02 1.101e+00 3.755e-02 2.561 0.01044 *
Gendermale 3.885e-01 1.475e+00 6.366e-01 0.610 0.54174
Hypertension.compositeno -1.720e+01 3.376e-08 3.583e+03 -0.005 0.99617
Hypertension.compositeyes 0.000e+00 1.000e+00 3.583e+03 0.000 1.00000
DiabetesStatusDiabetes 9.760e-01 2.654e+00 5.326e-01 1.832 0.06689 .
SmokerCurrentno -9.194e-01 3.988e-01 4.867e-01 -1.889 0.05889 .
SmokerCurrentyes 0.000e+00 1.000e+00 4.867e-01 0.000 1.00000
Med.Statin.LLDno 4.881e-01 1.629e+00 5.090e-01 0.959 0.33763
Med.Statin.LLDyes 0.000e+00 1.000e+00 5.090e-01 0.000 1.00000
Med.all.antiplateletno -7.568e-01 4.691e-01 1.031e+00 -0.734 0.46295
Med.all.antiplateletyes 0.000e+00 1.000e+00 1.031e+00 0.000 1.00000
GFR_MDRD -1.092e-02 9.891e-01 1.325e-02 -0.824 0.40988
BMI 6.871e-04 1.001e+00 5.983e-02 0.011 0.99084
CAD_history 4.382e-01 1.550e+00 4.932e-01 0.888 0.37430
Stroke_history 7.243e-01 2.063e+00 4.866e-01 1.488 0.13665
Peripheral.interv 5.948e-01 1.813e+00 5.720e-01 1.040 0.29844
stenose0-49% -2.305e+00 9.975e-02 2.768e+04 0.000 0.99993
stenose50-70% 1.434e+00 4.195e+00 9.963e+03 0.000 0.99989
stenose70-90% 1.629e+01 1.184e+07 4.935e-01 33.003 < 2e-16 ***
stenose90-99% 1.545e+01 5.152e+06 4.935e-01 31.317 < 2e-16 ***
stenose100% (Occlusion) 0.000e+00 1.000e+00 1.157e+04 0.000 1.00000
stenoseNA 0.000e+00 1.000e+00 0.000e+00 NA NA
stenose50-99% 0.000e+00 1.000e+00 0.000e+00 NA NA
stenose70-99% 0.000e+00 1.000e+00 0.000e+00 NA NA
stenose99 0.000e+00 1.000e+00 0.000e+00 NA NA
hsCRP_plasma 2.536e-03 1.003e+00 7.812e-04 3.246 0.00117 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 7.062e-01 1.416e+00 2.723e-01 1.832e+00
Age 1.101e+00 9.083e-01 1.023e+00 1.185e+00
Gendermale 1.475e+00 6.781e-01 4.235e-01 5.136e+00
Hypertension.compositeno 3.376e-08 2.962e+07 0.000e+00 Inf
Hypertension.compositeyes 1.000e+00 1.000e+00 0.000e+00 Inf
DiabetesStatusDiabetes 2.654e+00 3.768e-01 9.343e-01 7.538e+00
SmokerCurrentno 3.988e-01 2.508e+00 1.536e-01 1.035e+00
SmokerCurrentyes 1.000e+00 1.000e+00 3.852e-01 2.596e+00
Med.Statin.LLDno 1.629e+00 6.138e-01 6.007e-01 4.418e+00
Med.Statin.LLDyes 1.000e+00 1.000e+00 3.687e-01 2.712e+00
Med.all.antiplateletno 4.691e-01 2.132e+00 6.217e-02 3.540e+00
Med.all.antiplateletyes 1.000e+00 1.000e+00 1.325e-01 7.546e+00
GFR_MDRD 9.891e-01 1.011e+00 9.638e-01 1.015e+00
BMI 1.001e+00 9.993e-01 8.900e-01 1.125e+00
CAD_history 1.550e+00 6.452e-01 5.895e-01 4.075e+00
Stroke_history 2.063e+00 4.847e-01 7.949e-01 5.355e+00
Peripheral.interv 1.813e+00 5.517e-01 5.908e-01 5.561e+00
stenose0-49% 9.975e-02 1.003e+01 0.000e+00 Inf
stenose50-70% 4.195e+00 2.384e-01 0.000e+00 Inf
stenose70-90% 1.184e+07 8.449e-08 4.499e+06 3.114e+07
stenose90-99% 5.152e+06 1.941e-07 1.958e+06 1.355e+07
stenose100% (Occlusion) 1.000e+00 1.000e+00 0.000e+00 Inf
stenoseNA 1.000e+00 1.000e+00 1.000e+00 1.000e+00
stenose50-99% 1.000e+00 1.000e+00 1.000e+00 1.000e+00
stenose70-99% 1.000e+00 1.000e+00 1.000e+00 1.000e+00
stenose99 1.000e+00 1.000e+00 1.000e+00 1.000e+00
hsCRP_plasma 1.003e+00 9.975e-01 1.001e+00 1.004e+00
Concordance= 0.828 (se = 0.045 )
Likelihood ratio test= 29.01 on 27 df, p=0.4
Wald test = 2090 on 27 df, p=<2e-16
Score (logrank) test = 44.48 on 27 df, p=0.02
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: MCP1_rank
Effect size...............: -0.347814
Standard error............: 0.486247
Odds ratio (effect size)..: 0.706
Lower 95% CI..............: 0.272
Upper 95% CI..............: 1.832
T-value...................: -0.715304
P-value...................: 0.4744211
Sample size in model......: 282
Number of events..........: 17
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 618, number of events= 25
(1770 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 5.868e-01 1.798e+00 4.349e-01 1.349 0.17728
Age 8.576e-02 1.090e+00 3.129e-02 2.741 0.00613 **
Gendermale 1.461e+00 4.311e+00 6.332e-01 2.308 0.02102 *
Hypertension.compositeno -1.851e+01 9.172e-09 6.011e+03 -0.003 0.99754
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 3.247e-01 1.384e+00 4.744e-01 0.685 0.49364
SmokerCurrentno -7.793e-01 4.587e-01 4.542e-01 -1.716 0.08620 .
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -1.421e-01 8.676e-01 5.120e-01 -0.277 0.78143
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.082e+00 2.950e+00 5.042e-01 2.145 0.03192 *
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.560e-02 9.747e-01 1.086e-02 -2.358 0.01836 *
BMI 5.713e-02 1.059e+00 6.046e-02 0.945 0.34476
CAD_history 3.951e-01 1.485e+00 4.308e-01 0.917 0.35911
Stroke_history -2.076e-01 8.126e-01 4.592e-01 -0.452 0.65126
Peripheral.interv 6.257e-01 1.870e+00 5.055e-01 1.238 0.21575
stenose0-49% -2.006e+01 1.936e-09 3.815e+04 -0.001 0.99958
stenose50-70% -2.110e+00 1.213e-01 1.507e+00 -1.400 0.16148
stenose70-90% -1.796e+00 1.660e-01 1.153e+00 -1.558 0.11929
stenose90-99% -1.789e+00 1.671e-01 1.147e+00 -1.561 0.11862
stenose100% (Occlusion) -1.950e+01 3.397e-09 3.254e+04 -0.001 0.99952
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.842e-03 1.002e+00 8.093e-04 2.276 0.02284 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.798e+00 5.561e-01 0.766703 4.2175
Age 1.090e+00 9.178e-01 1.024736 1.1584
Gendermale 4.311e+00 2.319e-01 1.246294 14.9145
Hypertension.compositeno 9.172e-09 1.090e+08 0.000000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.384e+00 7.227e-01 0.546052 3.5061
SmokerCurrentno 4.587e-01 2.180e+00 0.188334 1.1173
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 8.676e-01 1.153e+00 0.318014 2.3667
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 2.950e+00 3.390e-01 1.098017 7.9250
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.747e-01 1.026e+00 0.954200 0.9957
BMI 1.059e+00 9.445e-01 0.940466 1.1920
CAD_history 1.485e+00 6.736e-01 0.638076 3.4537
Stroke_history 8.126e-01 1.231e+00 0.330342 1.9987
Peripheral.interv 1.870e+00 5.349e-01 0.694219 5.0349
stenose0-49% 1.936e-09 5.166e+08 0.000000 Inf
stenose50-70% 1.213e-01 8.246e+00 0.006326 2.3247
stenose70-90% 1.660e-01 6.023e+00 0.017338 1.5898
stenose90-99% 1.671e-01 5.986e+00 0.017657 1.5808
stenose100% (Occlusion) 3.397e-09 2.944e+08 0.000000 Inf
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.002e+00 9.982e-01 1.000256 1.0034
Concordance= 0.845 (se = 0.032 )
Likelihood ratio test= 49.5 on 19 df, p=2e-04
Wald test = 18.65 on 19 df, p=0.5
Score (logrank) test = 48.91 on 19 df, p=2e-04
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.586793
Standard error............: 0.434931
Odds ratio (effect size)..: 1.798
Lower 95% CI..............: 0.767
Upper 95% CI..............: 4.218
T-value...................: 1.349163
P-value...................: 0.1772846
Sample size in model......: 618
Number of events..........: 25
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 623, number of events= 25
(1765 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 9.200e-01 2.509e+00 4.915e-01 1.872 0.06121 .
Age 8.762e-02 1.092e+00 3.174e-02 2.761 0.00577 **
Gendermale 1.325e+00 3.763e+00 6.336e-01 2.092 0.03647 *
Hypertension.compositeno -1.845e+01 9.731e-09 6.057e+03 -0.003 0.99757
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 4.263e-01 1.532e+00 4.754e-01 0.897 0.36993
SmokerCurrentno -6.118e-01 5.424e-01 4.623e-01 -1.323 0.18576
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -2.450e-01 7.827e-01 5.154e-01 -0.475 0.63449
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 9.711e-01 2.641e+00 5.053e-01 1.922 0.05464 .
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.516e-02 9.752e-01 1.078e-02 -2.333 0.01963 *
BMI 5.238e-02 1.054e+00 6.174e-02 0.848 0.39623
CAD_history 4.604e-01 1.585e+00 4.289e-01 1.073 0.28310
Stroke_history -2.589e-01 7.719e-01 4.621e-01 -0.560 0.57534
Peripheral.interv 4.685e-01 1.598e+00 5.021e-01 0.933 0.35079
stenose0-49% -1.988e+01 2.330e-09 4.926e+04 0.000 0.99968
stenose50-70% -2.693e+00 6.767e-02 1.568e+00 -1.717 0.08590 .
stenose70-90% -2.176e+00 1.135e-01 1.157e+00 -1.881 0.05997 .
stenose90-99% -2.298e+00 1.005e-01 1.168e+00 -1.967 0.04921 *
stenose100% (Occlusion) -1.992e+01 2.244e-09 3.186e+04 -0.001 0.99950
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.974e+01 2.667e-09 4.794e+04 0.000 0.99967
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.959e-03 1.002e+00 8.471e-04 2.313 0.02073 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 2.509e+00 3.985e-01 0.957679 6.5752
Age 1.092e+00 9.161e-01 1.025738 1.1616
Gendermale 3.763e+00 2.657e-01 1.087054 13.0288
Hypertension.compositeno 9.731e-09 1.028e+08 0.000000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.532e+00 6.530e-01 0.603190 3.8885
SmokerCurrentno 5.424e-01 1.844e+00 0.219173 1.3423
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 7.827e-01 1.278e+00 0.285005 2.1494
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 2.641e+00 3.787e-01 0.980860 7.1100
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.752e-01 1.025e+00 0.954767 0.9960
BMI 1.054e+00 9.490e-01 0.933673 1.1893
CAD_history 1.585e+00 6.310e-01 0.683667 3.6734
Stroke_history 7.719e-01 1.295e+00 0.312061 1.9095
Peripheral.interv 1.598e+00 6.259e-01 0.597114 4.2747
stenose0-49% 2.330e-09 4.293e+08 0.000000 Inf
stenose50-70% 6.767e-02 1.478e+01 0.003131 1.4628
stenose70-90% 1.135e-01 8.807e+00 0.011768 1.0956
stenose90-99% 1.005e-01 9.950e+00 0.010182 0.9921
stenose100% (Occlusion) 2.244e-09 4.457e+08 0.000000 Inf
stenoseNA NA NA NA NA
stenose50-99% 2.667e-09 3.749e+08 0.000000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.002e+00 9.980e-01 1.000299 1.0036
Concordance= 0.847 (se = 0.036 )
Likelihood ratio test= 51.36 on 20 df, p=1e-04
Wald test = 19.44 on 20 df, p=0.5
Score (logrank) test = 52.12 on 20 df, p=1e-04
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.920029
Standard error............: 0.491474
Odds ratio (effect size)..: 2.509
Lower 95% CI..............: 0.958
Upper 95% CI..............: 6.575
T-value...................: 1.871978
P-value...................: 0.06120959
Sample size in model......: 623
Number of events..........: 25
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + hsCRP_plasma, data = TEMP.DF)
n= 642, number of events= 25
(1746 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] -1.961e-01 8.219e-01 4.254e-01 -0.461 0.64476
Age 8.139e-02 1.085e+00 3.150e-02 2.584 0.00977 **
Gendermale 1.496e+00 4.463e+00 6.350e-01 2.355 0.01850 *
Hypertension.compositeno -1.747e+01 2.583e-08 3.750e+03 -0.005 0.99628
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 3.497e-01 1.419e+00 4.764e-01 0.734 0.46292
SmokerCurrentno -7.776e-01 4.595e-01 4.567e-01 -1.703 0.08859 .
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -3.699e-02 9.637e-01 5.069e-01 -0.073 0.94182
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.008e+00 2.740e+00 5.031e-01 2.003 0.04513 *
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.859e-02 9.718e-01 1.106e-02 -2.586 0.00972 **
BMI 5.917e-02 1.061e+00 5.925e-02 0.999 0.31795
CAD_history 4.010e-01 1.493e+00 4.292e-01 0.934 0.35016
Stroke_history -1.402e-01 8.692e-01 4.647e-01 -0.302 0.76288
Peripheral.interv 5.585e-01 1.748e+00 5.050e-01 1.106 0.26872
stenose0-49% -1.954e+01 3.273e-09 2.318e+04 -0.001 0.99933
stenose50-70% -2.121e+00 1.199e-01 1.503e+00 -1.411 0.15838
stenose70-90% -1.974e+00 1.390e-01 1.154e+00 -1.710 0.08718 .
stenose90-99% -1.993e+00 1.362e-01 1.160e+00 -1.718 0.08581 .
stenose100% (Occlusion) -1.891e+01 6.112e-09 2.011e+04 -0.001 0.99925
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.890e+01 6.179e-09 3.012e+04 -0.001 0.99950
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
hsCRP_plasma 1.954e-03 1.002e+00 8.209e-04 2.380 0.01730 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 8.219e-01 1.217e+00 0.357032 1.8920
Age 1.085e+00 9.218e-01 1.019845 1.1539
Gendermale 4.463e+00 2.241e-01 1.285442 15.4930
Hypertension.compositeno 2.583e-08 3.871e+07 0.000000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.419e+00 7.049e-01 0.557642 3.6091
SmokerCurrentno 4.595e-01 2.176e+00 0.187748 1.1246
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 9.637e-01 1.038e+00 0.356816 2.6027
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 2.740e+00 3.650e-01 1.022133 7.3447
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.718e-01 1.029e+00 0.950986 0.9931
BMI 1.061e+00 9.425e-01 0.944634 1.1916
CAD_history 1.493e+00 6.697e-01 0.643894 3.4632
Stroke_history 8.692e-01 1.150e+00 0.349605 2.1610
Peripheral.interv 1.748e+00 5.721e-01 0.649724 4.7030
stenose0-49% 3.273e-09 3.055e+08 0.000000 Inf
stenose50-70% 1.199e-01 8.337e+00 0.006298 2.2843
stenose70-90% 1.390e-01 7.196e+00 0.014479 1.3336
stenose90-99% 1.362e-01 7.341e+00 0.014014 1.3242
stenose100% (Occlusion) 6.112e-09 1.636e+08 0.000000 Inf
stenoseNA NA NA NA NA
stenose50-99% 6.179e-09 1.618e+08 0.000000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
hsCRP_plasma 1.002e+00 9.980e-01 1.000345 1.0036
Concordance= 0.833 (se = 0.033 )
Likelihood ratio test= 48.16 on 20 df, p=4e-04
Wald test = 16.04 on 20 df, p=0.7
Score (logrank) test = 47.77 on 20 df, p=5e-04
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: -0.196136
Standard error............: 0.425413
Odds ratio (effect size)..: 0.822
Lower 95% CI..............: 0.357
Upper 95% CI..............: 1.892
T-value...................: -0.461049
P-value...................: 0.6447633
Sample size in model......: 642
Number of events..........: 25 
cat("- Edit the column names...\n")- Edit the column names...colnames(COX.results) = c("Dataset", "Outcome", "CpG",
"Beta", "s.e.m.",
"HR", "low95CI", "up95CI",
"Z-value", "P-value", "SampleSize", "N_events")
cat("- Correct the variable types...\n")- Correct the variable types...COX.results$Beta <- as.numeric(COX.results$Beta)
COX.results$s.e.m. <- as.numeric(COX.results$s.e.m.)
COX.results$HR <- as.numeric(COX.results$HR)
COX.results$low95CI <- as.numeric(COX.results$low95CI)
COX.results$up95CI <- as.numeric(COX.results$up95CI)
COX.results$`Z-value` <- as.numeric(COX.results$`Z-value`)
COX.results$`P-value` <- as.numeric(COX.results$`P-value`)
COX.results$SampleSize <- as.numeric(COX.results$SampleSize)
COX.results$N_events <- as.numeric(COX.results$N_events)
AEDB.CEA.COX.results <- COX.results
# Save the data
cat("- Writing results to Excel-file...\n")- Writing results to Excel-file...head.style <- createStyle(textDecoration = "BOLD")
write.xlsx(AEDB.CEA.COX.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Cox.2G.MODEL3.xlsx"),
creator = "Sander W. van der Laan",
sheetName = "Results", headerStyle = head.style,
row.names = FALSE, col.names = TRUE, overwrite = TRUE)
# Removing intermediates
cat("- Removing intermediate files...\n")- Removing intermediate files...rm(TEMP.DF, protein, fit, cox, coxplot, COX.results, COX.results.TEMP, head.style, AEDB.CEA.COX.results)
rm(head.style)object 'head.style' not foundMODEL 4
# Set up a dataframe to receive results
COX.results <- data.frame(matrix(NA, ncol = 12, nrow = 0))
# Looping over each protein/endpoint/time combination
for (i in 1:length(times)){
eptime = times[i]
ep = endpoints[i]
cat(paste0("* Analyzing the effect of plaque proteins on [",ep,"].\n"))
cat(" - creating temporary SE for this work.\n")
TEMP.DF = as.data.frame(AEDB.CEA)
cat(" - making a 'Surv' object and adding this to temporary dataframe.\n")
TEMP.DF$event <- as.integer(TEMP.DF[,ep])
#as.integer(TEMP.DF[,ep] == "Excluded")
TEMP.DF$y <- Surv(time = TEMP.DF[,eptime], event = TEMP.DF$event)
cat(" - making strata of each of the plaque proteins and start survival analysis.\n")
for (protein in 1:length(TRAITS.PROTEIN.RANK)){
cat(paste0(" > processing [",TRAITS.PROTEIN.RANK[protein],"]; ",protein," out of ",length(TRAITS.PROTEIN.RANK)," proteins.\n"))
# splitting into two groups
TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]] <- cut2(TEMP.DF[,TRAITS.PROTEIN.RANK[protein]], g = 2)
cat(paste0(" > cross tabulation of ",TRAITS.PROTEIN.RANK[protein],"-stratum.\n"))
show(table(TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]]))
cat(paste0("\n > fitting the model for ",TRAITS.PROTEIN.RANK[protein],"-stratum.\n"))
fit <- survfit(as.formula(paste0("y ~ ", TRAITS.PROTEIN.RANK[protein])), data = TEMP.DF)
cat(paste0("\n > make a Kaplan-Meier-shizzle...\n"))
# make Kaplan-Meier curve and save it
show(ggsurvplot(fit, data = TEMP.DF,
palette = c("#DB003F", "#1290D9"),
# palete = c("F59D10", "#DB003F", "#49A01D", "#1290D9"),
linetype = c(1,2),
# linetype = c(1,2,3,4),
# conf.int = FALSE, conf.int.fill = "#595A5C", conf.int.alpha = 0.1,
pval = FALSE, pval.method = FALSE, pval.size = 4,
risk.table = TRUE, risk.table.y.text = FALSE, tables.y.text.col = TRUE, fontsize = 4,
censor = FALSE,
legend = "right",
legend.title = paste0("",TRAITS.PROTEIN.RANK[protein],""),
legend.labs = c("low", "high"),
title = paste0("Risk of ",ep,""), xlab = "Time [years]", font.main = c(16, "bold", "black")))
dev.copy2pdf(file = paste0(COX_loc,"/",
Today,".AEDB.CEA.survival.",ep,".2G.",
TRAITS.PROTEIN.RANK[protein],".pdf"), width = 12, height = 10, onefile = FALSE)
cat(paste0("\n > perform the Cox-regression fashizzle and plot it...\n"))
### Do Cox-regression and plot it
### MODEL 4 same to model 2 with additional adjustment for IL6 levels in the plaque
cox = coxph(Surv(TEMP.DF[,eptime], event) ~ TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]]+Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI + CAD_history + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
coxplot = coxph(Surv(TEMP.DF[,eptime], event) ~ strata(TEMP.DF[[ TRAITS.PROTEIN.RANK[protein] ]])+Age + Gender + Hypertension.composite + DiabetesStatus + SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD + BMI + CAD_history + Stroke_history + Peripheral.interv + stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
plot(survfit(coxplot), main = paste0("Cox proportional hazard of [",ep,"] per [",eptime,"]."),
# ylim = c(0.2, 1), xlim = c(0,3), col = c("#595A5C", "#DB003F", "#1290D9"),
ylim = c(0, 1), xlim = c(0,3), col = c("#DB003F", "#1290D9"),
lty = c(1,2), lwd = 2,
ylab = "Suvival probability", xlab = "FU time [years]",
mark.time = FALSE, axes = FALSE, bty = "n")
legend("topright",
c("low", "high"),
title = paste0("",TRAITS.PROTEIN.RANK[protein],""),
col = c("#DB003F", "#1290D9"),
lty = c(1,2), lwd = 2,
bty = "n")
axis(side = 1, at = seq(0, 3, by = 1))
axis(side = 2, at = seq(0, 1, by = 0.2))
dev.copy2pdf(file = paste0(COX_loc,"/",
Today,".AEDB.CEA.Cox.",ep,".2G.",
# Today,".AEDB.CEA.Cox.",ep,".4G.",
TRAITS.PROTEIN.RANK[protein],".MODEL4.pdf"), height = 12, width = 10, onefile = TRUE)
show(summary(cox))
cat(paste0("\n > writing the Cox-regression fashizzle to Excel...\n"))
COX.results.TEMP <- data.frame(matrix(NA, ncol = 12, nrow = 0))
COX.results.TEMP[1,] = COX.STAT(cox, "AEDB.CEA", ep, TRAITS.PROTEIN.RANK[protein])
COX.results = rbind(COX.results, COX.results.TEMP)
}
}* Analyzing the effect of plaque proteins on [epmajor.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 368, number of events= 50
(2020 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] -9.203e-02 9.121e-01 3.008e-01 -0.306 0.75961
Age 6.216e-02 1.064e+00 2.126e-02 2.924 0.00345 **
Gendermale 1.064e+00 2.897e+00 4.251e-01 2.503 0.01233 *
Hypertension.compositeno -7.227e-01 4.854e-01 6.297e-01 -1.148 0.25112
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 5.258e-01 1.692e+00 3.356e-01 1.567 0.11714
SmokerCurrentno -5.752e-01 5.626e-01 3.027e-01 -1.900 0.05740 .
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.211e-01 1.379e+00 3.247e-01 0.989 0.32266
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.783e-01 1.195e+00 4.485e-01 0.398 0.69099
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -9.516e-03 9.905e-01 7.737e-03 -1.230 0.21874
BMI 9.862e-03 1.010e+00 4.458e-02 0.221 0.82492
CAD_history 5.590e-01 1.749e+00 3.084e-01 1.813 0.06985 .
Stroke_history 2.059e-02 1.021e+00 3.090e-01 0.067 0.94687
Peripheral.interv 1.198e-01 1.127e+00 3.666e-01 0.327 0.74372
stenose0-49% -1.676e+01 5.238e-08 3.616e+03 -0.005 0.99630
stenose50-70% -1.716e+00 1.798e-01 1.537e+00 -1.116 0.26426
stenose70-90% -1.110e+00 3.294e-01 1.124e+00 -0.987 0.32343
stenose90-99% -1.331e+00 2.643e-01 1.141e+00 -1.166 0.24357
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank 1.331e-01 1.142e+00 1.516e-01 0.878 0.37985
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 9.121e-01 1.096e+00 0.505860 1.645
Age 1.064e+00 9.397e-01 1.020708 1.109
Gendermale 2.897e+00 3.451e-01 1.259434 6.665
Hypertension.compositeno 4.854e-01 2.060e+00 0.141289 1.668
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.692e+00 5.911e-01 0.876431 3.266
SmokerCurrentno 5.626e-01 1.777e+00 0.310871 1.018
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.379e+00 7.253e-01 0.729599 2.605
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.195e+00 8.367e-01 0.496232 2.878
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.905e-01 1.010e+00 0.975621 1.006
BMI 1.010e+00 9.902e-01 0.925414 1.102
CAD_history 1.749e+00 5.718e-01 0.955666 3.201
Stroke_history 1.021e+00 9.796e-01 0.557041 1.871
Peripheral.interv 1.127e+00 8.871e-01 0.549588 2.312
stenose0-49% 5.238e-08 1.909e+07 0.000000 Inf
stenose50-70% 1.798e-01 5.563e+00 0.008836 3.657
stenose70-90% 3.294e-01 3.035e+00 0.036359 2.985
stenose90-99% 2.643e-01 3.784e+00 0.028233 2.474
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank 1.142e+00 8.754e-01 0.848765 1.538
Concordance= 0.74 (se = 0.034 )
Likelihood ratio test= 37.52 on 18 df, p=0.004
Wald test = 33.01 on 18 df, p=0.02
Score (logrank) test = 35.91 on 18 df, p=0.007
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6_rank
Effect size...............: -0.092028
Standard error............: 0.300754
Odds ratio (effect size)..: 0.912
Lower 95% CI..............: 0.506
Upper 95% CI..............: 1.645
T-value...................: -0.30599
P-value...................: 0.759612
Sample size in model......: 368
Number of events..........: 50
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 392, number of events= 50
(1996 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -5.238e-01 5.923e-01 3.055e-01 -1.715 0.08639 .
Age 5.763e-02 1.059e+00 2.098e-02 2.747 0.00601 **
Gendermale 1.092e+00 2.981e+00 4.240e-01 2.576 0.00999 **
Hypertension.compositeno -7.803e-01 4.583e-01 6.261e-01 -1.246 0.21268
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 4.063e-01 1.501e+00 3.367e-01 1.207 0.22760
SmokerCurrentno -4.639e-01 6.288e-01 3.079e-01 -1.507 0.13181
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 4.195e-01 1.521e+00 3.257e-01 1.288 0.19774
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 9.793e-02 1.103e+00 4.530e-01 0.216 0.82883
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.674e-02 9.834e-01 7.946e-03 -2.106 0.03519 *
BMI 2.065e-03 1.002e+00 4.407e-02 0.047 0.96263
CAD_history 3.553e-01 1.427e+00 3.145e-01 1.130 0.25855
Stroke_history 1.127e-01 1.119e+00 3.028e-01 0.372 0.70972
Peripheral.interv 1.911e-01 1.211e+00 3.653e-01 0.523 0.60093
stenose0-49% -1.665e+01 5.854e-08 3.722e+03 -0.004 0.99643
stenose50-70% -1.447e+00 2.353e-01 1.534e+00 -0.943 0.34543
stenose70-90% -1.012e+00 3.634e-01 1.117e+00 -0.907 0.36460
stenose90-99% -1.217e+00 2.961e-01 1.139e+00 -1.068 0.28537
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank 2.158e-01 1.241e+00 1.539e-01 1.402 0.16080
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 5.923e-01 1.688e+00 0.32548 1.0778
Age 1.059e+00 9.440e-01 1.01665 1.1038
Gendermale 2.981e+00 3.355e-01 1.29849 6.8430
Hypertension.compositeno 4.583e-01 2.182e+00 0.13432 1.5635
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.501e+00 6.661e-01 0.77594 2.9043
SmokerCurrentno 6.288e-01 1.590e+00 0.34393 1.1496
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.521e+00 6.574e-01 0.80343 2.8804
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.103e+00 9.067e-01 0.45391 2.6797
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.834e-01 1.017e+00 0.96821 0.9988
BMI 1.002e+00 9.979e-01 0.91914 1.0925
CAD_history 1.427e+00 7.010e-01 0.77023 2.6424
Stroke_history 1.119e+00 8.934e-01 0.61834 2.0261
Peripheral.interv 1.211e+00 8.261e-01 0.59163 2.4769
stenose0-49% 5.854e-08 1.708e+07 0.00000 Inf
stenose50-70% 2.353e-01 4.250e+00 0.01165 4.7531
stenose70-90% 3.634e-01 2.752e+00 0.04072 3.2419
stenose90-99% 2.961e-01 3.377e+00 0.03175 2.7615
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank 1.241e+00 8.059e-01 0.91776 1.6778
Concordance= 0.753 (se = 0.033 )
Likelihood ratio test= 42.55 on 18 df, p=9e-04
Wald test = 37.59 on 18 df, p=0.004
Score (logrank) test = 40.38 on 18 df, p=0.002
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: MCP1_rank
Effect size...............: -0.523784
Standard error............: 0.305456
Odds ratio (effect size)..: 0.592
Lower 95% CI..............: 0.325
Upper 95% CI..............: 1.078
T-value...................: -1.714758
P-value...................: 0.08638969
Sample size in model......: 392
Number of events..........: 50
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 1002, number of events= 114
(1386 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 9.097e-02 1.095e+00 1.899e-01 0.479 0.631870
Age 3.856e-02 1.039e+00 1.296e-02 2.975 0.002927 **
Gendermale 5.730e-01 1.774e+00 2.310e-01 2.481 0.013107 *
Hypertension.compositeno -5.174e-01 5.961e-01 3.773e-01 -1.371 0.170285
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -4.403e-02 9.569e-01 2.233e-01 -0.197 0.843644
SmokerCurrentno -6.023e-01 5.475e-01 2.046e-01 -2.944 0.003240 **
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.369e-01 1.401e+00 2.175e-01 1.549 0.121332
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 4.026e-01 1.496e+00 2.586e-01 1.557 0.119528
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.899e-02 9.812e-01 4.977e-03 -3.815 0.000136 ***
BMI 5.747e-02 1.059e+00 2.597e-02 2.213 0.026905 *
CAD_history 1.411e-01 1.152e+00 2.032e-01 0.695 0.487257
Stroke_history 4.304e-02 1.044e+00 2.028e-01 0.212 0.831900
Peripheral.interv 6.318e-01 1.881e+00 2.183e-01 2.894 0.003802 **
stenose0-49% -1.561e+01 1.659e-07 2.745e+03 -0.006 0.995462
stenose50-70% -8.519e-01 4.266e-01 8.692e-01 -0.980 0.326998
stenose70-90% -2.953e-01 7.443e-01 7.264e-01 -0.406 0.684395
stenose90-99% -2.722e-01 7.617e-01 7.236e-01 -0.376 0.706782
stenose100% (Occlusion) 4.662e-02 1.048e+00 1.239e+00 0.038 0.969996
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.539e+01 2.069e-07 4.208e+03 -0.004 0.997082
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.095e+00 9.130e-01 0.75490 1.5890
Age 1.039e+00 9.622e-01 1.01325 1.0660
Gendermale 1.774e+00 5.638e-01 1.12785 2.7890
Hypertension.compositeno 5.961e-01 1.678e+00 0.28453 1.2487
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.569e-01 1.045e+00 0.61778 1.4822
SmokerCurrentno 5.475e-01 1.826e+00 0.36664 0.8176
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.401e+00 7.140e-01 0.91454 2.1451
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.496e+00 6.686e-01 0.90098 2.4831
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.812e-01 1.019e+00 0.97167 0.9908
BMI 1.059e+00 9.442e-01 1.00659 1.1145
CAD_history 1.152e+00 8.684e-01 0.77330 1.7150
Stroke_history 1.044e+00 9.579e-01 0.70161 1.5534
Peripheral.interv 1.881e+00 5.316e-01 1.22621 2.8853
stenose0-49% 1.659e-07 6.027e+06 0.00000 Inf
stenose50-70% 4.266e-01 2.344e+00 0.07765 2.3434
stenose70-90% 7.443e-01 1.343e+00 0.17924 3.0909
stenose90-99% 7.617e-01 1.313e+00 0.18446 3.1454
stenose100% (Occlusion) 1.048e+00 9.545e-01 0.09231 11.8918
stenoseNA NA NA NA NA
stenose50-99% 2.069e-07 4.833e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] NA NA NA NA
Concordance= 0.705 (se = 0.023 )
Likelihood ratio test= 68.36 on 19 df, p=2e-07
Wald test = 38.72 on 19 df, p=0.005
Score (logrank) test = 66.86 on 19 df, p=3e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.090966
Standard error............: 0.189871
Odds ratio (effect size)..: 1.095
Lower 95% CI..............: 0.755
Upper 95% CI..............: 1.589
T-value...................: 0.479096
P-value...................: 0.6318701
Sample size in model......: 1002
Number of events..........: 114
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 970, number of events= 113
(1418 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 3.455e-01 1.413e+00 2.077e-01 1.663 0.096227 .
Age 3.817e-02 1.039e+00 1.312e-02 2.908 0.003635 **
Gendermale 5.637e-01 1.757e+00 2.340e-01 2.409 0.016010 *
Hypertension.compositeno -5.208e-01 5.941e-01 3.784e-01 -1.376 0.168720
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -5.564e-02 9.459e-01 2.253e-01 -0.247 0.804978
SmokerCurrentno -5.877e-01 5.556e-01 2.061e-01 -2.851 0.004359 **
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.948e-01 1.343e+00 2.206e-01 1.337 0.181368
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 4.108e-01 1.508e+00 2.591e-01 1.586 0.112845
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.747e-02 9.827e-01 5.018e-03 -3.481 0.000499 ***
BMI 5.835e-02 1.060e+00 2.728e-02 2.139 0.032435 *
CAD_history 1.816e-01 1.199e+00 2.041e-01 0.890 0.373610
Stroke_history 3.289e-02 1.033e+00 2.028e-01 0.162 0.871165
Peripheral.interv 6.233e-01 1.865e+00 2.186e-01 2.851 0.004362 **
stenose0-49% -1.443e+01 5.407e-07 1.940e+03 -0.007 0.994066
stenose50-70% -8.746e-01 4.170e-01 8.691e-01 -1.006 0.314250
stenose70-90% -3.829e-01 6.819e-01 7.286e-01 -0.526 0.599224
stenose90-99% -3.973e-01 6.721e-01 7.273e-01 -0.546 0.584875
stenose100% (Occlusion) -5.011e-02 9.511e-01 1.239e+00 -0.040 0.967735
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.453e+01 4.871e-07 2.498e+03 -0.006 0.995358
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] -1.395e-02 9.862e-01 1.990e-01 -0.070 0.944120
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.413e+00 7.079e-01 0.94028 2.1223
Age 1.039e+00 9.626e-01 1.01252 1.0660
Gendermale 1.757e+00 5.691e-01 1.11073 2.7799
Hypertension.compositeno 5.941e-01 1.683e+00 0.28299 1.2471
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.459e-01 1.057e+00 0.60818 1.4711
SmokerCurrentno 5.556e-01 1.800e+00 0.37094 0.8322
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.343e+00 7.447e-01 0.87153 2.0691
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.508e+00 6.631e-01 0.90754 2.5059
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.827e-01 1.018e+00 0.97307 0.9924
BMI 1.060e+00 9.433e-01 1.00490 1.1183
CAD_history 1.199e+00 8.339e-01 0.80377 1.7890
Stroke_history 1.033e+00 9.676e-01 0.69450 1.5378
Peripheral.interv 1.865e+00 5.362e-01 1.21501 2.8627
stenose0-49% 5.407e-07 1.850e+06 0.00000 Inf
stenose50-70% 4.170e-01 2.398e+00 0.07593 2.2905
stenose70-90% 6.819e-01 1.467e+00 0.16350 2.8438
stenose90-99% 6.721e-01 1.488e+00 0.16157 2.7960
stenose100% (Occlusion) 9.511e-01 1.051e+00 0.08388 10.7852
stenoseNA NA NA NA NA
stenose50-99% 4.871e-07 2.053e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 9.862e-01 1.014e+00 0.66771 1.4565
Concordance= 0.706 (se = 0.023 )
Likelihood ratio test= 68.71 on 20 df, p=3e-07
Wald test = 64.7 on 20 df, p=1e-06
Score (logrank) test = 68.67 on 20 df, p=3e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.345452
Standard error............: 0.207675
Odds ratio (effect size)..: 1.413
Lower 95% CI..............: 0.94
Upper 95% CI..............: 2.122
T-value...................: 1.663429
P-value...................: 0.09622664
Sample size in model......: 970
Number of events..........: 113
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 1001, number of events= 114
(1387 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.631e-01 1.177e+00 1.990e-01 0.820 0.412212
Age 3.772e-02 1.038e+00 1.299e-02 2.905 0.003673 **
Gendermale 5.672e-01 1.763e+00 2.311e-01 2.454 0.014136 *
Hypertension.compositeno -5.363e-01 5.849e-01 3.781e-01 -1.419 0.156010
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -4.504e-02 9.560e-01 2.233e-01 -0.202 0.840147
SmokerCurrentno -6.012e-01 5.481e-01 2.049e-01 -2.934 0.003343 **
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.413e-01 1.407e+00 2.178e-01 1.567 0.117091
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.958e-01 1.486e+00 2.585e-01 1.531 0.125667
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.933e-02 9.809e-01 4.975e-03 -3.885 0.000102 ***
BMI 5.855e-02 1.060e+00 2.624e-02 2.231 0.025676 *
CAD_history 1.486e-01 1.160e+00 2.035e-01 0.730 0.465433
Stroke_history 2.847e-02 1.029e+00 2.032e-01 0.140 0.888591
Peripheral.interv 6.295e-01 1.877e+00 2.185e-01 2.881 0.003959 **
stenose0-49% -1.552e+01 1.820e-07 2.775e+03 -0.006 0.995538
stenose50-70% -8.172e-01 4.417e-01 8.704e-01 -0.939 0.347787
stenose70-90% -2.432e-01 7.841e-01 7.292e-01 -0.333 0.738758
stenose90-99% -2.113e-01 8.095e-01 7.269e-01 -0.291 0.771249
stenose100% (Occlusion) 1.271e-01 1.136e+00 1.243e+00 0.102 0.918513
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.545e+01 1.947e-07 4.214e+03 -0.004 0.997074
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 4.243e-02 1.043e+00 1.977e-01 0.215 0.830048
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.177e+00 8.495e-01 0.79708 1.7386
Age 1.038e+00 9.630e-01 1.01235 1.0652
Gendermale 1.763e+00 5.671e-01 1.12091 2.7737
Hypertension.compositeno 5.849e-01 1.710e+00 0.27877 1.2271
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.560e-01 1.046e+00 0.61712 1.4808
SmokerCurrentno 5.481e-01 1.824e+00 0.36684 0.8190
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.407e+00 7.109e-01 0.91800 2.1557
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.486e+00 6.731e-01 0.89515 2.4654
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.809e-01 1.020e+00 0.97134 0.9905
BMI 1.060e+00 9.431e-01 1.00714 1.1163
CAD_history 1.160e+00 8.620e-01 0.77854 1.7288
Stroke_history 1.029e+00 9.719e-01 0.69081 1.5324
Peripheral.interv 1.877e+00 5.329e-01 1.22298 2.8795
stenose0-49% 1.820e-07 5.496e+06 0.00000 Inf
stenose50-70% 4.417e-01 2.264e+00 0.08022 2.4320
stenose70-90% 7.841e-01 1.275e+00 0.18778 3.2742
stenose90-99% 8.095e-01 1.235e+00 0.19476 3.3647
stenose100% (Occlusion) 1.136e+00 8.806e-01 0.09940 12.9735
stenoseNA NA NA NA NA
stenose50-99% 1.947e-07 5.136e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 1.043e+00 9.585e-01 0.70818 1.5371
Concordance= 0.707 (se = 0.023 )
Likelihood ratio test= 69.11 on 20 df, p=3e-07
Wald test = 39.27 on 20 df, p=0.006
Score (logrank) test = 67.72 on 20 df, p=4e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epmajor.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epmajor.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.163144
Standard error............: 0.198954
Odds ratio (effect size)..: 1.177
Lower 95% CI..............: 0.797
Upper 95% CI..............: 1.739
T-value...................: 0.820007
P-value...................: 0.4122119
Sample size in model......: 1001
Number of events..........: 114
* Analyzing the effect of plaque proteins on [epstroke.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 368, number of events= 26
(2020 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] -1.558e-01 8.557e-01 4.112e-01 -0.379 0.705
Age 4.907e-02 1.050e+00 2.821e-02 1.739 0.082 .
Gendermale 6.220e-01 1.863e+00 5.170e-01 1.203 0.229
Hypertension.compositeno -4.395e-01 6.444e-01 7.733e-01 -0.568 0.570
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 2.188e-01 1.245e+00 4.921e-01 0.445 0.657
SmokerCurrentno -3.138e-01 7.307e-01 4.315e-01 -0.727 0.467
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.360e-01 1.266e+00 4.439e-01 0.532 0.595
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.981e-01 1.489e+00 6.140e-01 0.648 0.517
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.981e-03 9.980e-01 1.108e-02 -0.179 0.858
BMI 2.002e-02 1.020e+00 5.918e-02 0.338 0.735
CAD_history 1.966e-01 1.217e+00 4.458e-01 0.441 0.659
Stroke_history 3.242e-01 1.383e+00 4.081e-01 0.794 0.427
Peripheral.interv -5.563e-01 5.733e-01 6.377e-01 -0.872 0.383
stenose0-49% -1.864e+01 8.070e-09 1.496e+04 -0.001 0.999
stenose50-70% -1.832e+01 1.105e-08 5.344e+03 -0.003 0.997
stenose70-90% -1.118e+00 3.269e-01 1.200e+00 -0.932 0.352
stenose90-99% -1.281e+00 2.779e-01 1.218e+00 -1.051 0.293
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank 2.528e-02 1.026e+00 2.000e-01 0.126 0.899
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 8.557e-01 1.169e+00 0.38224 1.916
Age 1.050e+00 9.521e-01 0.99379 1.110
Gendermale 1.863e+00 5.369e-01 0.67615 5.131
Hypertension.compositeno 6.444e-01 1.552e+00 0.14155 2.933
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.245e+00 8.035e-01 0.47437 3.265
SmokerCurrentno 7.307e-01 1.369e+00 0.31362 1.702
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.266e+00 7.897e-01 0.53048 3.022
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.489e+00 6.716e-01 0.44694 4.961
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.980e-01 1.002e+00 0.97658 1.020
BMI 1.020e+00 9.802e-01 0.90848 1.146
CAD_history 1.217e+00 8.215e-01 0.50803 2.917
Stroke_history 1.383e+00 7.231e-01 0.62143 3.077
Peripheral.interv 5.733e-01 1.744e+00 0.16427 2.001
stenose0-49% 8.070e-09 1.239e+08 0.00000 Inf
stenose50-70% 1.105e-08 9.053e+07 0.00000 Inf
stenose70-90% 3.269e-01 3.059e+00 0.03111 3.436
stenose90-99% 2.779e-01 3.599e+00 0.02551 3.026
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank 1.026e+00 9.750e-01 0.69298 1.518
Concordance= 0.697 (se = 0.05 )
Likelihood ratio test= 13.52 on 18 df, p=0.8
Wald test = 10.22 on 18 df, p=0.9
Score (logrank) test = 12.74 on 18 df, p=0.8
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6_rank
Effect size...............: -0.1558
Standard error............: 0.411186
Odds ratio (effect size)..: 0.856
Lower 95% CI..............: 0.382
Upper 95% CI..............: 1.916
T-value...................: -0.378903
P-value...................: 0.7047602
Sample size in model......: 368
Number of events..........: 26
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 392, number of events= 25
(1996 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -5.328e-01 5.870e-01 4.316e-01 -1.234 0.2171
Age 5.067e-02 1.052e+00 2.851e-02 1.777 0.0755 .
Gendermale 6.017e-01 1.825e+00 5.221e-01 1.152 0.2492
Hypertension.compositeno -4.954e-01 6.093e-01 7.676e-01 -0.645 0.5186
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -6.285e-02 9.391e-01 5.253e-01 -0.120 0.9048
SmokerCurrentno -2.323e-01 7.927e-01 4.489e-01 -0.518 0.6047
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.932e-01 1.482e+00 4.510e-01 0.872 0.3834
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 2.429e-01 1.275e+00 6.182e-01 0.393 0.6944
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.360e-03 9.986e-01 1.164e-02 -0.117 0.9069
BMI 1.719e-02 1.017e+00 5.977e-02 0.288 0.7737
CAD_history 1.039e-01 1.110e+00 4.651e-01 0.223 0.8232
Stroke_history 3.472e-01 1.415e+00 4.174e-01 0.832 0.4055
Peripheral.interv -4.019e-01 6.690e-01 6.389e-01 -0.629 0.5293
stenose0-49% -1.875e+01 7.162e-09 1.687e+04 -0.001 0.9991
stenose50-70% -1.832e+01 1.109e-08 5.743e+03 -0.003 0.9975
stenose70-90% -1.081e+00 3.392e-01 1.194e+00 -0.905 0.3653
stenose90-99% -1.274e+00 2.797e-01 1.221e+00 -1.044 0.2966
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank 8.011e-02 1.083e+00 2.080e-01 0.385 0.7001
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 5.870e-01 1.704e+00 0.25192 1.368
Age 1.052e+00 9.506e-01 0.99481 1.112
Gendermale 1.825e+00 5.479e-01 0.65593 5.079
Hypertension.compositeno 6.093e-01 1.641e+00 0.13536 2.743
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.391e-01 1.065e+00 0.33541 2.629
SmokerCurrentno 7.927e-01 1.262e+00 0.32887 1.911
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.482e+00 6.749e-01 0.61212 3.586
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.275e+00 7.844e-01 0.37954 4.282
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.986e-01 1.001e+00 0.97612 1.022
BMI 1.017e+00 9.830e-01 0.90488 1.144
CAD_history 1.110e+00 9.013e-01 0.44588 2.761
Stroke_history 1.415e+00 7.067e-01 0.62443 3.207
Peripheral.interv 6.690e-01 1.495e+00 0.19124 2.340
stenose0-49% 7.162e-09 1.396e+08 0.00000 Inf
stenose50-70% 1.109e-08 9.020e+07 0.00000 Inf
stenose70-90% 3.392e-01 2.949e+00 0.03264 3.524
stenose90-99% 2.797e-01 3.575e+00 0.02557 3.059
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank 1.083e+00 9.230e-01 0.72074 1.629
Concordance= 0.697 (se = 0.05 )
Likelihood ratio test= 14.65 on 18 df, p=0.7
Wald test = 12.01 on 18 df, p=0.8
Score (logrank) test = 14.49 on 18 df, p=0.7
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: MCP1_rank
Effect size...............: -0.532752
Standard error............: 0.431585
Odds ratio (effect size)..: 0.587
Lower 95% CI..............: 0.252
Upper 95% CI..............: 1.368
T-value...................: -1.234407
P-value...................: 0.2170514
Sample size in model......: 392
Number of events..........: 25
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 1002, number of events= 58
(1386 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] -1.438e-01 8.660e-01 2.656e-01 -0.541 0.58818
Age 5.026e-02 1.052e+00 1.793e-02 2.803 0.00506 **
Gendermale 2.919e-01 1.339e+00 3.000e-01 0.973 0.33043
Hypertension.compositeno -2.080e-01 8.122e-01 4.442e-01 -0.468 0.63956
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -6.073e-02 9.411e-01 3.197e-01 -0.190 0.84935
SmokerCurrentno -3.427e-01 7.098e-01 2.939e-01 -1.166 0.24358
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.978e-01 1.488e+00 2.912e-01 1.366 0.17192
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.468e-01 1.414e+00 3.748e-01 0.925 0.35485
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -5.639e-03 9.944e-01 7.004e-03 -0.805 0.42078
BMI 9.236e-02 1.097e+00 3.357e-02 2.751 0.00593 **
CAD_history -5.750e-01 5.627e-01 3.288e-01 -1.749 0.08031 .
Stroke_history 3.241e-01 1.383e+00 2.748e-01 1.179 0.23826
Peripheral.interv 4.887e-01 1.630e+00 3.276e-01 1.492 0.13578
stenose0-49% -1.559e+01 1.699e-07 3.740e+03 -0.004 0.99667
stenose50-70% -5.898e-01 5.544e-01 1.159e+00 -0.509 0.61097
stenose70-90% -3.521e-01 7.032e-01 1.025e+00 -0.343 0.73127
stenose90-99% -3.578e-01 6.992e-01 1.024e+00 -0.349 0.72672
stenose100% (Occlusion) 3.875e-01 1.473e+00 1.439e+00 0.269 0.78767
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.537e+01 2.109e-07 5.615e+03 -0.003 0.99782
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 8.660e-01 1.155e+00 0.51454 1.458
Age 1.052e+00 9.510e-01 1.01523 1.089
Gendermale 1.339e+00 7.468e-01 0.74380 2.411
Hypertension.compositeno 8.122e-01 1.231e+00 0.34009 1.940
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.411e-01 1.063e+00 0.50289 1.761
SmokerCurrentno 7.098e-01 1.409e+00 0.39898 1.263
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.488e+00 6.718e-01 0.84120 2.634
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.414e+00 7.070e-01 0.67854 2.949
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.944e-01 1.006e+00 0.98082 1.008
BMI 1.097e+00 9.118e-01 1.02692 1.171
CAD_history 5.627e-01 1.777e+00 0.29542 1.072
Stroke_history 1.383e+00 7.232e-01 0.80691 2.370
Peripheral.interv 1.630e+00 6.134e-01 0.85779 3.098
stenose0-49% 1.699e-07 5.887e+06 0.00000 Inf
stenose50-70% 5.544e-01 1.804e+00 0.05713 5.380
stenose70-90% 7.032e-01 1.422e+00 0.09429 5.245
stenose90-99% 6.992e-01 1.430e+00 0.09401 5.200
stenose100% (Occlusion) 1.473e+00 6.788e-01 0.08784 24.711
stenoseNA NA NA NA NA
stenose50-99% 2.109e-07 4.742e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] NA NA NA NA
Concordance= 0.682 (se = 0.036 )
Likelihood ratio test= 27.19 on 19 df, p=0.1
Wald test = 22.76 on 19 df, p=0.2
Score (logrank) test = 26.28 on 19 df, p=0.1
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: -0.143835
Standard error............: 0.265636
Odds ratio (effect size)..: 0.866
Lower 95% CI..............: 0.515
Upper 95% CI..............: 1.458
T-value...................: -0.541475
P-value...................: 0.5881802
Sample size in model......: 1002
Number of events..........: 58
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 970, number of events= 57
(1418 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.922e-01 1.212e+00 2.849e-01 0.675 0.49989
Age 4.981e-02 1.051e+00 1.823e-02 2.733 0.00628 **
Gendermale 2.945e-01 1.342e+00 3.063e-01 0.961 0.33642
Hypertension.compositeno -2.189e-01 8.034e-01 4.448e-01 -0.492 0.62257
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -1.150e-01 8.914e-01 3.264e-01 -0.352 0.72473
SmokerCurrentno -3.442e-01 7.088e-01 2.961e-01 -1.162 0.24510
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.949e-01 1.484e+00 2.960e-01 1.334 0.18224
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.615e-01 1.436e+00 3.750e-01 0.964 0.33495
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -3.047e-03 9.970e-01 7.227e-03 -0.422 0.67331
BMI 9.901e-02 1.104e+00 3.632e-02 2.726 0.00640 **
CAD_history -5.360e-01 5.851e-01 3.312e-01 -1.618 0.10561
Stroke_history 3.457e-01 1.413e+00 2.759e-01 1.253 0.21027
Peripheral.interv 5.297e-01 1.698e+00 3.294e-01 1.608 0.10779
stenose0-49% -1.417e+01 7.014e-07 2.855e+03 -0.005 0.99604
stenose50-70% -5.990e-01 5.494e-01 1.159e+00 -0.517 0.60543
stenose70-90% -3.751e-01 6.872e-01 1.026e+00 -0.366 0.71466
stenose90-99% -4.397e-01 6.443e-01 1.027e+00 -0.428 0.66855
stenose100% (Occlusion) 3.483e-01 1.417e+00 1.436e+00 0.242 0.80840
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.446e+01 5.246e-07 3.454e+03 -0.004 0.99666
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] -1.892e-01 8.277e-01 2.775e-01 -0.682 0.49539
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.212e+00 8.251e-01 0.69340 2.118
Age 1.051e+00 9.514e-01 1.01418 1.089
Gendermale 1.342e+00 7.449e-01 0.73643 2.447
Hypertension.compositeno 8.034e-01 1.245e+00 0.33600 1.921
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 8.914e-01 1.122e+00 0.47012 1.690
SmokerCurrentno 7.088e-01 1.411e+00 0.39671 1.266
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.484e+00 6.738e-01 0.83083 2.651
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.436e+00 6.966e-01 0.68841 2.993
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.970e-01 1.003e+00 0.98294 1.011
BMI 1.104e+00 9.057e-01 1.02822 1.186
CAD_history 5.851e-01 1.709e+00 0.30571 1.120
Stroke_history 1.413e+00 7.078e-01 0.82275 2.426
Peripheral.interv 1.698e+00 5.888e-01 0.89060 3.239
stenose0-49% 7.014e-07 1.426e+06 0.00000 Inf
stenose50-70% 5.494e-01 1.820e+00 0.05661 5.331
stenose70-90% 6.872e-01 1.455e+00 0.09199 5.134
stenose90-99% 6.443e-01 1.552e+00 0.08609 4.821
stenose100% (Occlusion) 1.417e+00 7.059e-01 0.08484 23.655
stenoseNA NA NA NA NA
stenose50-99% 5.246e-07 1.906e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 8.277e-01 1.208e+00 0.48049 1.426
Concordance= 0.682 (se = 0.037 )
Likelihood ratio test= 26.8 on 20 df, p=0.1
Wald test = 24.83 on 20 df, p=0.2
Score (logrank) test = 26.17 on 20 df, p=0.2
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.192191
Standard error............: 0.284869
Odds ratio (effect size)..: 1.212
Lower 95% CI..............: 0.693
Upper 95% CI..............: 2.118
T-value...................: 0.674663
P-value...................: 0.49989
Sample size in model......: 970
Number of events..........: 57
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 1001, number of events= 58
(1387 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 9.854e-02 1.104e+00 2.811e-01 0.351 0.72590
Age 5.007e-02 1.051e+00 1.795e-02 2.789 0.00529 **
Gendermale 2.863e-01 1.331e+00 3.004e-01 0.953 0.34056
Hypertension.compositeno -2.175e-01 8.045e-01 4.449e-01 -0.489 0.62490
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -5.951e-02 9.422e-01 3.197e-01 -0.186 0.85233
SmokerCurrentno -3.434e-01 7.093e-01 2.943e-01 -1.167 0.24327
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.975e-01 1.488e+00 2.915e-01 1.364 0.17269
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.438e-01 1.410e+00 3.744e-01 0.918 0.35853
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -5.790e-03 9.942e-01 7.008e-03 -0.826 0.40874
BMI 9.346e-02 1.098e+00 3.390e-02 2.757 0.00583 **
CAD_history -5.704e-01 5.653e-01 3.291e-01 -1.734 0.08301 .
Stroke_history 3.137e-01 1.368e+00 2.761e-01 1.136 0.25587
Peripheral.interv 4.846e-01 1.624e+00 3.278e-01 1.478 0.13932
stenose0-49% -1.553e+01 1.806e-07 3.750e+03 -0.004 0.99670
stenose50-70% -5.725e-01 5.641e-01 1.161e+00 -0.493 0.62181
stenose70-90% -3.214e-01 7.252e-01 1.029e+00 -0.312 0.75480
stenose90-99% -3.196e-01 7.265e-01 1.029e+00 -0.311 0.75615
stenose100% (Occlusion) 4.363e-01 1.547e+00 1.445e+00 0.302 0.76266
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.540e+01 2.048e-07 5.618e+03 -0.003 0.99781
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] -1.713e-01 8.426e-01 2.758e-01 -0.621 0.53451
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.104e+00 9.062e-01 0.63612 1.914
Age 1.051e+00 9.512e-01 1.01499 1.089
Gendermale 1.331e+00 7.511e-01 0.73900 2.399
Hypertension.compositeno 8.045e-01 1.243e+00 0.33641 1.924
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.422e-01 1.061e+00 0.50353 1.763
SmokerCurrentno 7.093e-01 1.410e+00 0.39840 1.263
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.488e+00 6.720e-01 0.84044 2.635
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.410e+00 7.091e-01 0.67701 2.938
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.942e-01 1.006e+00 0.98066 1.008
BMI 1.098e+00 9.108e-01 1.02739 1.173
CAD_history 5.653e-01 1.769e+00 0.29660 1.077
Stroke_history 1.368e+00 7.307e-01 0.79658 2.351
Peripheral.interv 1.624e+00 6.159e-01 0.85395 3.087
stenose0-49% 1.806e-07 5.537e+06 0.00000 Inf
stenose50-70% 5.641e-01 1.773e+00 0.05800 5.486
stenose70-90% 7.252e-01 1.379e+00 0.09652 5.449
stenose90-99% 7.265e-01 1.377e+00 0.09666 5.460
stenose100% (Occlusion) 1.547e+00 6.464e-01 0.09112 26.266
stenoseNA NA NA NA NA
stenose50-99% 2.048e-07 4.883e+06 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 8.426e-01 1.187e+00 0.49076 1.447
Concordance= 0.684 (se = 0.036 )
Likelihood ratio test= 27.27 on 20 df, p=0.1
Wald test = 22.73 on 20 df, p=0.3
Score (logrank) test = 26.34 on 20 df, p=0.2
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epstroke.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epstroke.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.098544
Standard error............: 0.28108
Odds ratio (effect size)..: 1.104
Lower 95% CI..............: 0.636
Upper 95% CI..............: 1.915
T-value...................: 0.350591
P-value...................: 0.7258952
Sample size in model......: 1001
Number of events..........: 58
* Analyzing the effect of plaque proteins on [epcoronary.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 368, number of events= 35
(2020 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 3.265e-02 1.033e+00 3.620e-01 0.090 0.9281
Age 4.434e-02 1.045e+00 2.524e-02 1.757 0.0790 .
Gendermale 8.463e-01 2.331e+00 4.995e-01 1.694 0.0902 .
Hypertension.compositeno -6.475e-01 5.233e-01 7.502e-01 -0.863 0.3881
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.182e-01 1.125e+00 4.279e-01 0.276 0.7823
SmokerCurrentno -3.267e-01 7.213e-01 3.670e-01 -0.890 0.3734
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 1.030e-01 1.109e+00 4.070e-01 0.253 0.8002
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 4.438e-01 1.559e+00 4.804e-01 0.924 0.3556
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.345e-02 9.866e-01 9.552e-03 -1.408 0.1591
BMI -2.755e-02 9.728e-01 5.681e-02 -0.485 0.6277
CAD_history 7.157e-01 2.046e+00 3.731e-01 1.918 0.0551 .
Stroke_history -5.258e-01 5.911e-01 4.121e-01 -1.276 0.2020
Peripheral.interv 2.659e-01 1.305e+00 4.098e-01 0.649 0.5164
stenose0-49% -4.150e-01 6.604e-01 9.455e+03 0.000 1.0000
stenose50-70% 1.616e+01 1.039e+07 5.837e+03 0.003 0.9978
stenose70-90% 1.617e+01 1.056e+07 5.837e+03 0.003 0.9978
stenose90-99% 1.616e+01 1.046e+07 5.837e+03 0.003 0.9978
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank 1.736e-01 1.190e+00 1.820e-01 0.954 0.3400
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 1.033e+00 9.679e-01 0.5082 2.100
Age 1.045e+00 9.566e-01 0.9949 1.098
Gendermale 2.331e+00 4.290e-01 0.8758 6.204
Hypertension.compositeno 5.233e-01 1.911e+00 0.1203 2.277
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.125e+00 8.885e-01 0.4865 2.604
SmokerCurrentno 7.213e-01 1.386e+00 0.3513 1.481
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.109e+00 9.021e-01 0.4992 2.461
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.559e+00 6.416e-01 0.6079 3.996
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.866e-01 1.014e+00 0.9683 1.005
BMI 9.728e-01 1.028e+00 0.8703 1.087
CAD_history 2.046e+00 4.888e-01 0.9846 4.250
Stroke_history 5.911e-01 1.692e+00 0.2636 1.326
Peripheral.interv 1.305e+00 7.665e-01 0.5844 2.913
stenose0-49% 6.604e-01 1.514e+00 0.0000 Inf
stenose50-70% 1.039e+07 9.628e-08 0.0000 Inf
stenose70-90% 1.056e+07 9.465e-08 0.0000 Inf
stenose90-99% 1.046e+07 9.562e-08 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank 1.190e+00 8.406e-01 0.8327 1.699
Concordance= 0.769 (se = 0.037 )
Likelihood ratio test= 29.04 on 18 df, p=0.05
Wald test = 19.05 on 18 df, p=0.4
Score (logrank) test = 30.5 on 18 df, p=0.03
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6_rank
Effect size...............: 0.032645
Standard error............: 0.361965
Odds ratio (effect size)..: 1.033
Lower 95% CI..............: 0.508
Upper 95% CI..............: 2.1
T-value...................: 0.09019
P-value...................: 0.9281365
Sample size in model......: 368
Number of events..........: 35
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 392, number of events= 36
(1996 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -1.373e-02 9.864e-01 3.585e-01 -0.038 0.9694
Age 3.619e-02 1.037e+00 2.487e-02 1.455 0.1455
Gendermale 6.864e-01 1.987e+00 4.617e-01 1.487 0.1371
Hypertension.compositeno -2.809e-01 7.551e-01 6.331e-01 -0.444 0.6572
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 2.804e-01 1.324e+00 3.981e-01 0.704 0.4812
SmokerCurrentno -3.924e-01 6.754e-01 3.591e-01 -1.093 0.2745
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 1.115e-01 1.118e+00 4.062e-01 0.274 0.7837
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 4.027e-01 1.496e+00 4.781e-01 0.842 0.3995
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.685e-02 9.833e-01 9.425e-03 -1.788 0.0738 .
BMI -1.446e-02 9.856e-01 5.293e-02 -0.273 0.7848
CAD_history 7.367e-01 2.089e+00 3.648e-01 2.020 0.0434 *
Stroke_history -3.350e-01 7.153e-01 3.837e-01 -0.873 0.3826
Peripheral.interv 3.051e-01 1.357e+00 4.015e-01 0.760 0.4474
stenose0-49% -4.331e-01 6.485e-01 9.334e+03 0.000 1.0000
stenose50-70% 1.616e+01 1.042e+07 5.888e+03 0.003 0.9978
stenose70-90% 1.607e+01 9.491e+06 5.888e+03 0.003 0.9978
stenose90-99% 1.612e+01 1.004e+07 5.888e+03 0.003 0.9978
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank 2.116e-01 1.236e+00 1.763e-01 1.200 0.2301
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 9.864e-01 1.014e+00 0.4886 1.991
Age 1.037e+00 9.645e-01 0.9875 1.089
Gendermale 1.987e+00 5.034e-01 0.8037 4.911
Hypertension.compositeno 7.551e-01 1.324e+00 0.2183 2.612
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.324e+00 7.555e-01 0.6066 2.888
SmokerCurrentno 6.754e-01 1.481e+00 0.3341 1.365
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.118e+00 8.945e-01 0.5043 2.478
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.496e+00 6.685e-01 0.5861 3.818
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.833e-01 1.017e+00 0.9653 1.002
BMI 9.856e-01 1.015e+00 0.8885 1.093
CAD_history 2.089e+00 4.787e-01 1.0220 4.270
Stroke_history 7.153e-01 1.398e+00 0.3372 1.517
Peripheral.interv 1.357e+00 7.371e-01 0.6176 2.980
stenose0-49% 6.485e-01 1.542e+00 0.0000 Inf
stenose50-70% 1.042e+07 9.596e-08 0.0000 Inf
stenose70-90% 9.491e+06 1.054e-07 0.0000 Inf
stenose90-99% 1.004e+07 9.964e-08 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank 1.236e+00 8.093e-01 0.8747 1.745
Concordance= 0.749 (se = 0.041 )
Likelihood ratio test= 27.64 on 18 df, p=0.07
Wald test = 16.45 on 18 df, p=0.6
Score (logrank) test = 28.99 on 18 df, p=0.05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: MCP1_rank
Effect size...............: -0.013729
Standard error............: 0.358462
Odds ratio (effect size)..: 0.986
Lower 95% CI..............: 0.489
Upper 95% CI..............: 1.991
T-value...................: -0.038301
P-value...................: 0.9694478
Sample size in model......: 392
Number of events..........: 36
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 1002, number of events= 79
(1386 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 5.813e-02 1.060e+00 2.304e-01 0.252 0.80083
Age -3.043e-03 9.970e-01 1.510e-02 -0.201 0.84032
Gendermale 7.141e-01 2.042e+00 3.011e-01 2.372 0.01771 *
Hypertension.compositeno -7.882e-01 4.546e-01 5.252e-01 -1.501 0.13341
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -1.803e-01 8.351e-01 2.782e-01 -0.648 0.51711
SmokerCurrentno -5.750e-01 5.627e-01 2.428e-01 -2.369 0.01785 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.493e-01 1.283e+00 2.741e-01 0.909 0.36312
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.737e-01 1.190e+00 3.354e-01 0.518 0.60448
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.040e-02 9.798e-01 5.967e-03 -3.419 0.00063 ***
BMI 1.169e-02 1.012e+00 3.338e-02 0.350 0.72620
CAD_history 9.403e-01 2.561e+00 2.410e-01 3.901 9.56e-05 ***
Stroke_history -1.024e-01 9.027e-01 2.526e-01 -0.405 0.68527
Peripheral.interv 4.301e-01 1.537e+00 2.613e-01 1.646 0.09979 .
stenose0-49% -1.581e+01 1.357e-07 3.608e+03 -0.004 0.99650
stenose50-70% -1.055e+00 3.483e-01 1.233e+00 -0.856 0.39220
stenose70-90% -1.716e-02 9.830e-01 1.022e+00 -0.017 0.98661
stenose90-99% -1.699e-01 8.437e-01 1.022e+00 -0.166 0.86794
stenose100% (Occlusion) -1.551e+01 1.841e-07 3.150e+03 -0.005 0.99607
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% 1.291e+00 3.637e+00 1.459e+00 0.885 0.37628
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.060e+00 9.435e-01 0.67470 1.6649
Age 9.970e-01 1.003e+00 0.96789 1.0269
Gendermale 2.042e+00 4.896e-01 1.13195 3.6847
Hypertension.compositeno 4.546e-01 2.200e+00 0.16241 1.2727
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 8.351e-01 1.198e+00 0.48403 1.4407
SmokerCurrentno 5.627e-01 1.777e+00 0.34966 0.9055
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.283e+00 7.793e-01 0.74978 2.1959
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.190e+00 8.405e-01 0.61655 2.2958
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.798e-01 1.021e+00 0.96842 0.9913
BMI 1.012e+00 9.884e-01 0.94768 1.0802
CAD_history 2.561e+00 3.905e-01 1.59668 4.1070
Stroke_history 9.027e-01 1.108e+00 0.55019 1.4810
Peripheral.interv 1.537e+00 6.504e-01 0.92119 2.5661
stenose0-49% 1.357e-07 7.370e+06 0.00000 Inf
stenose50-70% 3.483e-01 2.871e+00 0.03108 3.9018
stenose70-90% 9.830e-01 1.017e+00 0.13256 7.2891
stenose90-99% 8.437e-01 1.185e+00 0.11388 6.2514
stenose100% (Occlusion) 1.841e-07 5.432e+06 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 3.637e+00 2.750e-01 0.20825 63.5179
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] NA NA NA NA
Concordance= 0.738 (se = 0.027 )
Likelihood ratio test= 61.46 on 19 df, p=2e-06
Wald test = 60.06 on 19 df, p=4e-06
Score (logrank) test = 64.83 on 19 df, p=7e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.058129
Standard error............: 0.230422
Odds ratio (effect size)..: 1.06
Lower 95% CI..............: 0.675
Upper 95% CI..............: 1.665
T-value...................: 0.252272
P-value...................: 0.8008308
Sample size in model......: 1002
Number of events..........: 79
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 970, number of events= 79
(1418 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 2.941e-01 1.342e+00 2.501e-01 1.176 0.239562
Age -2.902e-03 9.971e-01 1.518e-02 -0.191 0.848414
Gendermale 6.691e-01 1.953e+00 3.010e-01 2.223 0.026216 *
Hypertension.compositeno -7.890e-01 4.543e-01 5.262e-01 -1.499 0.133764
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -1.543e-01 8.570e-01 2.782e-01 -0.555 0.579160
SmokerCurrentno -5.523e-01 5.756e-01 2.444e-01 -2.259 0.023868 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 1.992e-01 1.220e+00 2.773e-01 0.718 0.472584
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.835e-01 1.201e+00 3.363e-01 0.546 0.585317
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -1.969e-02 9.805e-01 5.957e-03 -3.306 0.000947 ***
BMI 1.099e-02 1.011e+00 3.388e-02 0.324 0.745737
CAD_history 9.533e-01 2.594e+00 2.411e-01 3.954 7.69e-05 ***
Stroke_history -1.332e-01 8.753e-01 2.524e-01 -0.528 0.597671
Peripheral.interv 3.997e-01 1.491e+00 2.606e-01 1.533 0.125201
stenose0-49% -1.580e+01 1.379e-07 4.034e+03 -0.004 0.996875
stenose50-70% -1.057e+00 3.475e-01 1.232e+00 -0.858 0.390766
stenose70-90% -9.532e-02 9.091e-01 1.024e+00 -0.093 0.925855
stenose90-99% -2.567e-01 7.736e-01 1.025e+00 -0.250 0.802245
stenose100% (Occlusion) -1.556e+01 1.749e-07 2.984e+03 -0.005 0.995840
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% 1.071e+00 2.920e+00 1.470e+00 0.729 0.465935
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] -7.198e-02 9.305e-01 2.421e-01 -0.297 0.766252
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.342e+00 7.452e-01 0.82199 2.1907
Age 9.971e-01 1.003e+00 0.96787 1.0272
Gendermale 1.953e+00 5.122e-01 1.08239 3.5222
Hypertension.compositeno 4.543e-01 2.201e+00 0.16197 1.2742
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 8.570e-01 1.167e+00 0.49684 1.4784
SmokerCurrentno 5.756e-01 1.737e+00 0.35652 0.9295
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.220e+00 8.194e-01 0.70873 2.1014
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.201e+00 8.324e-01 0.62153 2.3222
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.805e-01 1.020e+00 0.96912 0.9920
BMI 1.011e+00 9.891e-01 0.94609 1.0805
CAD_history 2.594e+00 3.855e-01 1.61726 4.1613
Stroke_history 8.753e-01 1.142e+00 0.53373 1.4354
Peripheral.interv 1.491e+00 6.706e-01 0.89475 2.4856
stenose0-49% 1.379e-07 7.253e+06 0.00000 Inf
stenose50-70% 3.475e-01 2.878e+00 0.03108 3.8845
stenose70-90% 9.091e-01 1.100e+00 0.12210 6.7683
stenose90-99% 7.736e-01 1.293e+00 0.10374 5.7687
stenose100% (Occlusion) 1.749e-07 5.719e+06 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 2.920e+00 3.425e-01 0.16384 52.0301
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 9.305e-01 1.075e+00 0.57893 1.4957
Concordance= 0.736 (se = 0.028 )
Likelihood ratio test= 61.86 on 20 df, p=4e-06
Wald test = 61 on 20 df, p=5e-06
Score (logrank) test = 66.22 on 20 df, p=7e-07
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.294099
Standard error............: 0.250066
Odds ratio (effect size)..: 1.342
Lower 95% CI..............: 0.822
Upper 95% CI..............: 2.191
T-value...................: 1.176083
P-value...................: 0.2395617
Sample size in model......: 970
Number of events..........: 79
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 1001, number of events= 79
(1387 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.074e-02 1.011e+00 2.418e-01 0.044 0.964569
Age -3.637e-03 9.964e-01 1.513e-02 -0.240 0.809994
Gendermale 7.173e-01 2.049e+00 3.011e-01 2.382 0.017207 *
Hypertension.compositeno -7.921e-01 4.529e-01 5.256e-01 -1.507 0.131811
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -1.848e-01 8.313e-01 2.784e-01 -0.664 0.506811
SmokerCurrentno -5.678e-01 5.668e-01 2.429e-01 -2.338 0.019394 *
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 2.635e-01 1.302e+00 2.744e-01 0.960 0.336808
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.715e-01 1.187e+00 3.354e-01 0.512 0.609000
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.055e-02 9.797e-01 5.981e-03 -3.436 0.000589 ***
BMI 1.214e-02 1.012e+00 3.335e-02 0.364 0.715939
CAD_history 9.475e-01 2.579e+00 2.413e-01 3.927 8.6e-05 ***
Stroke_history -1.057e-01 8.997e-01 2.527e-01 -0.418 0.675695
Peripheral.interv 4.261e-01 1.531e+00 2.613e-01 1.631 0.102925
stenose0-49% -1.580e+01 1.370e-07 3.598e+03 -0.004 0.996495
stenose50-70% -1.058e+00 3.471e-01 1.234e+00 -0.857 0.391189
stenose70-90% -1.794e-02 9.822e-01 1.025e+00 -0.017 0.986043
stenose90-99% -1.636e-01 8.490e-01 1.026e+00 -0.160 0.873227
stenose100% (Occlusion) -1.550e+01 1.848e-07 3.151e+03 -0.005 0.996074
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% 1.266e+00 3.545e+00 1.462e+00 0.865 0.386797
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 4.822e-02 1.049e+00 2.419e-01 0.199 0.841964
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 1.011e+00 9.893e-01 0.62928 1.6236
Age 9.964e-01 1.004e+00 0.96726 1.0264
Gendermale 2.049e+00 4.881e-01 1.13560 3.6969
Hypertension.compositeno 4.529e-01 2.208e+00 0.16166 1.2688
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 8.313e-01 1.203e+00 0.48168 1.4346
SmokerCurrentno 5.668e-01 1.764e+00 0.35208 0.9123
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.302e+00 7.683e-01 0.76016 2.2285
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.187e+00 8.424e-01 0.61524 2.2906
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.797e-01 1.021e+00 0.96824 0.9912
BMI 1.012e+00 9.879e-01 0.94816 1.0806
CAD_history 2.579e+00 3.877e-01 1.60738 4.1388
Stroke_history 8.997e-01 1.112e+00 0.54825 1.4764
Peripheral.interv 1.531e+00 6.531e-01 0.91761 2.5552
stenose0-49% 1.370e-07 7.301e+06 0.00000 Inf
stenose50-70% 3.471e-01 2.881e+00 0.03091 3.8982
stenose70-90% 9.822e-01 1.018e+00 0.13167 7.3272
stenose90-99% 8.490e-01 1.178e+00 0.11375 6.3373
stenose100% (Occlusion) 1.848e-07 5.412e+06 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 3.545e+00 2.821e-01 0.20178 62.2819
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 1.049e+00 9.529e-01 0.65322 1.6859
Concordance= 0.739 (se = 0.027 )
Likelihood ratio test= 61.78 on 20 df, p=4e-06
Wald test = 60.46 on 20 df, p=6e-06
Score (logrank) test = 65.18 on 20 df, p=1e-06
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epcoronary.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcoronary.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: 0.010741
Standard error............: 0.241803
Odds ratio (effect size)..: 1.011
Lower 95% CI..............: 0.629
Upper 95% CI..............: 1.624
T-value...................: 0.044421
P-value...................: 0.9645686
Sample size in model......: 1001
Number of events..........: 79
* Analyzing the effect of plaque proteins on [epcvdeath.3years].
- creating temporary SE for this work.
- making a 'Surv' object and adding this to temporary dataframe.
- making strata of each of the plaque proteins and start survival analysis.
> processing [IL6_rank]; 1 out of 5 proteins.
> cross tabulation of IL6_rank-stratum.
[-1.48329,0.00474) [ 0.00474,3.10694]
265 264
> fitting the model for IL6_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 368, number of events= 16
(2020 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] -5.348e-01 5.858e-01 5.697e-01 -0.939 0.34787
Age 1.204e-01 1.128e+00 4.428e-02 2.719 0.00656 **
Gendermale 1.300e+00 3.668e+00 8.109e-01 1.603 0.10901
Hypertension.compositeno -1.825e+01 1.186e-08 6.198e+03 -0.003 0.99765
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 6.644e-01 1.943e+00 6.672e-01 0.996 0.31935
SmokerCurrentno -4.135e-01 6.613e-01 5.625e-01 -0.735 0.46231
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 6.205e-01 1.860e+00 5.885e-01 1.054 0.29169
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 5.564e-01 1.744e+00 7.174e-01 0.775 0.43805
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.473e-02 9.756e-01 1.398e-02 -1.769 0.07689 .
BMI 3.300e-02 1.034e+00 8.036e-02 0.411 0.68131
CAD_history 1.119e-01 1.118e+00 5.550e-01 0.202 0.84020
Stroke_history 6.650e-02 1.069e+00 5.801e-01 0.115 0.90875
Peripheral.interv 1.094e-01 1.116e+00 7.207e-01 0.152 0.87939
stenose0-49% -1.205e-01 8.865e-01 4.082e+04 0.000 1.00000
stenose50-70% 6.892e-01 1.992e+00 2.304e+04 0.000 0.99998
stenose70-90% 1.854e+01 1.126e+08 2.053e+04 0.001 0.99928
stenose90-99% 1.825e+01 8.401e+07 2.053e+04 0.001 0.99929
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank 1.903e-01 1.210e+00 2.990e-01 0.636 0.52458
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00474,3.10694] 5.858e-01 1.707e+00 0.1918 1.789
Age 1.128e+00 8.866e-01 1.0342 1.230
Gendermale 3.668e+00 2.727e-01 0.7485 17.973
Hypertension.compositeno 1.186e-08 8.434e+07 0.0000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.943e+00 5.146e-01 0.5256 7.185
SmokerCurrentno 6.613e-01 1.512e+00 0.2196 1.992
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.860e+00 5.377e-01 0.5869 5.894
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.744e+00 5.733e-01 0.4275 7.117
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.756e-01 1.025e+00 0.9492 1.003
BMI 1.034e+00 9.675e-01 0.8829 1.210
CAD_history 1.118e+00 8.941e-01 0.3768 3.319
Stroke_history 1.069e+00 9.357e-01 0.3428 3.332
Peripheral.interv 1.116e+00 8.964e-01 0.2716 4.581
stenose0-49% 8.865e-01 1.128e+00 0.0000 Inf
stenose50-70% 1.992e+00 5.020e-01 0.0000 Inf
stenose70-90% 1.126e+08 8.880e-09 0.0000 Inf
stenose90-99% 8.401e+07 1.190e-08 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank 1.210e+00 8.267e-01 0.6731 2.173
Concordance= 0.874 (se = 0.028 )
Likelihood ratio test= 31.1 on 18 df, p=0.03
Wald test = 7.85 on 18 df, p=1
Score (logrank) test = 27.82 on 18 df, p=0.06
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6_rank
Effect size...............: -0.534802
Standard error............: 0.569715
Odds ratio (effect size)..: 0.586
Lower 95% CI..............: 0.192
Upper 95% CI..............: 1.789
T-value...................: -0.938719
P-value...................: 0.3478749
Sample size in model......: 368
Number of events..........: 16
> processing [MCP1_rank]; 2 out of 5 proteins.
> cross tabulation of MCP1_rank-stratum.
[-2.41053,0.00444) [ 0.00444,3.12635]
283 282
> fitting the model for MCP1_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 392, number of events= 17
(1996 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] -3.168e-01 7.285e-01 5.580e-01 -0.568 0.57023
Age 1.065e-01 1.112e+00 4.140e-02 2.572 0.01012 *
Gendermale 1.261e+00 3.527e+00 7.908e-01 1.594 0.11092
Hypertension.compositeno -1.930e+01 4.153e-09 8.188e+03 -0.002 0.99812
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 5.345e-01 1.707e+00 6.662e-01 0.802 0.42240
SmokerCurrentno -4.488e-01 6.384e-01 5.490e-01 -0.817 0.41367
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 7.274e-01 2.070e+00 5.707e-01 1.275 0.20245
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 3.782e-01 1.460e+00 7.117e-01 0.531 0.59515
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -3.813e-02 9.626e-01 1.433e-02 -2.662 0.00778 **
BMI 1.193e-02 1.012e+00 7.964e-02 0.150 0.88096
CAD_history -3.662e-01 6.934e-01 5.744e-01 -0.637 0.52382
Stroke_history 1.794e-01 1.196e+00 5.583e-01 0.321 0.74803
Peripheral.interv 6.105e-01 1.841e+00 6.483e-01 0.942 0.34637
stenose0-49% -5.579e-01 5.724e-01 7.733e+04 0.000 0.99999
stenose50-70% 6.658e-01 1.946e+00 4.168e+04 0.000 0.99999
stenose70-90% 1.967e+01 3.486e+08 3.799e+04 0.001 0.99959
stenose90-99% 1.929e+01 2.375e+08 3.799e+04 0.001 0.99960
stenose100% (Occlusion) NA NA 0.000e+00 NA NA
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% NA NA 0.000e+00 NA NA
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank 9.400e-02 1.099e+00 2.942e-01 0.319 0.74936
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00444,3.12635] 7.285e-01 1.373e+00 0.2440 2.175
Age 1.112e+00 8.990e-01 1.0256 1.206
Gendermale 3.527e+00 2.835e-01 0.7487 16.619
Hypertension.compositeno 4.153e-09 2.408e+08 0.0000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.707e+00 5.860e-01 0.4624 6.298
SmokerCurrentno 6.384e-01 1.566e+00 0.2177 1.872
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 2.070e+00 4.831e-01 0.6763 6.335
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 1.460e+00 6.851e-01 0.3618 5.889
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.626e-01 1.039e+00 0.9359 0.990
BMI 1.012e+00 9.881e-01 0.8657 1.183
CAD_history 6.934e-01 1.442e+00 0.2249 2.138
Stroke_history 1.196e+00 8.358e-01 0.4005 3.574
Peripheral.interv 1.841e+00 5.431e-01 0.5167 6.562
stenose0-49% 5.724e-01 1.747e+00 0.0000 Inf
stenose50-70% 1.946e+00 5.138e-01 0.0000 Inf
stenose70-90% 3.486e+08 2.868e-09 0.0000 Inf
stenose90-99% 2.375e+08 4.210e-09 0.0000 Inf
stenose100% (Occlusion) NA NA NA NA
stenoseNA NA NA NA NA
stenose50-99% NA NA NA NA
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank 1.099e+00 9.103e-01 0.6171 1.956
Concordance= 0.89 (se = 0.023 )
Likelihood ratio test= 35.41 on 18 df, p=0.008
Wald test = 6.69 on 18 df, p=1
Score (logrank) test = 31.24 on 18 df, p=0.03
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: MCP1_rank
Effect size...............: -0.316806
Standard error............: 0.55804
Odds ratio (effect size)..: 0.728
Lower 95% CI..............: 0.244
Upper 95% CI..............: 2.175
T-value...................: -0.567713
P-value...................: 0.5702299
Sample size in model......: 392
Number of events..........: 17
> processing [IL6_pg_ug_2015_rank]; 3 out of 5 proteins.
> cross tabulation of IL6_pg_ug_2015_rank-stratum.
[-3.33061,0.00109) [ 0.00109,3.33061]
577 577
> fitting the model for IL6_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 1002, number of events= 35
(1386 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 3.124e-01 1.367e+00 3.495e-01 0.894 0.371352
Age 6.928e-02 1.072e+00 2.589e-02 2.676 0.007450 **
Gendermale 1.013e+00 2.755e+00 4.933e-01 2.054 0.039942 *
Hypertension.compositeno -1.767e+01 2.123e-08 3.770e+03 -0.005 0.996261
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -5.545e-02 9.461e-01 4.082e-01 -0.136 0.891958
SmokerCurrentno -4.117e-01 6.625e-01 3.828e-01 -1.076 0.282106
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.902e-02 1.040e+00 4.239e-01 0.092 0.926647
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.096e+00 2.991e+00 3.963e-01 2.765 0.005696 **
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -3.121e-02 9.693e-01 9.102e-03 -3.428 0.000607 ***
BMI 6.702e-02 1.069e+00 5.147e-02 1.302 0.192850
CAD_history 2.453e-01 1.278e+00 3.548e-01 0.692 0.489238
Stroke_history -1.405e-01 8.689e-01 3.867e-01 -0.363 0.716259
Peripheral.interv 6.223e-01 1.863e+00 4.073e-01 1.528 0.126503
stenose0-49% -1.957e+01 3.162e-09 2.801e+04 -0.001 0.999442
stenose50-70% -8.921e-01 4.098e-01 1.238e+00 -0.720 0.471253
stenose70-90% -1.380e+00 2.515e-01 1.065e+00 -1.296 0.195019
stenose90-99% -8.273e-01 4.372e-01 1.042e+00 -0.794 0.427146
stenose100% (Occlusion) -1.912e+01 4.954e-09 1.969e+04 -0.001 0.999225
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.913e+01 4.932e-09 4.806e+04 0.000 0.999682
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] NA NA 0.000e+00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00109,3.33061] 1.367e+00 7.317e-01 0.68899 2.7110
Age 1.072e+00 9.331e-01 1.01871 1.1275
Gendermale 2.755e+00 3.630e-01 1.04766 7.2440
Hypertension.compositeno 2.123e-08 4.709e+07 0.00000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.461e-01 1.057e+00 0.42503 2.1058
SmokerCurrentno 6.625e-01 1.509e+00 0.31288 1.4029
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.040e+00 9.617e-01 0.45305 2.3865
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 2.991e+00 3.343e-01 1.37565 6.5034
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.693e-01 1.032e+00 0.95214 0.9867
BMI 1.069e+00 9.352e-01 0.96671 1.1828
CAD_history 1.278e+00 7.824e-01 0.63761 2.5618
Stroke_history 8.689e-01 1.151e+00 0.40722 1.8539
Peripheral.interv 1.863e+00 5.367e-01 0.83869 4.1396
stenose0-49% 3.162e-09 3.162e+08 0.00000 Inf
stenose50-70% 4.098e-01 2.440e+00 0.03619 4.6407
stenose70-90% 2.515e-01 3.976e+00 0.03118 2.0286
stenose90-99% 4.372e-01 2.287e+00 0.05675 3.3690
stenose100% (Occlusion) 4.954e-09 2.018e+08 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 4.932e-09 2.028e+08 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] NA NA NA NA
Concordance= 0.841 (se = 0.028 )
Likelihood ratio test= 59.89 on 19 df, p=4e-06
Wald test = 21.5 on 19 df, p=0.3
Score (logrank) test = 56.6 on 19 df, p=1e-05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6_pg_ug_2015_rank
Effect size...............: 0.312398
Standard error............: 0.349461
Odds ratio (effect size)..: 1.367
Lower 95% CI..............: 0.689
Upper 95% CI..............: 2.711
T-value...................: 0.893944
P-value...................: 0.3713521
Sample size in model......: 1002
Number of events..........: 35
> processing [IL6R_pg_ug_2015_rank]; 4 out of 5 proteins.
> cross tabulation of IL6R_pg_ug_2015_rank-stratum.
[-3.33109,0.00108) [ 0.00108,3.33109]
578 578
> fitting the model for IL6R_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 970, number of events= 35
(1418 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 4.835e-01 1.622e+00 3.875e-01 1.248 0.21215
Age 6.968e-02 1.072e+00 2.613e-02 2.667 0.00766 **
Gendermale 9.835e-01 2.674e+00 4.923e-01 1.998 0.04576 *
Hypertension.compositeno -1.769e+01 2.076e-08 3.845e+03 -0.005 0.99633
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes 1.194e-02 1.012e+00 4.099e-01 0.029 0.97676
SmokerCurrentno -3.921e-01 6.757e-01 3.837e-01 -1.022 0.30689
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno -4.238e-02 9.585e-01 4.273e-01 -0.099 0.92100
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.090e+00 2.973e+00 3.960e-01 2.752 0.00593 **
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -2.995e-02 9.705e-01 9.116e-03 -3.285 0.00102 **
BMI 6.719e-02 1.069e+00 5.221e-02 1.287 0.19817
CAD_history 2.806e-01 1.324e+00 3.558e-01 0.789 0.43026
Stroke_history -1.626e-01 8.499e-01 3.863e-01 -0.421 0.67387
Peripheral.interv 5.694e-01 1.767e+00 4.049e-01 1.406 0.15964
stenose0-49% -1.927e+01 4.275e-09 3.249e+04 -0.001 0.99953
stenose50-70% -9.251e-01 3.965e-01 1.238e+00 -0.747 0.45499
stenose70-90% -1.478e+00 2.280e-01 1.066e+00 -1.386 0.16572
stenose90-99% -9.727e-01 3.781e-01 1.049e+00 -0.927 0.35383
stenose100% (Occlusion) -1.925e+01 4.363e-09 2.128e+04 -0.001 0.99928
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.928e+01 4.238e-09 4.922e+04 0.000 0.99969
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 1.342e-01 1.144e+00 3.690e-01 0.364 0.71610
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00108,3.33109] 1.622e+00 6.166e-01 0.75879 3.466
Age 1.072e+00 9.327e-01 1.01864 1.128
Gendermale 2.674e+00 3.740e-01 1.01868 7.018
Hypertension.compositeno 2.076e-08 4.816e+07 0.00000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 1.012e+00 9.881e-01 0.45320 2.260
SmokerCurrentno 6.757e-01 1.480e+00 0.31850 1.433
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 9.585e-01 1.043e+00 0.41481 2.215
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 2.973e+00 3.363e-01 1.36823 6.462
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.705e-01 1.030e+00 0.95331 0.988
BMI 1.069e+00 9.350e-01 0.96546 1.185
CAD_history 1.324e+00 7.553e-01 0.65921 2.659
Stroke_history 8.499e-01 1.177e+00 0.39860 1.812
Peripheral.interv 1.767e+00 5.659e-01 0.79917 3.908
stenose0-49% 4.275e-09 2.339e+08 0.00000 Inf
stenose50-70% 3.965e-01 2.522e+00 0.03502 4.489
stenose70-90% 2.280e-01 4.385e+00 0.02820 1.844
stenose90-99% 3.781e-01 2.645e+00 0.04837 2.955
stenose100% (Occlusion) 4.363e-09 2.292e+08 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 4.238e-09 2.360e+08 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 1.144e+00 8.744e-01 0.55483 2.357
Concordance= 0.838 (se = 0.03 )
Likelihood ratio test= 60.45 on 20 df, p=6e-06
Wald test = 22.49 on 20 df, p=0.3
Score (logrank) test = 58.56 on 20 df, p=1e-05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' IL6R_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: IL6R_pg_ug_2015_rank
Effect size...............: 0.483527
Standard error............: 0.387539
Odds ratio (effect size)..: 1.622
Lower 95% CI..............: 0.759
Upper 95% CI..............: 3.466
T-value...................: 1.247686
P-value...................: 0.2121461
Sample size in model......: 970
Number of events..........: 35
> processing [MCP1_pg_ug_2015_rank]; 5 out of 5 proteins.
> cross tabulation of MCP1_pg_ug_2015_rank-stratum.
[-3.34148,0.00104) [ 0.00104,3.34148]
600 600
> fitting the model for MCP1_pg_ug_2015_rank-stratum.
> make a Kaplan-Meier-shizzle...
> perform the Cox-regression fashizzle and plot it...
Call:
coxph(formula = Surv(TEMP.DF[, eptime], event) ~ TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]] +
Age + Gender + Hypertension.composite + DiabetesStatus +
SmokerCurrent + Med.Statin.LLD + Med.all.antiplatelet + GFR_MDRD +
BMI + CAD_history + Stroke_history + Peripheral.interv +
stenose + IL6_pg_ug_2015_rank, data = TEMP.DF)
n= 1001, number of events= 35
(1387 observations deleted due to missingness)
coef exp(coef) se(coef) z Pr(>|z|)
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] -1.311e-01 8.771e-01 3.603e-01 -0.364 0.715928
Age 6.942e-02 1.072e+00 2.601e-02 2.669 0.007604 **
Gendermale 1.020e+00 2.774e+00 4.935e-01 2.067 0.038694 *
Hypertension.compositeno -1.766e+01 2.148e-08 3.772e+03 -0.005 0.996265
Hypertension.compositeyes NA NA 0.000e+00 NA NA
DiabetesStatusDiabetes -6.257e-02 9.393e-01 4.085e-01 -0.153 0.878241
SmokerCurrentno -4.086e-01 6.646e-01 3.830e-01 -1.067 0.285998
SmokerCurrentyes NA NA 0.000e+00 NA NA
Med.Statin.LLDno 3.815e-02 1.039e+00 4.251e-01 0.090 0.928495
Med.Statin.LLDyes NA NA 0.000e+00 NA NA
Med.all.antiplateletno 1.103e+00 3.012e+00 3.970e-01 2.777 0.005479 **
Med.all.antiplateletyes NA NA 0.000e+00 NA NA
GFR_MDRD -3.125e-02 9.692e-01 9.152e-03 -3.415 0.000638 ***
BMI 6.593e-02 1.068e+00 5.110e-02 1.290 0.197019
CAD_history 2.433e-01 1.275e+00 3.554e-01 0.685 0.493616
Stroke_history -1.326e-01 8.758e-01 3.875e-01 -0.342 0.732094
Peripheral.interv 6.167e-01 1.853e+00 4.071e-01 1.515 0.129810
stenose0-49% -1.966e+01 2.886e-09 2.782e+04 -0.001 0.999436
stenose50-70% -9.291e-01 3.949e-01 1.242e+00 -0.748 0.454465
stenose70-90% -1.429e+00 2.395e-01 1.073e+00 -1.331 0.183035
stenose90-99% -8.774e-01 4.159e-01 1.051e+00 -0.835 0.403982
stenose100% (Occlusion) -1.920e+01 4.589e-09 1.973e+04 -0.001 0.999224
stenoseNA NA NA 0.000e+00 NA NA
stenose50-99% -1.909e+01 5.110e-09 4.798e+04 0.000 0.999683
stenose70-99% NA NA 0.000e+00 NA NA
stenose99 NA NA 0.000e+00 NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 3.461e-01 1.414e+00 3.645e-01 0.949 0.342382
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
TEMP.DF[[TRAITS.PROTEIN.RANK[protein]]][ 0.00104,3.34148] 8.771e-01 1.140e+00 0.43288 1.7773
Age 1.072e+00 9.329e-01 1.01862 1.1279
Gendermale 2.774e+00 3.605e-01 1.05447 7.2981
Hypertension.compositeno 2.148e-08 4.655e+07 0.00000 Inf
Hypertension.compositeyes NA NA NA NA
DiabetesStatusDiabetes 9.393e-01 1.065e+00 0.42184 2.0917
SmokerCurrentno 6.646e-01 1.505e+00 0.31375 1.4077
SmokerCurrentyes NA NA NA NA
Med.Statin.LLDno 1.039e+00 9.626e-01 0.45157 2.3901
Med.Statin.LLDyes NA NA NA NA
Med.all.antiplateletno 3.012e+00 3.320e-01 1.38341 6.5594
Med.all.antiplateletyes NA NA NA NA
GFR_MDRD 9.692e-01 1.032e+00 0.95200 0.9868
BMI 1.068e+00 9.362e-01 0.96635 1.1807
CAD_history 1.275e+00 7.840e-01 0.63554 2.5597
Stroke_history 8.758e-01 1.142e+00 0.40980 1.8716
Peripheral.interv 1.853e+00 5.397e-01 0.83427 4.1144
stenose0-49% 2.886e-09 3.465e+08 0.00000 Inf
stenose50-70% 3.949e-01 2.532e+00 0.03461 4.5063
stenose70-90% 2.395e-01 4.175e+00 0.02922 1.9633
stenose90-99% 4.159e-01 2.405e+00 0.05297 3.2650
stenose100% (Occlusion) 4.589e-09 2.179e+08 0.00000 Inf
stenoseNA NA NA NA NA
stenose50-99% 5.110e-09 1.957e+08 0.00000 Inf
stenose70-99% NA NA NA NA
stenose99 NA NA NA NA
IL6_pg_ug_2015_rank[ 0.00109,3.33061] 1.414e+00 7.074e-01 0.69187 2.8881
Concordance= 0.841 (se = 0.028 )
Likelihood ratio test= 60.03 on 20 df, p=7e-06
Wald test = 21.58 on 20 df, p=0.4
Score (logrank) test = 56.64 on 20 df, p=2e-05
> writing the Cox-regression fashizzle to Excel...
Summarizing Cox regression results for ' MCP1_pg_ug_2015_rank ' and its association to ' epcvdeath.3years ' in ' AEDB.CEA '.
Collecting data.
We have collected the following:
Dataset used..............: AEDB.CEA
Outcome analyzed..........: epcvdeath.3years
Protein...................: MCP1_pg_ug_2015_rank
Effect size...............: -0.131118
Standard error............: 0.360306
Odds ratio (effect size)..: 0.877
Lower 95% CI..............: 0.433
Upper 95% CI..............: 1.777
T-value...................: -0.363906
P-value...................: 0.715928
Sample size in model......: 1001
Number of events..........: 35 
cat("- Edit the column names...\n")- Edit the column names...colnames(COX.results) = c("Dataset", "Outcome", "CpG",
"Beta", "s.e.m.",
"HR", "low95CI", "up95CI",
"Z-value", "P-value", "SampleSize", "N_events")
cat("- Correct the variable types...\n")- Correct the variable types...COX.results$Beta <- as.numeric(COX.results$Beta)
COX.results$s.e.m. <- as.numeric(COX.results$s.e.m.)
COX.results$HR <- as.numeric(COX.results$HR)
COX.results$low95CI <- as.numeric(COX.results$low95CI)
COX.results$up95CI <- as.numeric(COX.results$up95CI)
COX.results$`Z-value` <- as.numeric(COX.results$`Z-value`)
COX.results$`P-value` <- as.numeric(COX.results$`P-value`)
COX.results$SampleSize <- as.numeric(COX.results$SampleSize)
COX.results$N_events <- as.numeric(COX.results$N_events)
AEDB.CEA.COX.results <- COX.results
# Save the data
cat("- Writing results to Excel-file...\n")- Writing results to Excel-file...head.style <- createStyle(textDecoration = "BOLD")
write.xlsx(AEDB.CEA.COX.results,
file = paste0(OUT_loc, "/",Today,".AEDB.CEA.Cox.2G.MODEL4.xlsx"),
creator = "Sander W. van der Laan",
sheetName = "Results", headerStyle = head.style,
row.names = FALSE, col.names = TRUE, overwrite = TRUE)
# Removing intermediates
cat("- Removing intermediate files...\n")- Removing intermediate files...rm(TEMP.DF, protein, fit, cox, coxplot, COX.results, COX.results.TEMP, head.style, AEDB.CEA.COX.results)
rm(head.style)object 'head.style' not foundCorrelations
All biomarkers
We correlated serum and plaque levels of the biomarkers.
# Installation of ggcorrplot()
# --------------------------------
if(!require(devtools))
install.packages("devtools")
devtools::install_github("kassambara/ggcorrplot")Skipping install of 'ggcorrplot' from a github remote, the SHA1 (c46b4cce) has not changed since last install.
Use `force = TRUE` to force installationlibrary(ggcorrplot)
# Creating matrix - natural log transformed
# --------------------------------
AEDB.CEA.temp <- subset(AEDB.CEA,
select = c("IL6_LN", "MCP1_LN", "IL6_pg_ug_2015_LN", "MCP1_pg_ug_2015_LN", "IL6R_pg_ug_2015_LN",
TRAITS.BIN, TRAITS.CON)
)
AEDB.CEA.temp$CalcificationPlaque <- as.numeric(AEDB.CEA.temp$CalcificationPlaque)
AEDB.CEA.temp$CollagenPlaque <- as.numeric(AEDB.CEA.temp$CollagenPlaque)
AEDB.CEA.temp$Fat10Perc <- as.numeric(AEDB.CEA.temp$Fat10Perc)
AEDB.CEA.temp$IPH <- as.numeric(AEDB.CEA.temp$IPH)
str(AEDB.CEA.temp)Classes ‘tbl_df’, ‘tbl’ and 'data.frame': 2388 obs. of 12 variables:
$ IL6_LN : num 3.97 4.56 4.58 4.93 NA ...
$ MCP1_LN : num 3.7 5.53 4.35 4.19 NA ...
$ IL6_pg_ug_2015_LN : num -5.23 -7.65 -2 NA NA ...
$ MCP1_pg_ug_2015_LN : num -0.0505 NA 0.8335 NA NA ...
$ IL6R_pg_ug_2015_LN : num 0.0893 -8.8939 -0.3091 NA NA ...
$ CalcificationPlaque: num 1 2 2 2 1 1 2 1 1 2 ...
$ CollagenPlaque : num 2 2 2 2 2 2 1 1 2 1 ...
$ Fat10Perc : num 2 2 1 1 2 2 2 2 2 2 ...
$ IPH : num 2 1 2 2 2 2 2 2 1 2 ...
$ Macrophages_LN : num 0.542 -1.732 -1.386 -0.426 -4.605 ...
$ SMC_LN : num 1.411 1.833 0.965 0.55 2.239 ...
$ VesselDensity_LN : num 0.846 1.203 2.46 2.398 1.541 ...AEDB.CEA.matrix <- as.matrix(AEDB.CEA.temp)
rm(AEDB.CEA.temp)
corr_biomarkers <- round(cor(AEDB.CEA.matrix,
use = "pairwise.complete.obs", #the correlation or covariance between each pair of variables is computed using all complete pairs of observations on those variables
method = "spearman"), 3)
# corr_biomarkers
corr_biomarkers_p <- ggcorrplot::cor_pmat(AEDB.CEA.matrix, use = "pairwise.complete.obs", method = "spearman")Cannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with ties# Add correlation coefficients
# --------------------------------
# argument lab = TRUE
ggcorrplot(corr_biomarkers,
method = "square",
type = "lower",
title = "Cross biomarker correlations",
show.legend = TRUE, legend.title = bquote("Spearman's"~italic(rho)),
ggtheme = ggplot2::theme_minimal, outline.color = "#FFFFFF",
show.diag = TRUE,
hc.order = FALSE,
lab = FALSE,
digits = 3,
# p.mat = corr_biomarkers_p, sig.level = 0.05,
colors = c("#1290D9", "#FFFFFF", "#E55738"))
# Creating matrix - inverse-rank transformation
# --------------------------------
AEDB.CEA.temp <- subset(AEDB.CEA,
select = c("IL6_rank", "MCP1_rank", "IL6_pg_ug_2015_rank", "MCP1_pg_ug_2015_rank", "IL6R_pg_ug_2015_rank",
TRAITS.BIN, TRAITS.CON.RANK)
)
AEDB.CEA.temp$CalcificationPlaque <- as.numeric(AEDB.CEA.temp$CalcificationPlaque)
AEDB.CEA.temp$CollagenPlaque <- as.numeric(AEDB.CEA.temp$CollagenPlaque)
AEDB.CEA.temp$Fat10Perc <- as.numeric(AEDB.CEA.temp$Fat10Perc)
AEDB.CEA.temp$IPH <- as.numeric(AEDB.CEA.temp$IPH)
str(AEDB.CEA.temp)Classes ‘tbl_df’, ‘tbl’ and 'data.frame': 2388 obs. of 12 variables:
$ IL6_rank : num 0.205 0.703 0.746 1.085 NA ...
$ MCP1_rank : num -0.944 1.196 -0.297 -0.499 NA ...
$ IL6_pg_ug_2015_rank : num -1.422 -2.744 0.919 NA NA ...
$ MCP1_pg_ug_2015_rank: num 0.936 NA 1.691 NA NA ...
$ IL6R_pg_ug_2015_rank: num 2.21 -2.85 1.78 NA NA ...
$ CalcificationPlaque : num 1 2 2 2 1 1 2 1 1 2 ...
$ CollagenPlaque : num 2 2 2 2 2 2 1 1 2 1 ...
$ Fat10Perc : num 2 2 1 1 2 2 2 2 2 2 ...
$ IPH : num 2 1 2 2 2 2 2 2 1 2 ...
$ Macrophages_rank : num 1.12 -0.276 -0.105 0.403 -1.414 ...
$ SMC_rank : num 1.134 1.678 0.625 0.256 2.086 ...
$ VesselDensity_rank : num -0.976 -0.773 0.713 0.609 -0.529 ...AEDB.CEA.matrix.RANK <- as.matrix(AEDB.CEA.temp)
rm(AEDB.CEA.temp)
corr_biomarkers.rank <- round(cor(AEDB.CEA.matrix.RANK,
use = "pairwise.complete.obs", #the correlation or covariance between each pair of variables is computed using all complete pairs of observations on those variables
method = "spearman"), 3)
# corr_biomarkers.rank
corr_biomarkers_p.rank <- ggcorrplot::cor_pmat(AEDB.CEA.matrix.RANK, use = "pairwise.complete.obs", method = "spearman")Cannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with ties# Add correlation coefficients
# --------------------------------
# argument lab = TRUE
ggcorrplot(corr_biomarkers.rank,
method = "square",
type = "lower",
title = "Cross biomarker correlations",
show.legend = TRUE, legend.title = bquote("Spearman's"~italic(rho)),
ggtheme = ggplot2::theme_minimal, outline.color = "#FFFFFF",
show.diag = TRUE,
hc.order = FALSE,
lab = FALSE,
digits = 3,
# p.mat = corr_biomarkers_p.rank, sig.level = 0.05,
colors = c("#1290D9", "#FFFFFF", "#E55738"))
# flattenCorrMatrix
# --------------------------------
# cormat : matrix of the correlation coefficients
# pmat : matrix of the correlation p-values
flattenCorrMatrix <- function(cormat, pmat) {
ut <- upper.tri(cormat)
data.frame(
biomarker_row = rownames(cormat)[row(cormat)[ut]],
biomarker_column = rownames(cormat)[col(cormat)[ut]],
spearman_cor =(cormat)[ut],
pval = pmat[ut]
)
}
corr_biomarkers.df <- as.data.table(flattenCorrMatrix(corr_biomarkers, corr_biomarkers_p))
DT::datatable(corr_biomarkers.df)
corr_biomarkers.rank.df <- as.data.table(flattenCorrMatrix(corr_biomarkers.rank, corr_biomarkers_p.rank))
DT::datatable(corr_biomarkers.rank.df)
# chart of a correlation matrix
# --------------------------------
# Alternative solution https://www.r-graph-gallery.com/199-correlation-matrix-with-ggally.html
install.packages.auto("PerformanceAnalytics")
chart.Correlation.new <- function (R, histogram = TRUE, method = c("pearson", "kendall",
"spearman"), ...)
{
x = checkData(R, method = "matrix")
if (missing(method))
method = method[1]
cormeth <- method
panel.cor <- function(x, y, digits = 2, prefix = "", use = "pairwise.complete.obs",
method = cormeth, cex.cor, ...) {
usr <- par("usr")
on.exit(par(usr))
par(usr = c(0, 1, 0, 1))
r <- cor(x, y, use = use, method = method)
txt <- format(c(r, 0.123456789), digits = digits)[1]
txt <- paste(prefix, txt, sep = "")
if (missing(cex.cor))
cex <- 0.8/strwidth(txt)
test <- cor.test(as.numeric(x), as.numeric(y), method = method)
Signif <- symnum(test$p.value, corr = FALSE, na = FALSE,
cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***",
"**", "*", ".", " "))
text(0.5, 0.5, txt, cex = cex * (abs(r) + 0.3)/1.3)
text(0.8, 0.8, Signif, cex = cex, col = 2)
}
f <- function(t) {
dnorm(t, mean = mean(x), sd = sd.xts(x))
}
dotargs <- list(...)
dotargs$method <- NULL
rm(method)
hist.panel = function(x, ... = NULL) {
par(new = TRUE)
hist(x, col = "#1290D9", probability = TRUE, axes = FALSE,
# hist(x, col = "light gray", probability = TRUE, axes = FALSE,
main = "", breaks = "FD")
lines(density(x, na.rm = TRUE), col = "#E55738", lwd = 1)
rug(x)
}
if (histogram)
pairs(x, gap = 0, lower.panel = panel.smooth, upper.panel = panel.cor,
diag.panel = hist.panel, ...)
else pairs(x, gap = 0, lower.panel = panel.smooth, upper.panel = panel.cor, ...)
}
chart.Correlation.new(AEDB.CEA.matrix, method = "spearman", histogram = TRUE, pch = 3)
chart.Correlation.new(AEDB.CEA.matrix.RANK, method = "spearman", histogram = TRUE, pch = 3)
# alternative chart of a correlation matrix
# --------------------------------
# Alternative solution https://www.r-graph-gallery.com/199-correlation-matrix-with-ggally.html
install.packages.auto("GGally")
# Quick display of two cabapilities of GGally, to assess the distribution and correlation of variables
library(GGally)
# From the help page:
ggpairs(AEDB.CEA,
columns = c("IL6_rank", "MCP1_rank", "IL6_pg_ug_2015_rank", "MCP1_pg_ug_2015_rank", "IL6R_pg_ug_2015_rank", TRAITS.BIN, TRAITS.CON.RANK),
columnLabels = c("IL6 (serum)", "MCP1 (serum)", "IL6", "MCP1", "IL6R",
"Calcification", "Collagen", "Fat 10%", "IPH", "Macrophages", "SMC", "Vessel density"),
method = c("spearman"),
# ggplot2::aes(colour = Gender),
progress = FALSE) Extra arguments: 'method' are being ignored. If these are meant to be aesthetics, submit them using the 'mapping' variable within ggpairs with ggplot2::aes or ggplot2::aes_string.
Circulating MCP1
Finally, we explored in a sub-sample, where circulating MCP-1 levels are available, the following:
- A correlation between MCP-1 levels in the plaque and circulating MCP-1 levels
- Associations of circulating MCP-1 levels with plaque vulnerability characteristics
- Associations of circulating MCP-1 levels with the status of the plaque in terms of presence of symptoms (symptomatic vs. asymptomatic)
- Associations of circulating MCP-1 levels with the primary composite endpoint of secondary cardiovascular events.
# Installation of ggcorrplot()
# --------------------------------
if(!require(devtools))
install.packages("devtools")
devtools::install_github("kassambara/ggcorrplot")Skipping install of 'ggcorrplot' from a github remote, the SHA1 (c46b4cce) has not changed since last install.
Use `force = TRUE` to force installationlibrary(ggcorrplot)
# Creating matrix - natural log transformed
# --------------------------------
AEDB.CEA.temp <- subset(AEDB.CEA,
select = c("MCP1_LN",
TRAITS.BIN, TRAITS.CON,
"Symptoms.5G", "AsymptSympt", "EP_major", "EP_composite")
)
AEDB.CEA.temp$CalcificationPlaque <- as.numeric(AEDB.CEA.temp$CalcificationPlaque)
AEDB.CEA.temp$CollagenPlaque <- as.numeric(AEDB.CEA.temp$CollagenPlaque)
AEDB.CEA.temp$Fat10Perc <- as.numeric(AEDB.CEA.temp$Fat10Perc)
AEDB.CEA.temp$IPH <- as.numeric(AEDB.CEA.temp$IPH)
AEDB.CEA.temp$Symptoms.5G <- as.numeric(AEDB.CEA.temp$Symptoms.5G)
AEDB.CEA.temp$AsymptSympt <- as.numeric(AEDB.CEA.temp$AsymptSympt)
AEDB.CEA.temp$EP_major <- as.numeric(AEDB.CEA.temp$EP_major)
AEDB.CEA.temp$EP_composite <- as.numeric(AEDB.CEA.temp$EP_composite)
# str(AEDB.CEA.temp)
AEDB.CEA.matrix.serum <- as.matrix(AEDB.CEA.temp)
rm(AEDB.CEA.temp)
corr_biomarkers_serum <- round(cor(AEDB.CEA.matrix.serum,
use = "pairwise.complete.obs", #the correlation or covariance between each pair of variables is computed using all complete pairs of observations on those variables
method = "spearman"), 3)
# corr_biomarkers
corr_biomarkers_serum_p <- ggcorrplot::cor_pmat(AEDB.CEA.matrix.serum, use = "pairwise.complete.obs", method = "spearman")Cannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with ties# Add correlation coefficients
# --------------------------------
# argument lab = TRUE
ggcorrplot(corr_biomarkers_serum,
method = "square",
type = "lower",
title = "Cross biomarker correlations",
show.legend = TRUE, legend.title = bquote("Spearman's"~italic(rho)),
ggtheme = ggplot2::theme_minimal, outline.color = "#FFFFFF",
show.diag = TRUE,
hc.order = FALSE,
lab = FALSE,
digits = 3,
# p.mat = corr_biomarkers_serum_p, sig.level = 0.05,
colors = c("#1290D9", "#FFFFFF", "#E55738"))
# Creating matrix - inverse-rank transformation
# --------------------------------
AEDB.CEA.temp <- subset(AEDB.CEA,
select = c("MCP1_rank",
TRAITS.BIN, TRAITS.CON.RANK,
"Symptoms.5G", "AsymptSympt", "EP_major", "EP_composite")
)
AEDB.CEA.temp$CalcificationPlaque <- as.numeric(AEDB.CEA.temp$CalcificationPlaque)
AEDB.CEA.temp$CollagenPlaque <- as.numeric(AEDB.CEA.temp$CollagenPlaque)
AEDB.CEA.temp$Fat10Perc <- as.numeric(AEDB.CEA.temp$Fat10Perc)
AEDB.CEA.temp$IPH <- as.numeric(AEDB.CEA.temp$IPH)
AEDB.CEA.temp$Symptoms.5G <- as.numeric(AEDB.CEA.temp$Symptoms.5G)
AEDB.CEA.temp$AsymptSympt <- as.numeric(AEDB.CEA.temp$AsymptSympt)
AEDB.CEA.temp$EP_major <- as.numeric(AEDB.CEA.temp$EP_major)
AEDB.CEA.temp$EP_composite <- as.numeric(AEDB.CEA.temp$EP_composite)
# str(AEDB.CEA.temp)
AEDB.CEA.matrix.serum.RANK <- as.matrix(AEDB.CEA.temp)
rm(AEDB.CEA.temp)
corr_biomarkers_serum.rank <- round(cor(AEDB.CEA.matrix.serum.RANK,
use = "pairwise.complete.obs", #the correlation or covariance between each pair of variables is computed using all complete pairs of observations on those variables
method = "spearman"), 3)
# corr_biomarkers.rank
corr_biomarkers_serum_p.rank <- ggcorrplot::cor_pmat(AEDB.CEA.matrix.serum.RANK, use = "pairwise.complete.obs", method = "spearman")Cannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with tiesCannot compute exact p-value with ties# Add correlation coefficients
# --------------------------------
# argument lab = TRUE
ggcorrplot(corr_biomarkers_serum.rank,
method = "square",
type = "lower",
title = "Cross biomarker correlations",
show.legend = TRUE, legend.title = bquote("Spearman's"~italic(rho)),
ggtheme = ggplot2::theme_minimal, outline.color = "#FFFFFF",
show.diag = TRUE,
hc.order = FALSE,
lab = FALSE,
digits = 3,
# p.mat = corr_biomarkers_serum_p.rank, sig.level = 0.05,
colors = c("#1290D9", "#FFFFFF", "#E55738"))
# flattenCorrMatrix
# --------------------------------
# cormat : matrix of the correlation coefficients
# pmat : matrix of the correlation p-values
flattenCorrMatrix <- function(cormat, pmat) {
ut <- upper.tri(cormat)
data.frame(
biomarker_row = rownames(cormat)[row(cormat)[ut]],
biomarker_column = rownames(cormat)[col(cormat)[ut]],
spearman_cor =(cormat)[ut],
pval = pmat[ut]
)
}
corr_biomarkers_serum.df <- as.data.table(flattenCorrMatrix(corr_biomarkers_serum, corr_biomarkers_serum_p))
DT::datatable(corr_biomarkers_serum.df)
corr_biomarkers_serum.rank.df <- as.data.table(flattenCorrMatrix(corr_biomarkers_serum.rank, corr_biomarkers_serum_p.rank))
DT::datatable(corr_biomarkers_serum.rank.df)
# chart of a correlation matrix
# --------------------------------
# Alternative solution https://www.r-graph-gallery.com/199-correlation-matrix-with-ggally.html
install.packages.auto("PerformanceAnalytics")
chart.Correlation.new <- function (R, histogram = TRUE, method = c("pearson", "kendall",
"spearman"), ...)
{
x = checkData(R, method = "matrix")
if (missing(method))
method = method[1]
cormeth <- method
panel.cor <- function(x, y, digits = 2, prefix = "", use = "pairwise.complete.obs",
method = cormeth, cex.cor, ...) {
usr <- par("usr")
on.exit(par(usr))
par(usr = c(0, 1, 0, 1))
r <- cor(x, y, use = use, method = method)
txt <- format(c(r, 0.123456789), digits = digits)[1]
txt <- paste(prefix, txt, sep = "")
if (missing(cex.cor))
cex <- 0.8/strwidth(txt)
test <- cor.test(as.numeric(x), as.numeric(y), method = method)
Signif <- symnum(test$p.value, corr = FALSE, na = FALSE,
cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***",
"**", "*", ".", " "))
text(0.5, 0.5, txt, cex = cex * (abs(r) + 0.3)/1.3)
text(0.8, 0.8, Signif, cex = cex, col = 2)
}
f <- function(t) {
dnorm(t, mean = mean(x), sd = sd.xts(x))
}
dotargs <- list(...)
dotargs$method <- NULL
rm(method)
hist.panel = function(x, ... = NULL) {
par(new = TRUE)
hist(x, col = "#1290D9", probability = TRUE, axes = FALSE,
# hist(x, col = "light gray", probability = TRUE, axes = FALSE,
main = "", breaks = "FD")
lines(density(x, na.rm = TRUE), col = "#E55738", lwd = 1)
rug(x)
}
if (histogram)
pairs(x, gap = 0, lower.panel = panel.smooth, upper.panel = panel.cor,
diag.panel = hist.panel, ...)
else pairs(x, gap = 0, lower.panel = panel.smooth, upper.panel = panel.cor, ...)
}
chart.Correlation.new(AEDB.CEA.matrix.serum, method = "spearman", histogram = TRUE, pch = 3)
chart.Correlation.new(AEDB.CEA.matrix.serum.RANK, method = "spearman", histogram = TRUE, pch = 3)
# alternative chart of a correlation matrix
# --------------------------------
# Alternative solution https://www.r-graph-gallery.com/199-correlation-matrix-with-ggally.html
install.packages.auto("GGally")
# Quick display of two cabapilities of GGally, to assess the distribution and correlation of variables
library(GGally)
# From the help page:
ggpairs(AEDB.CEA,
columns = c("MCP1_rank", TRAITS.BIN, TRAITS.CON.RANK, "Symptoms.5G", "AsymptSympt", "EP_major", "EP_composite"),
columnLabels = c("MCP1 (serum)",
"Calcification", "Collagen", "Fat 10%", "IPH", "Macrophages", "SMC", "Vessel density",
"Symptoms", "Symptoms (grouped)", "MACE", "Composite"),
method = c("spearman"),
# ggplot2::aes(colour = Gender),
progress = FALSE) Extra arguments: 'method' are being ignored. If these are meant to be aesthetics, submit them using the 'mapping' variable within ggpairs with ggplot2::aes or ggplot2::aes_string.
Session information
Version: v1.0.5
Last update: 2020-03-05
Written by: Sander W. van der Laan (s.w.vanderlaan-2[at]umcutrecht.nl).
Description: Script to select samples from the Ather-Express Biobank Study.
Minimum requirements: R version 3.5.2 (2018-12-20) -- 'Eggshell Igloo', macOS Mojave (10.14.2).sessionInfo()R version 3.6.3 (2020-02-29)
Platform: x86_64-apple-darwin19.3.0 (64-bit)
Running under: macOS Catalina 10.15.3
Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /usr/local/Cellar/openblas/0.3.7/lib/libopenblasp-r0.3.7.dylib
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] tools stats graphics grDevices utils datasets methods base
other attached packages:
[1] Hmisc_4.3-1 Formula_1.2-3 lattice_0.20-40 survminer_0.4.6 survival_3.1-8
[6] GGally_1.4.0 PerformanceAnalytics_2.0.4 xts_0.12-0 zoo_1.8-7 ggcorrplot_0.1.3.999
[11] labelled_2.2.2 openxlsx_4.1.4 ggpubr_0.2.5.999 magrittr_1.5 tableone_0.11.0
[16] haven_2.2.0 Seurat_3.1.4 devtools_2.2.2 usethis_1.5.1 MASS_7.3-51.5
[21] DT_0.12 knitr_1.28 forcats_0.5.0 stringr_1.4.0 purrr_0.3.3
[26] tibble_2.1.3 ggplot2_3.2.1 tidyverse_1.3.0 data.table_1.12.8 naniar_0.5.0
[31] tidyr_1.0.2 dplyr_0.8.4 optparse_1.6.4 readr_1.3.1
loaded via a namespace (and not attached):
[1] rappdirs_0.3.1 visdat_0.5.3 acepack_1.4.1 irlba_2.3.3 multcomp_1.4-12 rpart_4.1-15
[7] inline_0.3.15 generics_0.0.2 metap_1.3 BiocGenerics_0.30.0 callr_3.4.2 cowplot_1.0.0
[13] TH.data_1.0-10 RANN_2.6.1 future_1.16.0 mutoss_0.1-12 xml2_1.2.2 lubridate_1.7.4
[19] httpuv_1.5.2 StanHeaders_2.19.2 assertthat_0.2.1 xfun_0.12 hms_0.5.3 evaluate_0.14
[25] promises_1.1.0 fansi_0.4.1 caTools_1.18.0 dbplyr_1.4.2 readxl_1.3.1 km.ci_0.5-2
[31] igraph_1.2.4.2 DBI_1.1.0 htmlwidgets_1.5.1 reshape_0.8.8 stats4_3.6.3 ellipsis_0.3.0
[37] crosstalk_1.0.0 backports_1.1.5 survey_3.37 gbRd_0.4-11 RcppParallel_4.4.4 vctrs_0.2.3
[43] Biobase_2.44.0 remotes_2.1.1 ROCR_1.0-7 withr_2.1.2 packrat_0.5.0 checkmate_2.0.0
[49] sctransform_0.2.1 prettyunits_1.1.1 getopt_1.20.3 mnormt_1.5-6 cluster_2.1.0 ape_5.3
[55] lazyeval_0.2.2 crayon_1.3.4 pkgconfig_2.0.3 labeling_0.3 nlme_3.1-145 pkgload_1.0.2
[61] nnet_7.3-13 rlang_0.4.5 globals_0.12.5 lifecycle_0.1.0 sandwich_2.5-1 modelr_0.1.6
[67] rsvd_1.0.3 cellranger_1.1.0 rprojroot_1.3-2 matrixStats_0.55.0 lmtest_0.9-37 Matrix_1.2-18
[73] loo_2.2.0 KMsurv_0.1-5 reprex_0.3.0 base64enc_0.1-3 ggridges_0.5.2 processx_3.4.2
[79] png_0.1-7 viridisLite_0.3.0 bitops_1.0-6 KernSmooth_2.23-16 jpeg_0.1-8.1 ggsignif_0.6.0
[85] scales_1.1.0 memoise_1.1.0 plyr_1.8.6 ica_1.0-2 gplots_3.0.3 bibtex_0.4.2
[91] gdata_2.18.0 compiler_3.6.3 lsei_1.2-0 RColorBrewer_1.1-2 plotrix_3.7-7 fitdistrplus_1.0-14
[97] cli_2.0.2 listenv_0.8.0 patchwork_1.0.0 pbapply_1.4-2 ps_1.3.2 htmlTable_1.13.3
[103] tidyselect_1.0.0 stringi_1.4.6 mitools_2.4 yaml_2.2.1 latticeExtra_0.6-29 ggrepel_0.8.1
[109] survMisc_0.5.5 grid_3.6.3 future.apply_1.4.0 parallel_3.6.3 rstudioapi_0.11 foreign_0.8-76
[115] gridExtra_2.3 farver_2.0.3 Rtsne_0.15 digest_0.6.25 shiny_1.4.0 quadprog_1.5-8
[121] Rcpp_1.0.3 broom_0.5.5 later_1.0.0 RcppAnnoy_0.0.15 httr_1.4.1 rsconnect_0.8.16
[127] npsurv_0.4-0 Rdpack_0.11-1 colorspace_1.4-1 rvest_0.3.5 fs_1.3.1 reticulate_1.14
[133] splines_3.6.3 uwot_0.1.5 sn_1.5-5 multtest_2.40.0 plotly_4.9.2 sessioninfo_1.1.1
[139] xtable_1.8-4 jsonlite_1.6.1 rstan_2.19.3 testthat_2.3.2 R6_2.4.1 TFisher_0.2.0
[145] pillar_1.4.3 htmltools_0.4.0 mime_0.9 glue_1.3.1 fastmap_1.0.1 class_7.3-15
[151] codetools_0.2-16 pkgbuild_1.0.6 tsne_0.1-3 mvtnorm_1.1-0 numDeriv_2016.8-1.1 curl_4.3
[157] leiden_0.3.3 gtools_3.8.1 zip_2.0.4 rmarkdown_2.1 desc_1.2.0 munsell_0.5.0
[163] e1071_1.7-3 reshape2_1.4.3 gtable_0.3.0 Saving environment
save.image(paste0(PROJECT_loc, "/",Today,".",PROJECTNAME,".sample_selection.RData"))| © 1979-2020 Sander W. van der Laan | s.w.vanderlaan-2[at]umcutrecht.nl | swvanderlaan.github.io. |
LS0tCnRpdGxlOiAiQXRoZXJvLUV4cHJlc3MgQmlvYmFuayBTdHVkeSAtLSBJTDYgYW5kIE1DUDEgcGxhcXVlIGxldmVscy4iCmF1dGhvcjogJ1tTYW5kZXIgVy4gdmFuIGRlciBMYWFuLCBQaERdKGh0dHBzOi8vc3d2YW5kZXJsYWFuLmdpdGh1Yi5pbykgfCBAc3d2YW5kZXJsYWFuOyBNYXJpb3MgR2Vvcmdha2lzOyBSYWluZXIgTWFsaWs7IE1hcnRpbiBEaWNoZ2FucycKZGF0ZTogJ2ByIFN5cy5EYXRlKClgJwpvdXRwdXQ6CiAgaHRtbF9ub3RlYm9vazoKICAgIGNhY2hlOiB5ZXMKICAgIGNvZGVfZm9sZGluZzogaGlkZQogICAgY29sbGFwc2U6IHllcwogICAgZGZfcHJpbnQ6IHBhZ2VkCiAgICBmaWcuYWxpZ246IGNlbnRlcgogICAgZmlnX2NhcHRpb246IHllcwogICAgZmlnX2hlaWdodDogMTAKICAgIGZpZ19yZXRpbmE6IDIKICAgIGZpZ193aWR0aDogMTIKICAgIHRoZW1lOiBwYXBlcgogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDoKICAgICAgY29sbGFwc2VkOiBubwogICAgICBzbW9vdGhfc2Nyb2xsOiB5ZXMKICBodG1sX2RvY3VtZW50OgogICAgZGZfcHJpbnQ6IHBhZ2VkCiAgICB0b2M6IHllcwptYWluZm9udDogSGVsdmV0aWNhCnN1YnRpdGxlOiBBbiAnQXRoZXJvLUV4cHJlc3MgQmlvYmFuayBTdHVkeScgcHJvamVjdAplZGl0b3Jfb3B0aW9uczoKICBjaHVua19vdXRwdXRfdHlwZTogaW5saW5lCi0tLQpgYGB7ciBnbG9iYWxfb3B0aW9ucywgaW5jbHVkZSA9IEZBTFNFfQojIGZ1cnRoZXIgZGVmaW5lIHNvbWUga25pdHItb3B0aW9ucy4Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGZpZy53aWR0aCA9IDEyLCBmaWcuaGVpZ2h0ID0gOCwgZmlnLnBhdGggPSAnRmlndXJlcy8nLAogICAgICAgICAgICAgICAgICAgICAgZXZhbCA9IFRSVUUsIHdhcm5pbmcgPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFKQpgYGAKCiMgUHJlcGFyYXRpb24KCkNsZWFuIHRoZSBlbnZpcm9ubWVudC4KYGBge3IgQ2xlYXJFbnZpcm9ubWVudCwgaW5jbHVkZSA9IEZBTFNFfQpybShsaXN0ID0gbHMoKSkKYGBgCgpTZXQgbG9jYXRpb25zLCBhbmQgdGhlIHdvcmtpbmcgZGlyZWN0b3J5LgpgYGB7ciBMb2NhbFN5c3RlbSwgaW5jbHVkZSA9IEZBTFNFfQojIyMgT3BlcmF0aW5nIFN5c3RlbSBWZXJzaW9uCiMjIyBNYWMgUHJvCiMgUk9PVF9sb2MgPSAiL1ZvbHVtZXMvRWxpdGVQcm9ReDJNZWRpYSIKIyBHRU5PTUlDX2xvYyA9ICIvVXNlcnMvc3ZhbmRlcmxhYW4vaUNsb3VkL0dlbm9taWNzIgoKIyMjIE1hY0Jvb2sKUk9PVF9sb2MgPSAiL1VzZXJzL3N3dmFuZGVybGFhbiIKR0VOT01JQ19sb2MgPSBwYXN0ZTAoUk9PVF9sb2MsICIvaUNsb3VkL0dlbm9taWNzIikKCiMjIyBHZW5lcmljIExvY2F0aW9ucwpBRURCX2xvYyA9IHBhc3RlMChHRU5PTUlDX2xvYywgIi9BRS1BQUFfR1NfREJzIikKTEFCX2xvYyA9IHBhc3RlMChHRU5PTUlDX2xvYywgIi9MYWJCdXNpbmVzcyIpClJFU1VMVFMgPSBwYXN0ZTAoUk9PVF9sb2MsICIvUExJTksvYW5hbHlzZXMvbG9va3Vwcy9BRV8yMDE5MDkxMl8wMTBfTURJQ0hHQU5TX1NXVkRMQUFOX0lMNl9NQ1AxIikKUkFXREFUQSA9IHBhc3RlMChST09UX2xvYywgIi9QTElOSy9fQUVfT1JJR0lOQUxTL0FFU0NSTkEvcHJlcHBlZF9kYXRhIikKUFJPSkVDVF9sb2MgPSBwYXN0ZTAoUk9PVF9sb2MsICIvUExJTksvYW5hbHlzZXMvbG9va3Vwcy9BRV8yMDE5MDkxMl8wMTBfTURJQ0hHQU5TX1NXVkRMQUFOX0lMNl9NQ1AxIikKCiMjIyBTT01FIFZBUklBQkxFUyBXRSBORUVEIERPV04gVEhFIExJTkUKY2F0KCJcbkRlZmluaW5nIHBoZW5vdHlwZXMgYW5kIGRhdGFzZXRzLlxuIikKUFJPSkVDVE5BTUU9IklMNk1DUDEiCiMgU1VCUFJPSkVDVE5BTUU9IiIKCmNhdCgiXG5DcmVhdGUgYSBuZXcgYW5hbHlzaXMgZGlyZWN0b3J5LCBpbmNsdWRpbmcgc3ViZGlyZWN0b3JpZXMuXG4iKQojIEFuYWx5c2lzCmlmZWxzZSghZGlyLmV4aXN0cyhmaWxlLnBhdGgoUFJPSkVDVF9sb2MsICIvIixQUk9KRUNUTkFNRSkpLCAKICAgICAgIGRpci5jcmVhdGUoZmlsZS5wYXRoKFBST0pFQ1RfbG9jLCAiLyIsUFJPSkVDVE5BTUUpKSwgCiAgICAgICBGQUxTRSkKQU5BTFlTSVNfbG9jID0gcGFzdGUwKFBST0pFQ1RfbG9jLCIvIixQUk9KRUNUTkFNRSkKCiMgUGxvdHMKaWZlbHNlKCFkaXIuZXhpc3RzKGZpbGUucGF0aChBTkFMWVNJU19sb2MsICIvUExPVFMiKSksIAogICAgICAgZGlyLmNyZWF0ZShmaWxlLnBhdGgoQU5BTFlTSVNfbG9jLCAiL1BMT1RTIikpLCAKICAgICAgIEZBTFNFKQpQTE9UX2xvYyA9IHBhc3RlMChBTkFMWVNJU19sb2MsIi9QTE9UUyIpCgojIFFDIHBsb3RzCmlmZWxzZSghZGlyLmV4aXN0cyhmaWxlLnBhdGgoUExPVF9sb2MsICIvUUMiKSksIAogICAgICAgZGlyLmNyZWF0ZShmaWxlLnBhdGgoUExPVF9sb2MsICIvUUMiKSksIAogICAgICAgRkFMU0UpClFDX2xvYyA9IHBhc3RlMChQTE9UX2xvYywiL1FDIikKCiMgT3V0cHV0IGZpbGVzCmlmZWxzZSghZGlyLmV4aXN0cyhmaWxlLnBhdGgoQU5BTFlTSVNfbG9jLCAiL09VVFBVVCIpKSwgCiAgICAgICBkaXIuY3JlYXRlKGZpbGUucGF0aChBTkFMWVNJU19sb2MsICIvT1VUUFVUIikpLCAKICAgICAgIEZBTFNFKQpPVVRfbG9jID0gcGFzdGUwKEFOQUxZU0lTX2xvYywgIi9PVVRQVVQiKQoKIyBDT1ggYW5hbHlzaXMKaWZlbHNlKCFkaXIuZXhpc3RzKGZpbGUucGF0aChBTkFMWVNJU19sb2MsICIvQ09YIikpLCAKICAgICAgIGRpci5jcmVhdGUoZmlsZS5wYXRoKEFOQUxZU0lTX2xvYywgIi9DT1giKSksIAogICAgICAgRkFMU0UpCkNPWF9sb2MgPSBwYXN0ZTAoQU5BTFlTSVNfbG9jLCAiL0NPWCIpCgojIEJhc2VsaW5lIGNoYXJhY3RlcmlzdGljcwppZmVsc2UoIWRpci5leGlzdHMoZmlsZS5wYXRoKEFOQUxZU0lTX2xvYywgIi9CQVNFTElORSIpKSwgCiAgICAgICBkaXIuY3JlYXRlKGZpbGUucGF0aChBTkFMWVNJU19sb2MsICIvQkFTRUxJTkUiKSksIAogICAgICAgRkFMU0UpCkJBU0VMSU5FX2xvYyA9IHBhc3RlMChBTkFMWVNJU19sb2MsICIvQkFTRUxJTkUiKQoKIyBTYW1wbGUgc2VsZWN0aW9uCmlmZWxzZSghZGlyLmV4aXN0cyhmaWxlLnBhdGgoQU5BTFlTSVNfbG9jLCAiL1NFTEVDVElPTlMiKSksIAogICAgICAgZGlyLmNyZWF0ZShmaWxlLnBhdGgoQU5BTFlTSVNfbG9jLCAiL1NFTEVDVElPTlMiKSksIAogICAgICAgRkFMU0UpClNFTEVDVElPTlNfbG9jID0gcGFzdGUwKEFOQUxZU0lTX2xvYywgIi9TRUxFQ1RJT05TIikKCmNhdCgiXG5TZXR0aW5nIHdvcmtpbmcgZGlyZWN0b3J5IGFuZCBsaXN0aW5nIGl0cyBjb250ZW50cy5cbiIpCnNldHdkKHBhc3RlMChQUk9KRUNUX2xvYykpCmdldHdkKCkKbGlzdC5maWxlcygpCmBgYAoKQSBwYWNrYWdlLWluc3RhbGxhdGlvbiBmdW5jdGlvbi4KYGBge3IgRnVuY3Rpb246IGluc3RhbGxhdGlvbnMsIGluY2x1ZGUgPSBGQUxTRX0KaW5zdGFsbC5wYWNrYWdlcy5hdXRvIDwtIGZ1bmN0aW9uKHgpIHsgCiAgeCA8LSBhcy5jaGFyYWN0ZXIoc3Vic3RpdHV0ZSh4KSkgCiAgaWYoaXNUUlVFKHggJWluJSAucGFja2FnZXMoYWxsLmF2YWlsYWJsZSA9IFRSVUUpKSkgeyAKICAgIGV2YWwocGFyc2UodGV4dCA9IHNwcmludGYoInJlcXVpcmUoXCIlc1wiKSIsIHgpKSkKICB9IGVsc2UgeyAKICAgICMgVXBkYXRlIGluc3RhbGxlZCBwYWNrYWdlcyAtIHRoaXMgbWF5IG1lYW4gYSBmdWxsIHVwZ3JhZGUgb2YgUiwgd2hpY2ggaW4gdHVybgogICAgIyBtYXkgbm90IGJlIHdhcnJlbnRlZC4gCiAgICAjIHVwZGF0ZS5pbnN0YWxsLnBhY2thZ2VzLmF1dG8oYXNrID0gRkFMU0UpIAogICAgZXZhbChwYXJzZSh0ZXh0ID0gc3ByaW50ZigiaW5zdGFsbC5wYWNrYWdlcyhcIiVzXCIsIGRlcGVuZGVuY2llcyA9IFRSVUUsIHJlcG9zID0gXCJodHRwczovL2Nsb3VkLnItcHJvamVjdC5vcmcvXCIpIiwgeCkpKQogIH0KICBpZihpc1RSVUUoeCAlaW4lIC5wYWNrYWdlcyhhbGwuYXZhaWxhYmxlID0gVFJVRSkpKSB7IAogICAgZXZhbChwYXJzZSh0ZXh0ID0gc3ByaW50ZigicmVxdWlyZShcIiVzXCIpIiwgeCkpKQogIH0gZWxzZSB7CiAgICBpZiAoIXJlcXVpcmVOYW1lc3BhY2UoIkJpb2NNYW5hZ2VyIikpCiAgICAgIGluc3RhbGwucGFja2FnZXMoIkJpb2NNYW5hZ2VyIikKICAgICMgQmlvY01hbmFnZXI6Omluc3RhbGwoKSAjIHRoaXMgd291bGQgZW50YWlsIHVwZGF0aW5nIGluc3RhbGxlZCBwYWNrYWdlcywgd2hpY2ggaW4gdHVybmVkIG1heSBub3QgYmUgd2FycmVudGVkCiAgICBldmFsKHBhcnNlKHRleHQgPSBzcHJpbnRmKCJCaW9jTWFuYWdlcjo6aW5zdGFsbChcIiVzXCIpIiwgeCkpKQogICAgZXZhbChwYXJzZSh0ZXh0ID0gc3ByaW50ZigicmVxdWlyZShcIiVzXCIpIiwgeCkpKQogIH0KfQpgYGAKCkxvYWQgdGhvc2UgcGFja2FnZXMuCmBgYHtyIFNldHRpbmc6IGxvYWRpbmdfcGFja2FnZXMsIGluY2x1ZGUgPSBGQUxTRX0KaW5zdGFsbC5wYWNrYWdlcy5hdXRvKCJyZWFkciIpCmluc3RhbGwucGFja2FnZXMuYXV0bygib3B0cGFyc2UiKQppbnN0YWxsLnBhY2thZ2VzLmF1dG8oInRvb2xzIikKaW5zdGFsbC5wYWNrYWdlcy5hdXRvKCJkcGx5ciIpCmluc3RhbGwucGFja2FnZXMuYXV0bygidGlkeXIiKQppbnN0YWxsLnBhY2thZ2VzLmF1dG8oIm5hbmlhciIpCgojIFRvIGdldCAnZGF0YS50YWJsZScgd2l0aCAnZndyaXRlJyB0byBiZSBhYmxlIHRvIGRpcmVjdGx5IHdyaXRlIGd6aXBwZWQtZmlsZXMKIyBSZWY6IGh0dHBzOi8vc3RhY2tvdmVyZmxvdy5jb20vcXVlc3Rpb25zLzQyNzg4NDAxL2lzLXBvc3NpYmxlLXRvLXVzZS1md3JpdGUtZnJvbS1kYXRhLXRhYmxlLXdpdGgtZ3pmaWxlCiMgaW5zdGFsbC5wYWNrYWdlcygiZGF0YS50YWJsZSIsIHJlcG9zID0gImh0dHBzOi8vUmRhdGF0YWJsZS5naXRsYWIuaW8vZGF0YS50YWJsZSIpCmxpYnJhcnkoZGF0YS50YWJsZSkKCmluc3RhbGwucGFja2FnZXMuYXV0bygidGlkeXZlcnNlIikKaW5zdGFsbC5wYWNrYWdlcy5hdXRvKCJrbml0ciIpCmluc3RhbGwucGFja2FnZXMuYXV0bygiRFQiKQppbnN0YWxsLnBhY2thZ2VzLmF1dG8oIk1BU1MiKQojIGluc3RhbGwucGFja2FnZXMuYXV0bygiU2V1cmF0IikgIyBsYXRlc3QgdmVyc2lvbgoKIyBJbnN0YWxsIHRoZSBkZXZ0b29scyBwYWNrYWdlIGZyb20gSGFkbGV5IFdpY2toYW0KaW5zdGFsbC5wYWNrYWdlcy5hdXRvKCdkZXZ0b29scycpCgppbnN0YWxsLnBhY2thZ2VzLmF1dG8oImhhdmVuIikKaW5zdGFsbC5wYWNrYWdlcy5hdXRvKCJ0YWJsZW9uZSIpCgppbnN0YWxsLnBhY2thZ2VzLmF1dG8oImdncHViciIpCgpgYGAKCldlIHdpbGwgY3JlYXRlIGEgZGF0ZXN0YW1wIGFuZCBkZWZpbmUgdGhlIFV0cmVjaHQgU2NpZW5jZSBQYXJrIENvbG91ciBTY2hlbWUuCmBgYHtyIFNldHRpbmc6IENvbG9ycywgaW5jbHVkZSA9IEZBTFNFfQoKVG9kYXkgPSBmb3JtYXQoYXMuRGF0ZShhcy5QT1NJWGx0KFN5cy50aW1lKCkpKSwgIiVZJW0lZCIpClRvZGF5LlJlcG9ydCA9IGZvcm1hdChhcy5EYXRlKGFzLlBPU0lYbHQoU3lzLnRpbWUoKSkpLCAiJUEsICVCICVkLCAlWSIpCgojIyMgVXRyZWNodFNjaWVuY2VQYXJrQ29sb3Vyc1NjaGVtZQojIyMKIyMjIFdlYnNpdGV0b2NvbnZlcnRIRVh0b1JHQjpodHRwOi8vaGV4LmNvbG9ycnJzLmNvbS4KIyMjIEZvcnNvbWVmdW5jdGlvbnN5b3VzaG91bGRkaXZpZGV0aGVzZW51bWJlcnNieTI1NS4KIyMjIAojIyMJTm8uCUNvbG9yCQkJICAgICAgSEVYCShSR0IpCQkJCQkJICAgICAgICAgICAgICBDSFIJCSAgTUFGL0lORk8KIyMjLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiMjIwkxCSAgeWVsbG93CQkJICAgICNGQkI4MjAgKDI1MSwxODQsMzIpCQkJCSAgICAgID0+CTEJCW9yIDEuMD5JTkZPCiMjIwkyCSAgZ29sZAkJCSAgICAgICNGNTlEMTAgKDI0NSwxNTcsMTYpCQkJCSAgICAgID0+CTIJCQojIyMJMwkgIHNhbG1vbgkJCSAgICAjRTU1NzM4ICgyMjksODcsNTYpCQkJCSAgICAgID0+CTMJCW9yIDAuMDU8TUFGPDAuMiBvciAwLjQ8SU5GTzwwLjYKIyMjCTQJICBkYXJrcGluawkJICAgICNEQjAwM0YgKCgyMTksMCw2MykJCQkJICAgICAgPT4JNAkJCiMjIwk1CSAgbGlnaHRwaW5rCQkgICAgI0UzNTQ5MyAoMjI3LDg0LDE0NykJCQkJICAgICAgPT4JNQkJb3IgMC44PElORk88MS4wCiMjIwk2CSAgcGluawkJCSAgICAgICNENTI2N0IgKDIxMywzOCwxMjMpCQkJCSAgICAgID0+CTYJCQojIyMJNwkgIGhhcmRwaW5rCQkgICAgI0NDMDA3MSAoMjA0LDAsMTEzKQkJCQkgICAgICA9Pgk3CQkKIyMjCTgJICBsaWdodHB1cnBsZQkgICAgI0E4NDQ4QSAoMTY4LDY4LDEzOCkJCQkJICAgICAgPT4JOAkJCiMjIwk5CSAgcHVycGxlCQkJICAgICM5QTM0ODAgKDE1NCw1MiwxMjgpCQkJCSAgICAgID0+CTkJCQojIyMJMTAJbGF2ZW5kZWwJCSAgICAjOEQ1QjlBICgxNDEsOTEsMTU0KQkJCQkgICAgICA9PgkxMAkJCiMjIwkxMQlibHVlcHVycGxlCQkgICM3MDUyOTYgKDExMiw4MiwxNTApCQkJCSAgICAgID0+CTExCQkKIyMjCTEyCXB1cnBsZWJsdWUJCSAgIzY4NkFBOSAoMTA0LDEwNiwxNjkpCQkJICAgICAgPT4JMTIJCQojIyMJMTMJbGlnaHRwdXJwbGVibHVlCSM2MTczQUQgKDk3LDExNSwxNzMvMTAxLDEyMCwxODApCT0+CTEzCQkKIyMjCTE0CXNlYWJsdWUJCQkgICAgIzRDODFCRiAoNzYsMTI5LDE5MSkJCQkJICAgICAgPT4JMTQJCQojIyMJMTUJc2t5Ymx1ZQkJCSAgICAjMkY4QkM5ICg0NywxMzksMjAxKQkJCQkgICAgICA9PgkxNQkJCiMjIwkxNglhenVyYmx1ZQkJICAgICMxMjkwRDkgKDE4LDE0NCwyMTcpCQkJCSAgICAgID0+CTE2CQlvciAwLjAxPE1BRjwwLjA1IG9yIDAuMjxJTkZPPDAuNAojIyMJMTcJbGlnaHRhenVyYmx1ZQkgICMxMzk2RDggKDE5LDE1MCwyMTYpCQkJCSAgICAgID0+CTE3CQkKIyMjCTE4CWdyZWVuYmx1ZQkJICAgICMxNUE2QzEgKDIxLDE2NiwxOTMpCQkJCSAgICAgID0+CTE4CQkKIyMjCTE5CXNlYXdlZWRncmVlbgkgICM1RUIxN0YgKDk0LDE3NywxMjcpCQkJCSAgICAgID0+CTE5CQkKIyMjCTIwCXllbGxvd2dyZWVuCQkgICM4NkI4MzMgKDEzNCwxODQsNTEpCQkJCSAgICAgID0+CTIwCQkKIyMjCTIxCWxpZ2h0bW9zc2dyZWVuCSNDNUQyMjAgKDE5NywyMTAsMzIpCQkJCSAgICAgID0+CTIxCQkKIyMjCTIyCW1vc3NncmVlbgkJICAgICM5RkMyMjggKDE1OSwxOTQsNDApCQkJCSAgICAgID0+CTIyCQlvciBNQUY+MC4yMCBvciAwLjY8SU5GTzwwLjgKIyMjCTIzCWxpZ2h0Z3JlZW4JICAJIzc4QjExMyAoMTIwLDE3NywxOSkJCQkJICAgICAgPT4JMjMvWAojIyMJMjQJZ3JlZW4JCQkgICAgICAjNDlBMDFEICg3MywxNjAsMjkpCQkJCSAgICAgID0+CTI0L1kKIyMjCTI1CWdyZXkJCQkgICAgICAjNTk1QTVDICg4OSw5MCw5MikJCQkJICAgICAgICA9PgkyNS9YWQlvciBNQUY8MC4wMSBvciAwLjA8SU5GTzwwLjIKIyMjCTI2CWxpZ2h0Z3JleQkJICAgICNBMkEzQTQJKDE2MiwxNjMsMTY0KQkJCSAgICAgID0+CTI2L01UCiMjIwojIyMJQURESVRJT05BTCBDT0xPUlMKIyMjCTI3CW1pZGdyZXkJCQkjRDdEOEQ3CiMjIwkyOAl2ZXJ5bGlnaHRncmV5CSNFQ0VDRUMiCiMjIwkyOQl3aGl0ZQkJCSNGRkZGRkYKIyMjCTMwCWJsYWNrCQkJIzAwMDAwMAojIyMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgp1aXRob2ZfY29sb3IgPSBjKCIjRkJCODIwIiwiI0Y1OUQxMCIsIiNFNTU3MzgiLCIjREIwMDNGIiwiI0UzNTQ5MyIsIiNENTI2N0IiLAogICAgICAgICAgICAgICAgICIjQ0MwMDcxIiwiI0E4NDQ4QSIsIiM5QTM0ODAiLCIjOEQ1QjlBIiwiIzcwNTI5NiIsIiM2ODZBQTkiLAogICAgICAgICAgICAgICAgICIjNjE3M0FEIiwiIzRDODFCRiIsIiMyRjhCQzkiLCIjMTI5MEQ5IiwiIzEzOTZEOCIsIiMxNUE2QzEiLAogICAgICAgICAgICAgICAgICIjNUVCMTdGIiwiIzg2QjgzMyIsIiNDNUQyMjAiLCIjOUZDMjI4IiwiIzc4QjExMyIsIiM0OUEwMUQiLAogICAgICAgICAgICAgICAgICIjNTk1QTVDIiwiI0EyQTNBNCIsICIjRDdEOEQ3IiwgIiNFQ0VDRUMiLCAiI0ZGRkZGRiIsICIjMDAwMDAwIikKCnVpdGhvZl9jb2xvcl9sZWdlbmQgPSBjKCIjRkJCODIwIiwgIiNGNTlEMTAiLCAiI0U1NTczOCIsICIjREIwMDNGIiwgIiNFMzU0OTMiLAogICAgICAgICAgICAgICAgICAgICAgICAiI0Q1MjY3QiIsICIjQ0MwMDcxIiwgIiNBODQ0OEEiLCAiIzlBMzQ4MCIsICIjOEQ1QjlBIiwKICAgICAgICAgICAgICAgICAgICAgICAgIiM3MDUyOTYiLCAiIzY4NkFBOSIsICIjNjE3M0FEIiwgIiM0QzgxQkYiLCAiIzJGOEJDOSIsCiAgICAgICAgICAgICAgICAgICAgICAgICIjMTI5MEQ5IiwgIiMxMzk2RDgiLCAiIzE1QTZDMSIsICIjNUVCMTdGIiwgIiM4NkI4MzMiLAogICAgICAgICAgICAgICAgICAgICAgICAiI0M1RDIyMCIsICIjOUZDMjI4IiwgIiM3OEIxMTMiLCAiIzQ5QTAxRCIsICIjNTk1QTVDIiwKICAgICAgICAgICAgICAgICAgICAgICAgIiNBMkEzQTQiLCAiI0Q3RDhENyIsICIjRUNFQ0VDIiwgIiNGRkZGRkYiLCAiIzAwMDAwMCIpCgojZ2dwbG90MiBkZWZhdWx0IGNvbG9yIHBhbGV0dGUKZ2dfY29sb3JfaHVlIDwtIGZ1bmN0aW9uKG4pIHsKICBodWVzID0gc2VxKDE1LCAzNzUsIGxlbmd0aCA9IG4gKyAxKQogIGhjbChoID0gaHVlcywgbCA9IDY1LCBjID0gMTAwKVsxOm5dCn0KCiMjIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCmBgYAoKCmBgYHtyIEFuYWx5c2lzIEZ1bmN0aW9uc30KIyBGdW5jdGlvbiB0byBncmVwIGRhdGEgZnJvbSBnbG0oKS9sbSgpCkdMTS5DT04gPC0gZnVuY3Rpb24oZml0LCBEQVRBU0VULCB4X25hbWUsIHksIHZlcmJvc2U9YyhUUlVFLEZBTFNFKSl7CiAgY2F0KCJBbmFseXppbmcgaW4gZGF0YXNldCAnIiwgREFUQVNFVCAsIicgdGhlIGFzc29jaWF0aW9uIG9mICciLCB4X25hbWUgLCInIHdpdGggJyIsIHkgLCInIC5cbiIpCiAgaWYgKG5yb3coc3VtbWFyeShmaXQpJGNvZWZmaWNpZW50cykgPT0gMSkgewogICAgb3V0cHV0ID0gYyhEQVRBU0VULCB4X25hbWUsIHksIHJlcChOQSw4KSkKICAgIGNhdCgiTW9kZWwgbm90IGZpdHRlZDsgcHJvYmFibHkgc2luZ3VsYXIuXG4iKQogIH1lbHNlIHsKICAgIGNhdCgiQ29sbGVjdGluZyBkYXRhLlxuXG4iKQogICAgZWZmZWN0c2l6ZSA9IHN1bW1hcnkoZml0KSRjb2VmZmljaWVudHNbMiwxXQogICAgU0UgPSBzdW1tYXJ5KGZpdCkkY29lZmZpY2llbnRzWzIsMl0KICAgIE9SZWZmZWN0ID0gZXhwKHN1bW1hcnkoZml0KSRjb2VmZmljaWVudHNbMiwxXSkKICAgIENJX2xvdyA9IGV4cChlZmZlY3RzaXplIC0gMS45NiAqIFNFKQogICAgQ0lfdXAgPSBleHAoZWZmZWN0c2l6ZSArIDEuOTYgKiBTRSkKICAgIHR2YWx1ZSA9IHN1bW1hcnkoZml0KSRjb2VmZmljaWVudHNbMiwzXQogICAgcHZhbHVlID0gc3VtbWFyeShmaXQpJGNvZWZmaWNpZW50c1syLDRdCiAgICBSID0gc3VtbWFyeShmaXQpJHIuc3F1YXJlZAogICAgUi5hZGogPSBzdW1tYXJ5KGZpdCkkYWRqLnIuc3F1YXJlZAogICAgc2FtcGxlX3NpemUgPSBucm93KG1vZGVsLmZyYW1lKGZpdCkpCiAgICBBRV9OID0gQUVEQi5DRUEuc2FtcGxlc2l6ZQogICAgUGVyY19NaXNzID0gMTAwIC0gKChzYW1wbGVfc2l6ZSAqIDEwMCkvQUVfTikKICAgIAogICAgb3V0cHV0ID0gYyhEQVRBU0VULCB4X25hbWUsIHksIGVmZmVjdHNpemUsIFNFLCBPUmVmZmVjdCwgQ0lfbG93LCBDSV91cCwgdHZhbHVlLCBwdmFsdWUsIFIsIFIuYWRqLCBBRV9OLCBzYW1wbGVfc2l6ZSwgUGVyY19NaXNzKQogICAgCiAgICBpZiAodmVyYm9zZSA9PSBUUlVFKSB7CiAgICBjYXQoIldlIGhhdmUgY29sbGVjdGVkIHRoZSBmb2xsb3dpbmcgYW5kIHN1bW1hcml6ZSBpdCBpbiBhbiBvYmplY3Q6XG4iKQogICAgY2F0KCJEYXRhc2V0Li4uLi4uLi4uLi4uLi4uLi4uLjoiLCBEQVRBU0VULCAiXG4iKQogICAgY2F0KCJTY29yZS9FeHBvc3VyZS9iaW9tYXJrZXIuLjoiLCB4X25hbWUsICJcbiIpCiAgICBjYXQoIlRyYWl0L291dGNvbWUuLi4uLi4uLi4uLi4uOiIsIHksICJcbiIpCiAgICBjYXQoIkVmZmVjdCBzaXplLi4uLi4uLi4uLi4uLi4uOiIsIHJvdW5kKGVmZmVjdHNpemUsIDYpLCAiXG4iKQogICAgY2F0KCJTdGFuZGFyZCBlcnJvci4uLi4uLi4uLi4uLjoiLCByb3VuZChTRSwgNiksICJcbiIpCiAgICBjYXQoIk9kZHMgcmF0aW8gKGVmZmVjdCBzaXplKS4uOiIsIHJvdW5kKE9SZWZmZWN0LCAzKSwgIlxuIikKICAgIGNhdCgiTG93ZXIgOTUlIENJLi4uLi4uLi4uLi4uLi46Iiwgcm91bmQoQ0lfbG93LCAzKSwgIlxuIikKICAgIGNhdCgiVXBwZXIgOTUlIENJLi4uLi4uLi4uLi4uLi46Iiwgcm91bmQoQ0lfdXAsIDMpLCAiXG4iKQogICAgY2F0KCJULXZhbHVlLi4uLi4uLi4uLi4uLi4uLi4uLjoiLCByb3VuZCh0dmFsdWUsIDYpLCAiXG4iKQogICAgY2F0KCJQLXZhbHVlLi4uLi4uLi4uLi4uLi4uLi4uLjoiLCBzaWduaWYocHZhbHVlLCA4KSwgIlxuIikKICAgIGNhdCgiUl4yLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi46Iiwgcm91bmQoUiwgNiksICJcbiIpCiAgICBjYXQoIkFkanVzdGVkIHJeMi4uLi4uLi4uLi4uLi4uOiIsIHJvdW5kKFIuYWRqLCA2KSwgIlxuIikKICAgIGNhdCgiU2FtcGxlIHNpemUgb2YgQUUgREIuLi4uLi46IiwgQUVfTiwgIlxuIikKICAgIGNhdCgiU2FtcGxlIHNpemUgb2YgbW9kZWwuLi4uLi46Iiwgc2FtcGxlX3NpemUsICJcbiIpCiAgICBjYXQoIk1pc3NpbmcgZGF0YSAlLi4uLi4uLi4uLi4uOiIsIHJvdW5kKFBlcmNfTWlzcywgNiksICJcbiIpCiAgICB9IGVsc2UgewogICAgICBjYXQoIkNvbGxlY3RpbmcgZGF0YSBpbiBzdW1tYXJ5IG9iamVjdC5cbiIpCiAgICB9CiAgfQogIHJldHVybihvdXRwdXQpCiAgcHJpbnQob3V0cHV0KQp9CgpHTE0uQklOIDwtIGZ1bmN0aW9uKGZpdCwgREFUQVNFVCwgeF9uYW1lLCB5LCB2ZXJib3NlPWMoVFJVRSxGQUxTRSkpewogIGNhdCgiQW5hbHl6aW5nIGluIGRhdGFzZXQgJyIsIERBVEFTRVQgLCInIHRoZSBhc3NvY2lhdGlvbiBvZiAnIiwgeF9uYW1lICwiJyB3aXRoICciLCB5ICwiJyAuLi5cbiIpCiAgaWYgKG5yb3coc3VtbWFyeShmaXQpJGNvZWZmaWNpZW50cykgPT0gMSkgewogICAgb3V0cHV0ID0gYyhEQVRBU0VULCB4X25hbWUsIHksIHJlcChOQSw5KSkKICAgIGNhdCgiTW9kZWwgbm90IGZpdHRlZDsgcHJvYmFibHkgc2luZ3VsYXIuXG4iKQogIH1lbHNlIHsKICAgIGNhdCgiQ29sbGVjdGluZyBkYXRhLi4uXG4iKQogICAgZWZmZWN0c2l6ZSA9IHN1bW1hcnkoZml0KSRjb2VmZmljaWVudHNbMiwxXQogICAgU0UgPSBzdW1tYXJ5KGZpdCkkY29lZmZpY2llbnRzWzIsMl0KICAgIE9SZWZmZWN0ID0gZXhwKHN1bW1hcnkoZml0KSRjb2VmZmljaWVudHNbMiwxXSkKICAgIENJX2xvdyA9IGV4cChlZmZlY3RzaXplIC0gMS45NiAqIFNFKQogICAgQ0lfdXAgPSBleHAoZWZmZWN0c2l6ZSArIDEuOTYgKiBTRSkKICAgIHp2YWx1ZSA9IHN1bW1hcnkoZml0KSRjb2VmZmljaWVudHNbMiwzXQogICAgcHZhbHVlID0gc3VtbWFyeShmaXQpJGNvZWZmaWNpZW50c1syLDRdCiAgICBkZXYgPC0gZml0JGRldmlhbmNlCiAgICBudWxsRGV2IDwtIGZpdCRudWxsLmRldmlhbmNlCiAgICBtb2RlbE4gPC0gbGVuZ3RoKGZpdCRmaXR0ZWQudmFsdWVzKQogICAgUi5sIDwtIDEgLSBkZXYgLyBudWxsRGV2CiAgICBSLmNzIDwtIDEgLSBleHAoLShudWxsRGV2IC0gZGV2KSAvIG1vZGVsTikKICAgIFIubiA8LSBSLmNzIC8gKDEgLSAoZXhwKC1udWxsRGV2L21vZGVsTikpKQogICAgc2FtcGxlX3NpemUgPSBucm93KG1vZGVsLmZyYW1lKGZpdCkpCiAgICBBRV9OID0gQUVEQi5DRUEuc2FtcGxlc2l6ZQogICAgUGVyY19NaXNzID0gMTAwIC0gKChzYW1wbGVfc2l6ZSAqIDEwMCkvQUVfTikKICAgIAogICAgb3V0cHV0ID0gYyhEQVRBU0VULCB4X25hbWUsIHksIGVmZmVjdHNpemUsIFNFLCBPUmVmZmVjdCwgQ0lfbG93LCBDSV91cCwgenZhbHVlLCBwdmFsdWUsIFIubCwgUi5jcywgUi5uLCBBRV9OLCBzYW1wbGVfc2l6ZSwgUGVyY19NaXNzKQogICAgaWYgKHZlcmJvc2UgPT0gVFJVRSkgewogICAgY2F0KCJXZSBoYXZlIGNvbGxlY3RlZCB0aGUgZm9sbG93aW5nIGFuZCBzdW1tYXJpemUgaXQgaW4gYW4gb2JqZWN0OlxuIikKICAgIGNhdCgiRGF0YXNldC4uLi4uLi4uLi4uLi4uLi4uLi46IiwgREFUQVNFVCwgIlxuIikKICAgIGNhdCgiU2NvcmUvRXhwb3N1cmUvYmlvbWFya2VyLi46IiwgeF9uYW1lLCAiXG4iKQogICAgY2F0KCJUcmFpdC9vdXRjb21lLi4uLi4uLi4uLi4uLjoiLCB5LCAiXG4iKQogICAgY2F0KCJFZmZlY3Qgc2l6ZS4uLi4uLi4uLi4uLi4uLjoiLCByb3VuZChlZmZlY3RzaXplLCA2KSwgIlxuIikKICAgIGNhdCgiU3RhbmRhcmQgZXJyb3IuLi4uLi4uLi4uLi46Iiwgcm91bmQoU0UsIDYpLCAiXG4iKQogICAgY2F0KCJPZGRzIHJhdGlvIChlZmZlY3Qgc2l6ZSkuLjoiLCByb3VuZChPUmVmZmVjdCwgMyksICJcbiIpCiAgICBjYXQoIkxvd2VyIDk1JSBDSS4uLi4uLi4uLi4uLi4uOiIsIHJvdW5kKENJX2xvdywgMyksICJcbiIpCiAgICBjYXQoIlVwcGVyIDk1JSBDSS4uLi4uLi4uLi4uLi4uOiIsIHJvdW5kKENJX3VwLCAzKSwgIlxuIikKICAgIGNhdCgiWi12YWx1ZS4uLi4uLi4uLi4uLi4uLi4uLi46Iiwgcm91bmQoenZhbHVlLCA2KSwgIlxuIikKICAgIGNhdCgiUC12YWx1ZS4uLi4uLi4uLi4uLi4uLi4uLi46Iiwgc2lnbmlmKHB2YWx1ZSwgOCksICJcbiIpCiAgICBjYXQoIkhvc21lciBhbmQgTGVtZXNob3cgcl4yLi4uOiIsIHJvdW5kKFIubCwgNiksICJcbiIpCiAgICBjYXQoIkNveCBhbmQgU25lbGwgcl4yLi4uLi4uLi4uOiIsIHJvdW5kKFIuY3MsIDYpLCAiXG4iKQogICAgY2F0KCJOYWdlbGtlcmtlJ3MgcHNldWRvIHJeMi4uLjoiLCByb3VuZChSLm4sIDYpLCAiXG4iKQogICAgY2F0KCJTYW1wbGUgc2l6ZSBvZiBBRSBEQi4uLi4uLjoiLCBBRV9OLCAiXG4iKQogICAgY2F0KCJTYW1wbGUgc2l6ZSBvZiBtb2RlbC4uLi4uLjoiLCBzYW1wbGVfc2l6ZSwgIlxuIikKICAgIGNhdCgiTWlzc2luZyBkYXRhICUuLi4uLi4uLi4uLi46Iiwgcm91bmQoUGVyY19NaXNzLCA2KSwgIlxuIikKICAgIH0gZWxzZSB7CiAgICAgIGNhdCgiQ29sbGVjdGluZyBkYXRhIGluIHN1bW1hcnkgb2JqZWN0LlxuIikKICAgIH0KICB9CiAgcmV0dXJuKG91dHB1dCkKICBwcmludChvdXRwdXQpCn0KYGBgCgoKIyBCYWNrZ3JvdW5kCgpVc2luZyBhIE1lbmRlbGlhbiBSYW5kb21pemF0aW9uIGFwcHJvYWNoLCB3ZSByZWNlbnRseSBleGFtaW5lZCBhc3NvY2lhdGlvbnMgYmV0d2VlbiB0aGUgY2lyY3VsYXRpbmcgbGV2ZWxzIG9mIDQxIGN5dG9raW5lcyBhbmQgZ3Jvd3RoIGZhY3RvcnMgYW5kIHRoZSByaXNrIG9mIHN0cm9rZSBpbiB0aGUgTUVHQVNUUk9LRSBHV0FTIGRhdGFzZXQgKDY3LDAwMCBzdHJva2UgY2FzZXMgYW5kIDQ1MCwwMDAgY29udHJvbHMpIGFuZCBmb3VuZCBNb25vY3l0ZSBjaGVtb2F0dHJhY3RhbnQgcHJvdGVpbi0xIChNQ1AtMSkgYXMgdGhlIGN5dG9raW5lIHNob3dpbmcgdGhlIHN0cm9uZ2VzdCBhc3NvY2lhdGlvbiB3aXRoIHN0cm9rZSwgcGFydGljdWxhcmx5IGxhcmdlIGFydGVyeSBhbmQgY2FyZGlvZW1ib2xpYyBzdHJva2UgKEdlb3JnYWtpcyBldCBhbC4sIDIwMTlhKS4gR2VuZXRpY2FsbHkgZWxldmF0ZWQgTUNQLTEgbGV2ZWxzIHdlcmUgYWxzbyBhc3NvY2lhdGVkIHdpdGggYSBoaWdoZXIgcmlzayBvZiBjb3JvbmFyeSBhcnRlcnkgZGlzZWFzZSBhbmQgbXlvY2FyZGlhbCBpbmZhcmN0aW9uIChHZW9yZ2FraXMgZXQgYWwuLCAyMDE5YSkuIEZ1cnRoZXIsIGluIGEgbWV0YS1hbmFseXNpcyBvZiA2IG9ic2VydmF0aW9uYWwgcG9wdWxhdGlvbi1iYXNlZCBvZiBsb25naXR1ZGluYWwgY29ob3J0IHN0dWRpZXMgd2UgcmVjZW50bHkgc2hvd2VkIHRoYXQgYmFzZWxpbmUgbGV2ZWxzIG9mIE1DUC0xIHdlcmUgYXNzb2NpYXRlZCB3aXRoIGEgaGlnaGVyIHJpc2sgb2YgaXNjaGVtaWMgc3Ryb2tlIG92ZXIgZm9sbG93LXVwIChHZW9yZ2FraXMgZXQgYWwuLCAyMDE5YikuCldoaWxlIHRoZXNlIGRhdGEgc3VnZ2VzdCBhIGNlbnRyYWwgcm9sZSBvZiBNQ1AtMSBpbiB0aGUgcGF0aG9nZW5lc2lzIG9mIGF0aGVyb3NjbGVyb3NpcywgaXQgcmVtYWlucyB1bmtub3duIGlmIE1DUC0xIGxldmVscyBpbiB0aGUgYmxvb2QgcmVhbGx5IHJlZmxlY3QgTUNQLTEgYWN0aXZpdHkuIE1DUC0xIGlzIGV4cHJlc3NlZCBpbiB0aGUgYXRoZXJvc2NsZXJvdGljIHBsYXF1ZSBhbmQgYXR0cmFjdHMgbW9ub2N5dGVzIGluIHRoZSBzdWJlbmRvdGhlbGlhbCBzcGFjZSAoTmVsa2VuIGV0IGFsLiwgMTk5MTsgUGFwYWRvcG91bG91IGV0IGFsLiwgMjAwODsgVGFrZXlhIGV0IGFsLiwgMTk5MzsgV2lsY294IGV0IGFsLiwgMTk5NCkuIFRodXMsIE1DUC0xIGxldmVscyBpbiB0aGUgcGxhcXVlIG1pZ2h0IG1vcmUgc3Ryb25nbHkgcmVmbGVjdCBNQ1AtMSBzaWduYWxpbmcuIEhvd2V2ZXIsIGl0IHJlbWFpbnMgdW5rbm93biBpZiBNQ1AtMSBwbGFxdWUgbGV2ZWxzIGFzc29jaWF0ZSB3aXRoIHBsYXF1ZSB2dWxuZXJhYmlsaXR5IG9yIHJpc2sgb2YgY2FyZGlvdmFzY3VsYXIgZXZlbnRzLgoKCiMjIE9iamVjdGl2ZXMKCkFnYWluc3QgdGhpcyBiYWNrZ3JvdW5kIHdlIG5vdyBhaW0gdG8gbWFrZSB1c2Ugb2YgdGhlIGRhdGEgZnJvbSBBdGhlcm8tRXhwcmVzcyBCaW9iYW5rIFN0dWR5IHRvIGV4cGxvcmUgdGhlIGFzc29jaWF0aW9ucyBvZiBNQ1AtMSBwcm90ZWluIGxldmVscyBpbiB0aGUgYXRoZXJvc2NsZXJvdGljIHBsYXF1ZXMgZnJvbSBwYXRpZW50cyB1bmRlcmdvaW5nIGNhcm90aWQgZW5kYXJ0ZXJlY3RvbXkgd2l0aCBwaGVub3R5cGVzIG9mIHBsYXF1ZSB2dWxuZXJhYmlsaXR5IGFuZCBzZWNvbmRhcnkgdmFzY3VsYXIgZXZlbnRzIG92ZXIgYSBmb2xsb3ctdXAgb2YgdGhyZWUgeWVhcnMuCgoKIyMgTWV0aG9kcwoKKkJsb29kKgoKLSBJTDY6IEludGVybGV1a2luIDYuIEVudHJleiBHZW5lOiAzNTY5LiBCZW5kZXIgTWVkU3lzdGVtczsgY2F0Lm5yLjogQk1TODEwRkYuIFJlY2FsY3VsYXRlZCBGQUNTLiBbcGcvbUxdCi0gTUNQMTogTW9ub2N5dGUgY2hlbW90YWN0aWMgcHJvdGVpbiAxLCBNQ1AtMSAoQ2hlbW9raW5lIChDLUMgbW90aWYpIGxpZ2FuZCAyLCBDQ0wyKS4gRW50cmV6IEdlbmU6IDYzNDcuIE1lYXN1cmVkIGF0IHRoZSBXS1ouIFJlY2FsY3VsYXRlZCBMdW1pbmV4LiBbcGcvbUxdCgoKKlBsYXF1ZSoKCi0gSUw2OiBJbnRlcmxldWtpbmcgNiAoSUw2OyBFbnRyZXogR2VuZTogMzU2OSkgY29uY2VudHJhdGlvbiBpbiBwbGFxdWUgW3BnL3VnXSwgbWVhc3VyZWQgYnkgTHVtaW5leCBhdCB0aGUgV0taLgotIE1DUDE6IE1vbm9jeXRlIGNoZW1vdGFjdGljIHByb3RlaW4gMSAoYS5rLmEuIENDTDI7IEVudHJleiBHZW5lOiA2MzQ3KSBjb25jZW50cmF0aW9uIGluIHBsYXF1ZSBbcGcvdWddLCBtZWFzdXJlZCBieSBMdW1pbmV4IGF0IHRoZSBXS1ouCi0gSUw2UjogSW50ZXJsZXVraW5nIDYgcmVjZXB0b3IgKElMNlI7IEVudHJleiBHZW5lOiAzNTcwKSBjb25jZW50cmF0aW9uIGluIHBsYXF1ZSBbcGcvdWddLCBtZWFzdXJlZCBieSBMdW1pbmV4IGF0IHRoZSBXS1ouCgoKIyBMb2FkaW5nIGRhdGEKCiMjIENsaW5pY2FsIGRhdGEKCkxvYWRpbmcgQXRoZXJvLUV4cHJlc3MgY2xpbmljYWwgZGF0YS4KYGBge3IgTG9hZEFFREJ9CnJlcXVpcmUoaGF2ZW4pCgpBRURCIDwtIGhhdmVuOjpyZWFkX3NhdihwYXN0ZTAoQUVEQl9sb2MsICIvMjAxOS0zTkVXX0F0aGVyb0V4cHJlc3NEYXRhYmFzZV9TY2llbnRpZmljQUVfMDIwNzIwMTlfSUNfYWRkZWQuc2F2IikpCgpoZWFkKEFFREIpCgpyZXF1aXJlKG9wZW54bHN4KQpBRURCX1Byb3RDb25jIDwtIG9wZW54bHN4OjpyZWFkLnhsc3gocGFzdGUwKEFFREJfbG9jLCAiL19WcmllemVyLzIwMTkwOTE5X0ZyZWV6ZXJzX3ByZVRDQmlvLnhsc3giKSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzaGVldCA9ICJQcm90ZWluQ29uYy4iLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNraXBFbXB0eUNvbHMgPSBUUlVFKQoKQUVEQl9CbG9vZCA8LSBvcGVueGxzeDo6cmVhZC54bHN4KHBhc3RlMChBRURCX2xvYywgIi9fVnJpZXplci8yMDE5MDkxOV9GcmVlemVyc19wcmVUQ0Jpby54bHN4IiksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hlZXQgPSAiQmxvb2QiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNraXBFbXB0eUNvbHMgPSBUUlVFKQpBRURCX1BsYXF1ZSA8LSBvcGVueGxzeDo6cmVhZC54bHN4KHBhc3RlMChBRURCX2xvYywgIi9fVnJpZXplci8yMDE5MDkxOV9GcmVlemVyc19wcmVUQ0Jpby54bHN4IiksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hlZXQgPSAiUGxhcXVlIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBza2lwRW1wdHlDb2xzID0gVFJVRSkKCmhlYWQoQUVEQl9Qcm90Q29uYykKaGVhZChBRURCX0Jsb29kKQpoZWFkKEFFREJfUGxhcXVlKQoKCmBgYAoKIyMgRml4aW5nIGFuZCBjcmVhdGluZyB2YXJpYWJsZXMKCldlIG5lZWQgdG8gYmUgdmVyeSBzdHJpY3QgaW4gZGVmaW5pbmcgX3N5bXB0b21zLl8gVGhlcmVmb3JlIHdlIHdpbGwgZml4IGEgbmV3IHZhcmlhYmxlIHRoYXQgZ3JvdXBzIF9zeW1wdG9tc18gYXQgaW5jbHVzaW9uLgoKQ29kaW5nIG9mIF9zeW1wdG9tc18gaXMgYXMgZm9sbG93czoKCi0gbWlzc2luZwktOTk5CQotIEFzeW1wdG9tYXRpYwkwCQotIFRJQQkxCQotIG1pbm9yIHN0cm9rZQkyCQotIE1ham9yIHN0cm9rZQkzCQotIEFtYXVyb3NpcyBmdWdheAk0CQotIEZvdXIgdmVzc2VsIGRpc2Vhc2UJNQkKLSBWZXJ0ZWJyb2Jhc2lsYXJ5IFRJQQk3CQotIFJldGluYWwgaW5mYXJjdGlvbgk4CQotIFN5bXB0b21hdGljLCBidXQgYXNwZWNpZmljIHN5bXRvbXMJOQotIENvbnRyYWxhdGVyYWwgc3ltcHRvbWF0aWMgb2NjbHVzaW9uCTEwCQotIHJldGluYWwgaW5mYXJjdGlvbgkxMQkKLSBhcm1jbGF1ZGljYXRpb24gZHVlIHRvIG9jY2x1c2lvbiBzdWJjbGF2aWFuIGFydGVyeSwgQ0VBIG5lZWRlZCBmb3IgYnlwYXNzCTEyCQotIHJldGluYWwgaW5mYXJjdGlvbiArIFRJQXMJMTMJCi0gT2N1bGFyIGlzY2hlbWljIHN5bmRyb21lCTE0CQotIGlzY2hlbWlzY2ggZ2xhdWNvb20JMTUJCi0gc3ViY2xhdmlhbiBzdGVhbCBzeW5kcm9tZQkxNgkKLSBUR0EJMTcKCldlIHdpbGwgZ3JvdXAgYXMgZm9sbG93cyBpbiBgU3ltcHRvbXMuNUdgOgoKMS4gQXN5bXB0b21hdGljID4gMAoyLiBUSUEgPiAxLCA3LCAxMwozLiBTdHJva2UgPiAyLCAzCjQuIE9jdWxhciA+IDQsIDE0LCAxNQo1LiBSZXRpbmFsIGluZmFyY3Rpb24gPiA4LCAxMQo2LiBPdGhlciA+IDUsIDksIDEwLCAxMiwgMTYsIDE3CgpXZSB3aWxsIGFsc28gZ3JvdXAgYXMgZm9sbG93cyBpbiBgQXN5bXB0U3ltcHRgOgoKMS4gQXN5bXB0b21hdGljID4gMAoyLiBUSUEgPiAxLCA3LCAxMyArIFN0cm9rZSA+IDIsIDMKMy4gT2N1bGFyID4gNCwgMTQsIDE1ICsgUmV0aW5hbCBpbmZhcmN0aW9uID4gOCwgMTEgKyBPdGhlciA+IDUsIDksIDEwLCAxMiwgMTYsIDE3CgpgYGB7ciBGaXhTeW1wdG9tc30KIyBGaXggc3ltcHRvbXMKYXR0YWNoKEFFREIpCiMgU3ltcHRvbXMuNUcKQUVEQlssIlN5bXB0b21zLjVHIl0gPC0gTkEKQUVEQiRTeW1wdG9tcy41R1tzeW1wdCA9PSAwXSA8LSAiQXN5bXB0b21hdGljIgpBRURCJFN5bXB0b21zLjVHW3N5bXB0ID09IDEgfCBzeW1wdCA9PSA3IHwgc3ltcHQgPT0gMTNdIDwtICJUSUEiCkFFREIkU3ltcHRvbXMuNUdbc3ltcHQgPT0gMiB8IHN5bXB0ID09IDNdIDwtICJTdHJva2UiCkFFREIkU3ltcHRvbXMuNUdbc3ltcHQgPT0gNCB8IHN5bXB0ID09IDE0IHwgc3ltcHQgPT0gMTUgXSA8LSAiT2N1bGFyIgpBRURCJFN5bXB0b21zLjVHW3N5bXB0ID09IDggfCBzeW1wdCA9PSAxMV0gPC0gIlJldGluYWwgaW5mYXJjdGlvbiIKQUVEQiRTeW1wdG9tcy41R1tzeW1wdCA9PSA1IHwgc3ltcHQgPT0gOSB8IHN5bXB0ID09IDEwIHwgc3ltcHQgPT0gMTIgfCBzeW1wdCA9PSAxNiB8IHN5bXB0ID09IDE3XSA8LSAiT3RoZXIiCgojIEFzeW1wdFN5bXB0CkFFREJbLCJBc3ltcHRTeW1wdCJdIDwtIE5BCkFFREIkQXN5bXB0U3ltcHRbc3ltcHQgPT0gMF0gPC0gIkFzeW1wdG9tYXRpYyIKQUVEQiRBc3ltcHRTeW1wdFtzeW1wdCA9PSAxIHwgc3ltcHQgPT0gNyB8IHN5bXB0ID09IDEzIHwgc3ltcHQgPT0gMiB8IHN5bXB0ID09IDNdIDwtICJTeW1wdG9tYXRpYyIKQUVEQiRBc3ltcHRTeW1wdFtzeW1wdCA9PSA0IHwgc3ltcHQgPT0gMTQgfCBzeW1wdCA9PSAxNSB8IHN5bXB0ID09IDggfCBzeW1wdCA9PSAxMSB8IHN5bXB0ID09IDUgfCBzeW1wdCA9PSA5IHwgc3ltcHQgPT0gMTAgfCBzeW1wdCA9PSAxMiB8IHN5bXB0ID09IDE2IHwgc3ltcHQgPT0gMTddIDwtICJPY3VsYXIgYW5kIG90aGVycyIKZGV0YWNoKEFFREIpCgpBRURCLnRlbXAgPC0gc3Vic2V0KEFFREIsICBzZWxlY3QgPSBjKCJTVFVEWV9OVU1CRVIiLCAiVVBJRCIsICJBZ2UiLCAiR2VuZGVyIiwgIkhvc3BpdGFsIiwgIkFydGVyeV9zdW1tYXJ5IiwgInN5bXB0IiwgIlN5bXB0b21zLjVHIiwgIkFzeW1wdFN5bXB0IikpCnJlcXVpcmUobGFiZWxsZWQpCkFFREIudGVtcCRHZW5kZXIgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRHZW5kZXIpCkFFREIudGVtcCRIb3NwaXRhbCA8LSB0b19mYWN0b3IoQUVEQi50ZW1wJEhvc3BpdGFsKQpBRURCLnRlbXAkQXJ0ZXJ5X3N1bW1hcnkgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRBcnRlcnlfc3VtbWFyeSkKCkRUOjpkYXRhdGFibGUoQUVEQi50ZW1wWzE6MTAsXSwgY2FwdGlvbiA9ICJFeGNlcnB0IG9mIHRoZSB3aG9sZSBBRURCLiIsIHJvd25hbWVzID0gRkFMU0UpCgp0YWJsZShBRURCLnRlbXAkU3ltcHRvbXMuNUcsIEFFREIudGVtcCRBc3ltcHRTeW1wdCkKCnJtKEFFREIudGVtcCkKYGBgCgpXZSB3aWxsIGFsc28gZml4IHRoZSBfcGxhcXVlcGhlbm90eXBlc18gdmFyaWFibGUuICAKCkNvZGluZyBvZiBzeW1wdG9tcyBpcyBhcyBmb2xsb3dzOgoKLSBtaXNzaW5nCS05OTkJCi0gbm90IHJlbGV2YW50IC04ODgKLSBmaWJyb3VzCTEJCi0gZmlicm9hdGhlcm9tYXRvdXMJMgkKLSBhdGhlcm9tYXRvdXMJMwkKCgpgYGB7ciBGaXhQbGFxdWVQaGVub3R5cGVzfQoKIyBGaXggcGxhcXVlcGhlbm90eXBlcwphdHRhY2goQUVEQikKQUVEQlssIk92ZXJhbGxQbGFxdWVQaGVub3R5cGUiXSA8LSBOQQpBRURCJE92ZXJhbGxQbGFxdWVQaGVub3R5cGVbcGxhcXVlcGhlbm90eXBlID09IC05OTldIDwtIE5BCkFFREIkT3ZlcmFsbFBsYXF1ZVBoZW5vdHlwZVtwbGFxdWVwaGVub3R5cGUgPT0gLTk5OV0gPC0gTkEKQUVEQiRPdmVyYWxsUGxhcXVlUGhlbm90eXBlW3BsYXF1ZXBoZW5vdHlwZSA9PSAxXSA8LSAiZmlicm91cyIKQUVEQiRPdmVyYWxsUGxhcXVlUGhlbm90eXBlW3BsYXF1ZXBoZW5vdHlwZSA9PSAyXSA8LSAiZmlicm9hdGhlcm9tYXRvdXMiCkFFREIkT3ZlcmFsbFBsYXF1ZVBoZW5vdHlwZVtwbGFxdWVwaGVub3R5cGUgPT0gM10gPC0gImF0aGVyb21hdG91cyIKZGV0YWNoKEFFREIpCgpBRURCLnRlbXAgPC0gc3Vic2V0KEFFREIsICBzZWxlY3QgPSBjKCJTVFVEWV9OVU1CRVIiLCAiVVBJRCIsICJBZ2UiLCAiR2VuZGVyIiwgIkhvc3BpdGFsIiwgIkFydGVyeV9zdW1tYXJ5IiwgInBsYXF1ZXBoZW5vdHlwZSIsICJPdmVyYWxsUGxhcXVlUGhlbm90eXBlIikpCnJlcXVpcmUobGFiZWxsZWQpCkFFREIudGVtcCRHZW5kZXIgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRHZW5kZXIpCkFFREIudGVtcCRIb3NwaXRhbCA8LSB0b19mYWN0b3IoQUVEQi50ZW1wJEhvc3BpdGFsKQpBRURCLnRlbXAkQXJ0ZXJ5X3N1bW1hcnkgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRBcnRlcnlfc3VtbWFyeSkKCkRUOjpkYXRhdGFibGUoQUVEQi50ZW1wWzE6MTAsXSwgY2FwdGlvbiA9ICJFeGNlcnB0IG9mIHRoZSB3aG9sZSBBRURCLiIsIHJvd25hbWVzID0gRkFMU0UpCgpybShBRURCLnRlbXApCgoKYGBgCgpXZSB3aWxsIGFsc28gZml4IHRoZSBfZGlhYmV0ZXNfIHN0YXR1cyB2YXJpYWJsZS4KCgpgYGB7ciBGaXhEaWFiZXRlc30KCiMgRml4IGRpYWJldGVzCmF0dGFjaChBRURCKQpBRURCWywiRGlhYmV0ZXNTdGF0dXMiXSA8LSBOQQpBRURCJERpYWJldGVzU3RhdHVzW0RNLmNvbXBvc2l0ZSA9PSAtOTk5XSA8LSBOQQpBRURCJERpYWJldGVzU3RhdHVzW0RNLmNvbXBvc2l0ZSA9PSAwXSA8LSAiQ29udHJvbCAobm8gRGlhYmV0ZXMgRHgvTWVkKSIKQUVEQiREaWFiZXRlc1N0YXR1c1tETS5jb21wb3NpdGUgPT0gMV0gPC0gIkRpYWJldGVzIgpkZXRhY2goQUVEQikKCkFFREIudGVtcCA8LSBzdWJzZXQoQUVEQiwgIHNlbGVjdCA9IGMoIlNUVURZX05VTUJFUiIsICJVUElEIiwgIkFnZSIsICJHZW5kZXIiLCAiSG9zcGl0YWwiLCAiQXJ0ZXJ5X3N1bW1hcnkiLCAiRE0uY29tcG9zaXRlIiwgIkRpYWJldGVzU3RhdHVzIikpCnJlcXVpcmUobGFiZWxsZWQpCkFFREIudGVtcCRHZW5kZXIgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRHZW5kZXIpCkFFREIudGVtcCRIb3NwaXRhbCA8LSB0b19mYWN0b3IoQUVEQi50ZW1wJEhvc3BpdGFsKQpBRURCLnRlbXAkQXJ0ZXJ5X3N1bW1hcnkgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRBcnRlcnlfc3VtbWFyeSkKQUVEQi50ZW1wJERpYWJldGVzU3RhdHVzIDwtIHRvX2ZhY3RvcihBRURCLnRlbXAkRGlhYmV0ZXNTdGF0dXMpCgpEVDo6ZGF0YXRhYmxlKEFFREIudGVtcFsxOjEwLF0sIGNhcHRpb24gPSAiRXhjZXJwdCBvZiB0aGUgd2hvbGUgQUVEQi4iLCByb3duYW1lcyA9IEZBTFNFKQoKcm0oQUVEQi50ZW1wKQoKCmBgYAoKIyBBdGhlcm8tRXhwcmVzcyBCaW9iYW5rIFN0dWR5CgojIyBCYXNlbGluZSBjaGFyYWN0ZXJpc3RpY3MKCmBgYHtyIEJhc2VsaW5lIEFFREI6IGNyZWF0aW9uLCBpbmNsdWRlID0gRkFMU0V9CmNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxuIikKY2F0KCJTRUxFQ1RJT04gVEhFIFNISVpaTEVcbiIpCgojIyMgQXJ0ZXJ5IGxldmVscwojIEFFZGF0YSRBcnRlcnlfc3VtbWFyeTogCiMgICAgICAgICAgIHZhbHVlICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBsYWJlbAojIE5PVCBVU0UgLSAwIE5vIGFydGVyeSBrbm93biAoeWV0KSwgbm8gc3VyZ2VyeSAocGF0aWVudCBpbGwsIGRpZWQsIGV4aXRlZCBzdHVkeSksIHJlLW51bWJlcmVkIHRvIEFBQQojIFVTRSAtIDEgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjYXJvdGlkIChsZWZ0ICYgcmlnaHQpCiMgVVNFIC0gMiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmVtb3JhbC9pbGlhYyAobGVmdCwgcmlnaHQgb3IgYm90aCBzaWRlcykKIyBOT1QgVVNFIC0gMyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgb3RoZXIgY2Fyb3RpZCBhcnRlcmllcyAoY29tbW9uLCBleHRlcm5hbCkKIyBOT1QgVVNFIC0gNCAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY2Fyb3RpZCBieXBhc3MgYW5kIGluanVyeSAobGVmdCwgcmlnaHQgb3IgYm90aCBzaWRlcykKIyBOT1QgVVNFIC0gNSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFuZXVyeXNtYXRhIChjYXJvdGlkICYgZmVtb3JhbCkKIyBOT1QgVVNFIC0gNiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYW9ydGEKIyBOT1QgVVNFIC0gNyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgb3RoZXIgYXJ0ZXJpZXMgKHJlbmFsLCBwb3BsaXRlYWwsIHZlcnRlYnJhbCkKIyBOT1QgVVNFIC0gOCAgICAgICAgICAgICAgICAgICAgICAgIGZlbW9yYWwgYnlwYXNzLCBhbmdpb3NlYWwgYW5kIGluanVyeSAobGVmdCwgcmlnaHQgb3IgYm90aCBzaWRlcykKCiMjIyBBRWRhdGEkaW5mb3JtZWRjb25zZW50CiMgICAgICAgICAgIHZhbHVlICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxhYmVsCiMgTk9UIFVTRSAtIC05OTkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1pc3NpbmcKIyBOT1QgVVNFIC0gMCAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBubywgZGllZAojIFVTRSAtIDEgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ZXMKIyBVU0UgLSAyICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgaGVhbHRoIHRyZWF0bWVudCB3aGVuIHBvc3NpYmxlCiMgVVNFIC0gMyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gaGVhbHRoIHRyZWF0bWVudAojIFVTRSAtIDQgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ZXMsIG5vIGhlYWx0aCB0cmVhdG1lbnQsIG5vIGNvbW1lcmNpYWwgYnVzaW5lc3MKIyBOT1QgVVNFIC0gNSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ZXMsIG5vIHRpc3N1ZSwgbm8gY29tbWVyaWNhbCBidXNpbmVzcwojIE5PVCBVU0UgLSA2ICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gdGlzc3VlLCBubyBxdWVzdGlvbm5haXJlcywgbm8gbWVkaWNhbCBpbmZvLCBubyBjb21tZXJjaWFsIGJ1c2luZXNzCiMgVVNFIC0gNyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWVzLCBubyBxdWVzdGlvbm5haXJlcywgbm8gaGVhbHRoIHRyZWF0bWVudCwgbm8gY29tbWVyY2lhbCBidXNpbmVzcwojIFVTRSAtIDggICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ZXMsIG5vIHF1ZXN0aW9ubmFpcmVzLCBoZWFsdGggdHJlYXRtZW50IHdoZW4gcG9zc2libGUKIyBOT1QgVVNFIC0gOSAgICAgICAgICAgICAgICAgIHllcywgbm8gdGlzc3VlLCBubyBxdWVzdGlvbm5haXJlcywgbm8gaGVhbHRoIHRyZWF0bWVudCwgbm8gY29tbWVyaWNhbCBidXNpbmVzcwojIFVTRSAtIDEwICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gaGVhbHRoIHRyZWF0bWVudCwgbm8gbWVkaWNhbCBpbmZvLCBubyBjb21tZXJjaWFsIGJ1c2luZXNzCiMgTk9UIFVTRSAtIDExIHllcywgbm8gdGlzc3VlLCBubyBxdWVzdGlvbm5haXJlcywgbm8gaGVhbHRoIHRyZWF0bWVudCwgbm8gbWVkaWNhbCBpbmZvLCBubyBjb21tZXJjaWFsIGJ1c2luZXNzCiMgVVNFIC0gMTIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gcXVlc3Rpb25uYWlyZXMsIG5vIGhlYWx0aCB0cmVhdG1lbnQKIyBOT1QgVVNFIC0gMTMgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWVzLCBubyB0aXNzdWUsIG5vIGhlYWx0aCB0cmVhdG1lbnQKIyBOT1QgVVNFIC0gMTQgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ZXMsIG5vIHRpc3N1ZSwgbm8gcXVlc3Rpb25uYWlyZXMKIyBOT1QgVVNFIC0gMTUgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gdGlzc3VlLCBoZWFsdGggdHJlYXRtZW50IHdoZW4gcG9zc2libGUKIyBOT1QgVVNFIC0gMTYgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWVzLCBubyB0aXNzdWUKIyBVU0UgLSAxNyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gY29tbWVyaWNhbCBidXNpbmVzcwojIFVTRSAtIDE4ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgaGVhbHRoIHRyZWF0bWVudCB3aGVuIHBvc3NpYmxlLCBubyBjb21tZXJjaWFsIGJ1c2luZXNzCiMgVVNFIC0gMTkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWVzLCBubyBtZWRpY2FsIGluZm8sIG5vIGNvbW1lcmNpYWwgYnVzaW5lc3MKIyBVU0UgLSAyMCAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWVzLCBubyBxdWVzdGlvbm5haXJlcwojIE5PVCBVU0UgLSAyMSAgICAgICAgICAgICAgICAgICAgICAgICB5ZXMsIG5vIHRpc3N1ZSwgbm8gcXVlc3Rpb25uYWlyZXMsIG5vIGhlYWx0aCB0cmVhdG1lbnQsIG5vIG1lZGljYWwgaW5mbwojIE5PVCBVU0UgLSAyMiAgICAgICAgICAgICAgICAgIHllcywgbm8gdGlzc3VlLCBubyBxdWVzdGlvbm5haXJlcywgbm8gaGVhbHRoIHRyZWF0bWVudCwgbm8gY29tbWVyY2lhbCBidXNpbmVzcwojIFVTRSAtIDIzICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gbWVkaWNhbCBpbmZvCiMgVVNFIC0gMjQgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gcXVlc3Rpb25uYWlyZXMsIG5vIGNvbW1lcmNpYWwgYnVzaW5lc3MKIyBVU0UgLSAyNSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gcXVlc3Rpb25uYWlyZXMsIG5vIGhlYWx0aCB0cmVhdG1lbnQsIG5vIG1lZGljYWwgaW5mbwojIFVTRSAtIDI2ICAgICAgICAgICAgICAgICAgeWVzLCBubyBxdWVzdGlvbm5haXJlcywgaGVhbHRoIHRyZWF0bWVudCB3aGVuIHBvc3NpYmxlLCBubyBjb21tZXJjaWFsIGJ1c2luZXNzCiMgVVNFIC0gMjcgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ZXMsICBubyBoZWFsdGggdHJlYXRtZW50LCBubyBtZWRpY2FsIGluZm8KIyBOT1QgVVNFIC0gMjggICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vLCBkb2Vzbid0IHdhbnQgdG8KIyBOT1QgVVNFIC0gMjkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBubywgdW5hYmxlIHRvIHNpZ24KIyBOT1QgVVNFIC0gMzAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBubywgbm8gcmVhY3Rpb24KIyBOT1QgVVNFIC0gMzEgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm8sIGxvc3QKIyBOT1QgVVNFIC0gMzIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm8sIHRvbyBvbGQKIyBOT1QgVVNFIC0gMzQgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllcywgbm8gbWVkaWNhbCBpbmZvLCBoZWFsdGggdHJlYXRtZW50IHdoZW4gcG9zc2libGUKIyBOT1QgVVNFIC0gMzUgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBubyAobmV2ZXIgYXNrZWQgZm9yIElDIGJlY2F1c2UgdGhlcmUgd2FzIG5vIHRpc3N1ZSkKIyBVU0UgLSAzNiAgICAgICAgICAgICAgICAgICAgeWVzLCBubyBtZWRpY2FsIGluZm8sIG5vIGNvbW1lcmNpYWwgYnVzaW5lc3MsIGhlYWx0aCB0cmVhdG1lbnQgd2hlbiBwb3NzaWJsZQojIE5PVCBVU0UgLSAzNyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vLCBlbmRwb2ludAojIFVTRSAtIDM4ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2lsIG5pZXRzIGludnVsbGVuLCB3ZWwgYWxsZXMgZ2VicnVpa2VuCiMgVVNFIC0gMzkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2Vjb25kIGluZm9ybWVkIGNvbmNlbnRzOiB5ZXMsIG5vIGNvbW1lcmNpYWwgYnVzaW5lc3MKIyBOT1QgVVNFIC0gNDAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBub29pdCBnZWluY2x1ZGVlcmQKCmNhdCgiLSBzYW5pdHkgY2hlY2tpbmcgUFJJT1IgdG8gc2VsZWN0aW9uIikKbGlicmFyeShkYXRhLnRhYmxlKQphZS5nZW5kZXIgPC0gaWZlbHNlKEFFREIkR2VuZGVyID09IDAsICJGZW1hbGUiLCAiTWFsZSIpCmFlLmhvc3BpdGFsIDwtIGlmZWxzZShBRURCJEhvc3BpdGFsID09IDEsICJBbnRvbml1cyIsICJVTUNVIikKdGFibGUoYWUuZ2VuZGVyLCBhZS5ob3NwaXRhbCwgZG5uID0gYygiU2V4IiwgIkhvc3BpdGFsIikpCmFlLmdlbmRlciA8LSBpZmVsc2UoQUVEQiRHZW5kZXIgPT0gMCwgIkZlbWFsZSIsICJNYWxlIikKdGFibGUoYWUuZ2VuZGVyLCBBRURCJEFydGVyeV9zdW1tYXJ5LCBkbm4gPSBjKCJTZXgiLCAiQXJ0ZXJ5IikpCnRhYmxlKGFlLmdlbmRlciwgQUVEQiRpbmZvcm1lZGNvbnNlbnQsIGRubiA9IGMoIlNleCIsICJJQyIpKQoKcm0oYWUuZ2VuZGVyLCBhZS5ob3NwaXRhbCkKCiMgSSBjaGFuZ2UgbnVtZXJpYyBhbmQgZmFjdG9ycyBtYW51YWxseSBiZWNhdXNlLCB3ZWxsLCBJIHdvdWxkbid0IGtub3cgaG93IHRvIGZpeCBpdCBvdGhlcndpc2UKIyB0byBoYXZlIHRoaXMgJ3RpYmJsZScgd29yayB3aXRoICd0YWJsZW9uZScuLi4gOi0pCgpBRURCJEFnZSA8LSBhcy5udW1lcmljKEFFREIkQWdlKQpBRURCJGRpYXN0b2xpIDwtIGFzLm51bWVyaWMoQUVEQiRkaWFzdG9saSkKQUVEQiRzeXN0b2xpYyA8LSBhcy5udW1lcmljKEFFREIkc3lzdG9saWMpCkFFREIkQWdlIDwtIGFzLm51bWVyaWMoQUVEQiRBZ2UpCkFFREIkR0ZSX01EUkQgPC0gYXMubnVtZXJpYyhBRURCJEdGUl9NRFJEKQpBRURCJEJNSSA8LSBhcy5udW1lcmljKEFFREIkQk1JKQpBRURCJGVDaWdhcmV0dGVzIDwtIGFzLm51bWVyaWMoQUVEQiRlQ2lnYXJldHRlcykKQUVEQiRlUGFja1llYXJzU21va2luZyA8LSBhcy5udW1lcmljKEFFREIkZVBhY2tZZWFyc1Ntb2tpbmcpCkFFREIkRVBfY29tcG9zaXRlX3RpbWUgPC0gYXMubnVtZXJpYyhBRURCJEVQX2NvbXBvc2l0ZV90aW1lKQpBRURCJG1hY21lYW4wIDwtIGFzLm51bWVyaWMoQUVEQiRtYWNtZWFuMCkKQUVEQiRzbWNtZWFuMCA8LSBhcy5udW1lcmljKEFFREIkc21jbWVhbjApCkFFREIkbmV1dHJvcGhpbHMgPC0gYXMubnVtZXJpYyhBRURCJG5ldXRyb3BoaWxzKQpBRURCJE1hc3RfY2VsbHNfcGxhcXVlIDwtIGFzLm51bWVyaWMoQUVEQiRNYXN0X2NlbGxzX3BsYXF1ZSkKQUVEQiR2ZXNzZWxfZGVuc2l0eV9hdmVyYWdlZCA8LSBhcy5udW1lcmljKEFFREIkdmVzc2VsX2RlbnNpdHlfYXZlcmFnZWQpCkFFREIkSUw2IDwtIGFzLm51bWVyaWMoQUVEQiRJTDYpCkFFREIkSUw2X3BnX3VnXzIwMTUgPC0gYXMubnVtZXJpYyhBRURCJElMNl9wZ191Z18yMDE1KQpBRURCJElMNlJfcGdfdWdfMjAxNSA8LSBhcy5udW1lcmljKEFFREIkSUw2Ul9wZ191Z18yMDE1KQpBRURCJE1DUDEgPC0gYXMubnVtZXJpYyhBRURCJE1DUDEpCkFFREIkTUNQMV9wZ191Z18yMDE1IDwtIGFzLm51bWVyaWMoQUVEQiRNQ1AxX3BnX3VnXzIwMTUpCkFFREIkaHNDUlBfcGxhc21hIDwtIGFzLm51bWVyaWMoQUVEQiRoc0NSUF9wbGFzbWEpCgpyZXF1aXJlKGxhYmVsbGVkKQpBRURCJEdlbmRlciA8LSB0b19mYWN0b3IoQUVEQiRHZW5kZXIpCkFFREIkSG9zcGl0YWwgPC0gdG9fZmFjdG9yKEFFREIkSG9zcGl0YWwpCkFFREIkS0RPUUkgPC0gdG9fZmFjdG9yKEFFREIkS0RPUUkpCkFFREIkQk1JX1dITyA8LSB0b19mYWN0b3IoQUVEQiRCTUlfV0hPKQpBRURCJERpYWJldGVzU3RhdHVzIDwtIHRvX2ZhY3RvcihBRURCJERpYWJldGVzU3RhdHVzKQpBRURCJFNtb2tlckN1cnJlbnQgPC0gdG9fZmFjdG9yKEFFREIkU21va2VyQ3VycmVudCkKQUVEQiRIeXBlcnRlbnNpb24uY29tcG9zaXRlIDwtIHRvX2ZhY3RvcihBRURCJEh5cGVydGVuc2lvbi5jb21wb3NpdGUpCkFFREIkSHlwZXJ0ZW5zaW9uLmRydWdzIDwtIHRvX2ZhY3RvcihBRURCJEh5cGVydGVuc2lvbi5kcnVncykKQUVEQiRNZWQuYW50aWNvYWd1bGFudHMgPC0gdG9fZmFjdG9yKEFFREIkTWVkLmFudGljb2FndWxhbnRzKQpBRURCJE1lZC5hbGwuYW50aXBsYXRlbGV0IDwtIHRvX2ZhY3RvcihBRURCJE1lZC5hbGwuYW50aXBsYXRlbGV0KQpBRURCJE1lZC5TdGF0aW4uTExEIDwtIHRvX2ZhY3RvcihBRURCJE1lZC5TdGF0aW4uTExEKQpBRURCJFN0cm9rZV9EeCA8LSB0b19mYWN0b3IoQUVEQiRTdHJva2VfRHgpCkFFREIkc3ltcHQgPC0gdG9fZmFjdG9yKEFFREIkc3ltcHQpCkFFREIkU3ltcHRvbXMuM2cgPC0gdG9fZmFjdG9yKEFFREIkU3ltcHRvbXMuM2cpCkFFREIkU3ltcHRvbXMuNGcgPC0gdG9fZmFjdG9yKEFFREIkU3ltcHRvbXMuNGcpCkFFREIkU3ltcHRvbXMuNUcgPC0gdG9fZmFjdG9yKEFFREIkU3ltcHRvbXMuNUcpCkFFREIkQXN5bXB0U3ltcHQgPC0gdG9fZmFjdG9yKEFFREIkQXN5bXB0U3ltcHQpCgpBRURCJHJlc3Rlbm9zIDwtIHRvX2ZhY3RvcihBRURCJHJlc3Rlbm9zKQpBRURCJHN0ZW5vc2UgPC0gdG9fZmFjdG9yKEFFREIkc3Rlbm9zZSkKQUVEQiRFUF9jb21wb3NpdGUgPC0gdG9fZmFjdG9yKEFFREIkRVBfY29tcG9zaXRlKQpBRURCJE1hY3JvcGhhZ2VzLmJpbiA8LSB0b19mYWN0b3IoQUVEQiRNYWNyb3BoYWdlcy5iaW4pCkFFREIkU01DLmJpbiA8LSB0b19mYWN0b3IoQUVEQiRTTUMuYmluKQpBRURCJElQSC5iaW4gPC0gdG9fZmFjdG9yKEFFREIkSVBILmJpbikKQUVEQiRDYWxjLmJpbiA8LSB0b19mYWN0b3IoQUVEQiRDYWxjLmJpbikKQUVEQiRDb2xsYWdlbi5iaW4gPC0gdG9fZmFjdG9yKEFFREIkQ29sbGFnZW4uYmluKQpBRURCJEZhdC5iaW5fMTAgPC0gdG9fZmFjdG9yKEFFREIkRmF0LmJpbl8xMCkKQUVEQiRGYXQuYmluXzQwIDwtIHRvX2ZhY3RvcihBRURCJEZhdC5iaW5fNDApCkFFREIkT3ZlcmFsbFBsYXF1ZVBoZW5vdHlwZSA8LSB0b19mYWN0b3IoQUVEQiRPdmVyYWxsUGxhcXVlUGhlbm90eXBlKQpBRURCJGluZm9ybWVkY29uc2VudCA8LSB0b19mYWN0b3IoQUVEQiRpbmZvcm1lZGNvbnNlbnQpCkFFREIkQXJ0ZXJ5X3N1bW1hcnkgPC0gdG9fZmFjdG9yKEFFREIkQXJ0ZXJ5X3N1bW1hcnkpCgpBRURCLkNFQSA8LSBzdWJzZXQoQUVEQiwKICAgICAgICAgICAgICAgICAgICAoQXJ0ZXJ5X3N1bW1hcnkgPT0gImNhcm90aWQgKGxlZnQgJiByaWdodCkiIHwgQXJ0ZXJ5X3N1bW1hcnkgPT0gIm90aGVyIGNhcm90aWQgYXJ0ZXJpZXMgKGNvbW1vbiwgZXh0ZXJuYWwpIikgJiAjIHdlIG9ubHkgd2FudCBjYXJvdGlkcwogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAibWlzc2luZyIgJiAjIHdlIGFyZSByZWFsbHkgc3RyaWN0IGluIHNlbGVjdGluZyBiYXNlZCBvbiAnaW5mb3JtZWQgY29uc2VudCchCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJubywgZGllZCIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAieWVzLCBubyB0aXNzdWUsIG5vIGNvbW1lcmljYWwgYnVzaW5lc3MiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gInllcywgbm8gdGlzc3VlLCBubyBxdWVzdGlvbm5haXJlcywgbm8gbWVkaWNhbCBpbmZvLCBubyBjb21tZXJjaWFsIGJ1c2luZXNzIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJ5ZXMsIG5vIHRpc3N1ZSwgbm8gcXVlc3Rpb25uYWlyZXMsIG5vIGhlYWx0aCB0cmVhdG1lbnQsIG5vIGNvbW1lcmljYWwgYnVzaW5lc3MiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gInllcywgbm8gdGlzc3VlLCBubyBxdWVzdGlvbm5haXJlcywgbm8gaGVhbHRoIHRyZWF0bWVudCwgbm8gbWVkaWNhbCBpbmZvLCBubyBjb21tZXJjaWFsIGJ1c2luZXNzIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJ5ZXMsIG5vIHRpc3N1ZSwgbm8gaGVhbHRoIHRyZWF0bWVudCIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAieWVzLCBubyB0aXNzdWUsIG5vIHF1ZXN0aW9ubmFpcmVzIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJ5ZXMsIG5vIHRpc3N1ZSwgaGVhbHRoIHRyZWF0bWVudCB3aGVuIHBvc3NpYmxlIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJ5ZXMsIG5vIHRpc3N1ZSIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAieWVzLCBubyB0aXNzdWUsIG5vIHF1ZXN0aW9ubmFpcmVzLCBubyBoZWFsdGggdHJlYXRtZW50LCBubyBtZWRpY2FsIGluZm8iICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gInllcywgbm8gdGlzc3VlLCBubyBxdWVzdGlvbm5haXJlcywgbm8gaGVhbHRoIHRyZWF0bWVudCwgbm8gY29tbWVyY2lhbCBidXNpbmVzcyIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAibm8sIGRvZXNuJ3Qgd2FudCB0byIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAibm8sIHVuYWJsZSB0byBzaWduIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJubywgbm8gcmVhY3Rpb24iICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gIm5vLCBsb3N0IiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJubywgdG9vIG9sZCIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAieWVzLCBubyBtZWRpY2FsIGluZm8sIGhlYWx0aCB0cmVhdG1lbnQgd2hlbiBwb3NzaWJsZSIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAibm8gKG5ldmVyIGFza2VkIGZvciBJQyBiZWNhdXNlIHRoZXJlIHdhcyBubyB0aXNzdWUpIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJubywgZW5kcG9pbnQiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gIm5vb2l0IGdlaW5jbHVkZWVyZCIpCkFFREIuQ0VBWzE6MTAsIDE6MTBdCmRpbShBRURCLkNFQSkKCmNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxuIikKY2F0KCJDUkVBVEUgQkFTRUxJTkUgVEFCTEVcbiIpCgojIEJhc2VsaW5lIHRhYmxlIHZhcmlhYmxlcwpiYXNldGFibGVfdmFycyA9IGMoIkhvc3BpdGFsIiwgCiAgICAgICAgICAgICAgICAgICAiQWdlIiwgIkdlbmRlciIsIAogICAgICAgICAgICAgICAgICAgIlRDX2ZpbmFsIiwgIkxETF9maW5hbCIsICJIRExfZmluYWwiLCAiVEdfZmluYWwiLCAKICAgICAgICAgICAgICAgICAgICJoc0NSUF9wbGFzbWEiLAogICAgICAgICAgICAgICAgICAgInN5c3RvbGljIiwgImRpYXN0b2xpIiwgIkdGUl9NRFJEIiwgIkJNSSIsIAogICAgICAgICAgICAgICAgICAgIktET1FJIiwgIkJNSV9XSE8iLAogICAgICAgICAgICAgICAgICAgIlNtb2tlckN1cnJlbnQiLCAiZUNpZ2FyZXR0ZXMiLCAiZVBhY2tZZWFyc1Ntb2tpbmciLAogICAgICAgICAgICAgICAgICAgIkRpYWJldGVzU3RhdHVzIiwgIkh5cGVydGVuc2lvbi5jb21wb3NpdGUiLCAKICAgICAgICAgICAgICAgICAgICJIeXBlcnRlbnNpb24uZHJ1Z3MiLCAiTWVkLmFudGljb2FndWxhbnRzIiwgIk1lZC5hbGwuYW50aXBsYXRlbGV0IiwgIk1lZC5TdGF0aW4uTExEIiwgCiAgICAgICAgICAgICAgICAgICAiU3Ryb2tlX0R4IiwgInN5bXB0IiwgIlN5bXB0b21zLjVHIiwgIkFzeW1wdFN5bXB0IiwKICAgICAgICAgICAgICAgICAgICJyZXN0ZW5vcyIsICJzdGVub3NlIiwKICAgICAgICAgICAgICAgICAgICJFUF9jb21wb3NpdGUiLCAiRVBfY29tcG9zaXRlX3RpbWUiLAogICAgICAgICAgICAgICAgICAgIm1hY21lYW4wIiwgInNtY21lYW4wIiwgIk1hY3JvcGhhZ2VzLmJpbiIsICJTTUMuYmluIiwKICAgICAgICAgICAgICAgICAgICJuZXV0cm9waGlscyIsICJNYXN0X2NlbGxzX3BsYXF1ZSIsCiAgICAgICAgICAgICAgICAgICAiSVBILmJpbiIsICJ2ZXNzZWxfZGVuc2l0eV9hdmVyYWdlZCIsCiAgICAgICAgICAgICAgICAgICAiQ2FsYy5iaW4iLCAiQ29sbGFnZW4uYmluIiwgCiAgICAgICAgICAgICAgICAgICAiRmF0LmJpbl8xMCIsICJGYXQuYmluXzQwIiwgIk92ZXJhbGxQbGFxdWVQaGVub3R5cGUiLAogICAgICAgICAgICAgICAgICAgIklMNl9wZ191Z18yMDE1IiwgIk1DUDFfcGdfdWdfMjAxNSIpCgpiYXNldGFibGVfYmluID0gYygiR2VuZGVyIiwgCiAgICAgICAgICAgICAgICAgICJLRE9RSSIsICJCTUlfV0hPIiwKICAgICAgICAgICAgICAgICAgIlNtb2tlckN1cnJlbnQiLCAKICAgICAgICAgICAgICAgICAgIkRpYWJldGVzU3RhdHVzIiwgIkh5cGVydGVuc2lvbi5jb21wb3NpdGUiLCAKICAgICAgICAgICAgICAgICAgIkh5cGVydGVuc2lvbi5kcnVncyIsICJNZWQuYW50aWNvYWd1bGFudHMiLCAiTWVkLmFsbC5hbnRpcGxhdGVsZXQiLCAiTWVkLlN0YXRpbi5MTEQiLCAKICAgICAgICAgICAgICAgICAgIlN0cm9rZV9EeCIsICJzeW1wdCIsICJTeW1wdG9tcy41RyIsICJBc3ltcHRTeW1wdCIsCiAgICAgICAgICAgICAgICAgICJyZXN0ZW5vcyIsICJzdGVub3NlIiwKICAgICAgICAgICAgICAgICAgIkVQX2NvbXBvc2l0ZSIsICJNYWNyb3BoYWdlcy5iaW4iLCAiU01DLmJpbiIsCiAgICAgICAgICAgICAgICAgICJJUEguYmluIiwgCiAgICAgICAgICAgICAgICAgICJDYWxjLmJpbiIsICJDb2xsYWdlbi5iaW4iLCAKICAgICAgICAgICAgICAgICAgIkZhdC5iaW5fMTAiLCAiRmF0LmJpbl80MCIsICJPdmVyYWxsUGxhcXVlUGhlbm90eXBlIikKIyBiYXNldGFibGVfYmluCgpiYXNldGFibGVfY29uID0gYmFzZXRhYmxlX3ZhcnNbIWJhc2V0YWJsZV92YXJzICVpbiUgYmFzZXRhYmxlX2Jpbl0KIyBiYXNldGFibGVfY29uCmBgYAoKU2hvd2luZyB0aGUgYmFzZWxpbmUgdGFibGUgb2YgdGhlIHdob2xlIEF0aGVyby1FeHByZXNzIEJpb2JhbmsuCmBgYHtyIEJhc2VsaW5lIEFFREI6IFZpc3VhbGl6ZX0KIyBDcmVhdGUgYmFzZWxpbmUgdGFibGVzCiMgaHR0cDovL3JzdHVkaW8tcHVicy1zdGF0aWMuczMuYW1hem9uYXdzLmNvbS8xMzMyMV9kYTMxNDYzM2RiOTI0ZGM3ODk4NmE4NTA4MTNhNTBkNS5odG1sCkFFREIuQ0VBLnRhYmxlT25lID0gcHJpbnQoQ3JlYXRlVGFibGVPbmUodmFycyA9IGJhc2V0YWJsZV92YXJzLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIGZhY3RvclZhcnMgPSBiYXNldGFibGVfYmluLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgc3RyYXRhID0gIlN5bXB0b21zLjRnIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gQUVEQi5DRUEsIGluY2x1ZGVOQSA9IFRSVUUpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICBub25ub3JtYWwgPSBjKCksIG1pc3NpbmcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICAgIHF1b3RlID0gRkFMU0UsIG5vU3BhY2VzID0gRkFMU0UsIHNob3dBbGxMZXZlbHMgPSBUUlVFLCBleHBsYWluID0gVFJVRSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgZm9ybWF0ID0gInBmIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgY29udERpZ2l0cyA9IDMpWywxOjJdCgpBRURCLkNFQS5zdWJzZXQgPC0gc3Vic2V0KEFFREIuQ0VBLCAhaXMubmEoSUw2X3BnX3VnXzIwMTUpIHwgIWlzLm5hKE1DUDFfcGdfdWdfMjAxNSkpCgpBRURCLkNFQS5zdWJzZXQudGFibGVPbmUgPSBwcmludChDcmVhdGVUYWJsZU9uZSh2YXJzID0gYmFzZXRhYmxlX3ZhcnMsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgZmFjdG9yVmFycyA9IGJhc2V0YWJsZV9iaW4sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBzdHJhdGEgPSAiRGlhYmV0ZXNTdGF0dXMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRhdGEgPSBBRURCLkNFQS5zdWJzZXQsIGluY2x1ZGVOQSA9IFRSVUUpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICBub25ub3JtYWwgPSBjKCksIG1pc3NpbmcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICAgIHF1b3RlID0gRkFMU0UsIG5vU3BhY2VzID0gRkFMU0UsIHNob3dBbGxMZXZlbHMgPSBUUlVFLCBleHBsYWluID0gVFJVRSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgZm9ybWF0ID0gInBmIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgY29udERpZ2l0cyA9IDMpWywxOjJdCgpBRURCLkNFQS5zdWJzZXQuc2VydW0gPC0gc3Vic2V0KEFFREIuQ0VBLCAhaXMubmEoSUw2KSB8ICFpcy5uYShNQ1AxKSkKCkFFREIuQ0VBLnN1YnNldC5zZXJ1bS50YWJsZU9uZSA9IHByaW50KENyZWF0ZVRhYmxlT25lKHZhcnMgPSBiYXNldGFibGVfdmFycywgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBmYWN0b3JWYXJzID0gYmFzZXRhYmxlX2JpbiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIHN0cmF0YSA9ICJEaWFiZXRlc1N0YXR1cyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGF0YSA9IEFFREIuQ0VBLnN1YnNldC5zZXJ1bSwgaW5jbHVkZU5BID0gVFJVRSksIAogICAgICAgICAgICAgICAgICAgICAgICAgIG5vbm5vcm1hbCA9IGMoKSwgbWlzc2luZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgcXVvdGUgPSBGQUxTRSwgbm9TcGFjZXMgPSBGQUxTRSwgc2hvd0FsbExldmVscyA9IFRSVUUsIGV4cGxhaW4gPSBUUlVFLCAKICAgICAgICAgICAgICAgICAgICAgICAgICBmb3JtYXQgPSAicGYiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICBjb250RGlnaXRzID0gMylbLDE6Ml0KYGBgCgpXcml0aW5nIHRoZSBiYXNlbGluZSB0YWJsZSB0byBFeGNlbCBmb3JtYXQuIApgYGB7ciBCYXNlbGluZSBBRURCOiB3cml0ZX0KIyBXcml0ZSBiYXNldGFibGUKcmVxdWlyZShvcGVueGxzeCkKCndyaXRlLnhsc3goZmlsZSA9IHBhc3RlMChCQVNFTElORV9sb2MsICIvIixUb2RheSwiLiIsUFJPSkVDVE5BTUUsIi5BRS5CYXNlbGluZVRhYmxlLndob2xlQ0VBLnhsc3giKSwKICAgICAgICAgICBBRURCLkNFQS50YWJsZU9uZSwgCiAgICAgICAgICAgcm93Lm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgY29sLm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgc2hlZXROYW1lID0gIndob2xlQUVEQl9CYXNlbGluZSIpCgp3cml0ZS54bHN4KGZpbGUgPSBwYXN0ZTAoQkFTRUxJTkVfbG9jLCAiLyIsVG9kYXksIi4iLFBST0pFQ1ROQU1FLCIuQUUuQmFzZWxpbmVUYWJsZS5zdWJzZXRDRUEueGxzeCIpLAogICAgICAgICAgIEFFREIuQ0VBLnN1YnNldC50YWJsZU9uZSwgCiAgICAgICAgICAgcm93Lm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgY29sLm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgc2hlZXROYW1lID0gInN1YnNldEFFREJfQmFzZWxpbmUiKQoKd3JpdGUueGxzeChmaWxlID0gcGFzdGUwKEJBU0VMSU5FX2xvYywgIi8iLFRvZGF5LCIuIixQUk9KRUNUTkFNRSwiLkFFLkJhc2VsaW5lVGFibGUuc3Vic2V0Q0VBc2VydW0ueGxzeCIpLAogICAgICAgICAgIEFFREIuQ0VBLnN1YnNldC5zZXJ1bS50YWJsZU9uZSwgCiAgICAgICAgICAgcm93Lm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgY29sLm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgc2hlZXROYW1lID0gInN1YnNldEFFREJfQmFzZWxpbmVfc2VydW0iKQpgYGAKCiMgQXRoZXJvLUV4cHJlc3MgR2Vub21pY3MgU3R1ZHkgKEFFR1MpCgpXZSB3aWxsIGFkZCB0aGUgc2FtcGxlcyB3aGljaCB3ZXJlIGdlbm90eXBlZCBpbiB0aGUgQXRoZXJvLUV4cHJlc3MgQmlvYmFuayBTdHVkeSwgX2kuZS5fIEF0aGVyby1FeHByZXNzIEdlbm9taWNzIFN0dWR5IDEgKEFFR1MxLCBBZmZ5bWV0cml4IFNOUCA1LjApLCBBRUdTMiAoQWZmeW1ldHJpeCBBeGlvbSBDRVUpLCBhbmQgQUVHUzMgKElsbHVtaW5hIEdTQSkuCgojIyBMb2FkaW5nIEFFR1MgZGF0YSAKCmBgYHtyIGNyZWF0ZSBBRUdTfQpBRUdTMV8yXzMgPC0gZnJlYWQocGFzdGUwKFJPT1RfbG9jLCIvUExJTksvX0FFX09yaWdpbmFscy9BRUdTX0NPTUJJTkVEX1FDMjAxOC9hZWdzMV8yXzNfY29tYm9fcG9zdHFjbWljaGltcF9uMjQ5My5mb3JSLnR4dCIpLAogICAgICAgICAgICAgICAgICAgdmVyYm9zZSA9IFRSVUUsIHNob3dQcm9ncmVzcyA9IFRSVUUpCkFFR1MxXzJfMyRTdHVkeV9OdW1iZXIgPC0gYXMubnVtZXJpYyhBRUdTMV8yXzMkU3R1ZHlfTnVtYmVyKQpBRUdTMV8yXzMkQWdlIDwtIE5VTEwKZGltKEFFR1MxXzJfMykKaGVhZChBRUdTMV8yXzMpCgpBRUdTX3JhdyA8LSBtZXJnZShBRUdTMV8yXzMsIEFFREIsIGJ5LnggPSAiU3R1ZHlfTnVtYmVyIiwgYnkueSA9ICJTVFVEWV9OVU1CRVIiLCBzb3J0ID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgIGFsbC54ID0gVFJVRSkKCmRpbShBRUdTX3JhdykKd2FybmluZ3MoKSAKCmBgYAoKCkhlcmUgd2Ugd2lsbCBzdWJzZXQgb25seSB0aG9zZSBnZW5vdHlwZWQgc2FtcGxlcyB0aGF0IHBhc3NlZCBnZW5vdHlwaW5nIHF1YWxpdHkgY29udHJvbCwgYXJlIHVucmVsYXRlZCwgYW5kIGhhdmUgaW5mb3JtZWQgY29uc2VudC4KYGBge3IgU3BlY2lmaWNTZWxlY3Rpb259CkFFR1NfcmF3JEFydGVyeV9zdW1tYXJ5IDwtIHRvX2ZhY3RvcihBRUdTX3JhdyRBcnRlcnlfc3VtbWFyeSkKQUVHU19yYXckaW5mb3JtZWRjb25zZW50IDwtIHRvX2ZhY3RvcihBRUdTX3JhdyRpbmZvcm1lZGNvbnNlbnQpCnRhYmxlKEFFR1NfcmF3JEFydGVyeV9zdW1tYXJ5LCBBRUdTX3JhdyRRQzIwMThfRklMVEVSKQp0YWJsZShBRUdTX3JhdyRpbmZvcm1lZGNvbnNlbnQsIEFFR1NfcmF3JFFDMjAxOF9GSUxURVIpCkFFR1NzZWxlY3QgPC0gc3Vic2V0KEFFR1NfcmF3LCAKICAgICAgICAgICAgICAgICAgICAgUUMyMDE4X0ZJTFRFUiAhPSAiaXNzdWUiICYgUUMyMDE4X0ZJTFRFUiAhPSAiZmFtaWx5X2Rpc2NhcmQiICYKICAgICAgICAgICAgICAgICAgICAgICAoQXJ0ZXJ5X3N1bW1hcnkgPT0gImNhcm90aWQgKGxlZnQgJiByaWdodCkiIHwgQXJ0ZXJ5X3N1bW1hcnkgPT0gIm90aGVyIGNhcm90aWQgYXJ0ZXJpZXMgKGNvbW1vbiwgZXh0ZXJuYWwpIikgJiAKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gIm1pc3NpbmciICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gIm5vLCBkaWVkIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJ5ZXMsIG5vIHRpc3N1ZSwgbm8gY29tbWVyaWNhbCBidXNpbmVzcyIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAieWVzLCBubyB0aXNzdWUsIG5vIHF1ZXN0aW9ubmFpcmVzLCBubyBtZWRpY2FsIGluZm8sIG5vIGNvbW1lcmNpYWwgYnVzaW5lc3MiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gInllcywgbm8gdGlzc3VlLCBubyBxdWVzdGlvbm5haXJlcywgbm8gaGVhbHRoIHRyZWF0bWVudCwgbm8gY29tbWVyaWNhbCBidXNpbmVzcyIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAieWVzLCBubyB0aXNzdWUsIG5vIHF1ZXN0aW9ubmFpcmVzLCBubyBoZWFsdGggdHJlYXRtZW50LCBubyBtZWRpY2FsIGluZm8sIG5vIGNvbW1lcmNpYWwgYnVzaW5lc3MiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gInllcywgbm8gdGlzc3VlLCBubyBoZWFsdGggdHJlYXRtZW50IiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJ5ZXMsIG5vIHRpc3N1ZSwgbm8gcXVlc3Rpb25uYWlyZXMiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gInllcywgbm8gdGlzc3VlLCBoZWFsdGggdHJlYXRtZW50IHdoZW4gcG9zc2libGUiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gInllcywgbm8gdGlzc3VlIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJ5ZXMsIG5vIHRpc3N1ZSwgbm8gcXVlc3Rpb25uYWlyZXMsIG5vIGhlYWx0aCB0cmVhdG1lbnQsIG5vIG1lZGljYWwgaW5mbyIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAieWVzLCBubyB0aXNzdWUsIG5vIHF1ZXN0aW9ubmFpcmVzLCBubyBoZWFsdGggdHJlYXRtZW50LCBubyBjb21tZXJjaWFsIGJ1c2luZXNzIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJubywgZG9lc24ndCB3YW50IHRvIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJubywgdW5hYmxlIHRvIHNpZ24iICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gIm5vLCBubyByZWFjdGlvbiIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAibm8sIGxvc3QiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gIm5vLCB0b28gb2xkIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJ5ZXMsIG5vIG1lZGljYWwgaW5mbywgaGVhbHRoIHRyZWF0bWVudCB3aGVuIHBvc3NpYmxlIiAmCiAgICAgICAgICAgICAgICAgICAgICAgaW5mb3JtZWRjb25zZW50ICE9ICJubyAobmV2ZXIgYXNrZWQgZm9yIElDIGJlY2F1c2UgdGhlcmUgd2FzIG5vIHRpc3N1ZSkiICYKICAgICAgICAgICAgICAgICAgICAgICBpbmZvcm1lZGNvbnNlbnQgIT0gIm5vLCBlbmRwb2ludCIgJgogICAgICAgICAgICAgICAgICAgICAgIGluZm9ybWVkY29uc2VudCAhPSAibm9vaXQgZ2VpbmNsdWRlZXJkIikKZGltKEFFR1NzZWxlY3QpCgp0YWJsZShBRUdTc2VsZWN0JEFydGVyeV9zdW1tYXJ5LCBBRUdTc2VsZWN0JFFDMjAxOF9GSUxURVIpCnRhYmxlKEFFR1NzZWxlY3QkQXJ0ZXJ5X3N1bW1hcnksIEFFR1NzZWxlY3QkQ0hJUCkKdGFibGUoQUVHU3NlbGVjdCRRQzIwMThfRklMVEVSLCBBRUdTc2VsZWN0JENISVApCnRhYmxlKEFFR1NzZWxlY3QkUUMyMDE4X0ZJTFRFUiwgQUVHU3NlbGVjdCRTQU1QTEVfVFlQRSkKCkFFREIudGVtcCA8LSBzdWJzZXQoQUVHU3NlbGVjdCwgIHNlbGVjdCA9IGMoIlN0dWR5X051bWJlciIsICJVUElEIiwgIkFnZSIsICJHZW5kZXIiLCAiSG9zcGl0YWwiLCAiQXJ0ZXJ5X3N1bW1hcnkiLCAiUUMyMDE4X0ZJTFRFUiIsICJDSElQIiwgIlNBTVBMRV9UWVBFIikpCnJlcXVpcmUobGFiZWxsZWQpCkFFREIudGVtcCRHZW5kZXIgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRHZW5kZXIpCkFFREIudGVtcCRIb3NwaXRhbCA8LSB0b19mYWN0b3IoQUVEQi50ZW1wJEhvc3BpdGFsKQpBRURCLnRlbXAkQXJ0ZXJ5X3N1bW1hcnkgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRBcnRlcnlfc3VtbWFyeSkKQUVEQi50ZW1wJFFDMjAxOF9GSUxURVIgPC0gdG9fZmFjdG9yKEFFREIudGVtcCRRQzIwMThfRklMVEVSKQpBRURCLnRlbXAkQ0hJUCA8LSB0b19mYWN0b3IoQUVEQi50ZW1wJENISVApCkFFREIudGVtcCRTQU1QTEVfVFlQRSA8LSB0b19mYWN0b3IoQUVEQi50ZW1wJFNBTVBMRV9UWVBFKQoKRFQ6OmRhdGF0YWJsZShBRURCLnRlbXBbMToxMCxdLCBjYXB0aW9uID0gIkV4Y2VycHQgb2YgdGhlIHdob2xlIEFFREIuIiwgcm93bmFtZXMgPSBGQUxTRSkKCnJtKEFFREIudGVtcCkKCmBgYAoKIyMgQmFzZWxpbmUgY2hhcmFjdGVyaXN0aWNzClNob3dpbmcgdGhlIGJhc2VsaW5lIHRhYmxlIG9mIHRoZSB3aG9sZSBBdGhlcm8tRXhwcmVzcyBHZW5vbWljcyBTdHVkeS4KYGBge3IgQmFzZWxpbmUgU2FtcGxlU2VsZWN0OiBWaXN1YWxpemV9CiMgQ3JlYXRlIGJhc2VsaW5lIHRhYmxlcwojIGh0dHA6Ly9yc3R1ZGlvLXB1YnMtc3RhdGljLnMzLmFtYXpvbmF3cy5jb20vMTMzMjFfZGEzMTQ2MzNkYjkyNGRjNzg5ODZhODUwODEzYTUwZDUuaHRtbAoKYmFzZXRhYmxlX3ZhcnNfZ2VubyA9IGMoIkhvc3BpdGFsIiwgCiAgICAgICAgICAgICAgICAgICAiQWdlIiwgIkdlbmRlciIsIAogICAgICAgICAgICAgICAgICAgIlRDX2ZpbmFsIiwgIkxETF9maW5hbCIsICJIRExfZmluYWwiLCAiVEdfZmluYWwiLCAKICAgICAgICAgICAgICAgICAgICJoc0NSUF9wbGFzbWEiLAogICAgICAgICAgICAgICAgICAgInN5c3RvbGljIiwgImRpYXN0b2xpIiwgIkdGUl9NRFJEIiwgIkJNSSIsIAogICAgICAgICAgICAgICAgICAgIktET1FJIiwgIkJNSV9XSE8iLAogICAgICAgICAgICAgICAgICAgIlNtb2tlckN1cnJlbnQiLCAiZUNpZ2FyZXR0ZXMiLCAiZVBhY2tZZWFyc1Ntb2tpbmciLAogICAgICAgICAgICAgICAgICAgIkRpYWJldGVzU3RhdHVzIiwgIkh5cGVydGVuc2lvbi5jb21wb3NpdGUiLCAKICAgICAgICAgICAgICAgICAgICJIeXBlcnRlbnNpb24uZHJ1Z3MiLCAiTWVkLmFudGljb2FndWxhbnRzIiwgIk1lZC5hbGwuYW50aXBsYXRlbGV0IiwgIk1lZC5TdGF0aW4uTExEIiwgCiAgICAgICAgICAgICAgICAgICAiU3Ryb2tlX0R4IiwgInN5bXB0IiwgIlN5bXB0b21zLjVHIiwgIkFzeW1wdFN5bXB0IiwKICAgICAgICAgICAgICAgICAgICJyZXN0ZW5vcyIsICJzdGVub3NlIiwKICAgICAgICAgICAgICAgICAgICJFUF9jb21wb3NpdGUiLCAiRVBfY29tcG9zaXRlX3RpbWUiLAogICAgICAgICAgICAgICAgICAgIm1hY21lYW4wIiwgInNtY21lYW4wIiwgIk1hY3JvcGhhZ2VzLmJpbiIsICJTTUMuYmluIiwKICAgICAgICAgICAgICAgICAgICJuZXV0cm9waGlscyIsICJNYXN0X2NlbGxzX3BsYXF1ZSIsCiAgICAgICAgICAgICAgICAgICAiSVBILmJpbiIsICJ2ZXNzZWxfZGVuc2l0eV9hdmVyYWdlZCIsCiAgICAgICAgICAgICAgICAgICAiQ2FsYy5iaW4iLCAiQ29sbGFnZW4uYmluIiwgCiAgICAgICAgICAgICAgICAgICAiRmF0LmJpbl8xMCIsICJGYXQuYmluXzQwIiwgIk92ZXJhbGxQbGFxdWVQaGVub3R5cGUiLAogICAgICAgICAgICAgICAgICAgIklMNl9wZ191Z18yMDE1IiwgIk1DUDFfcGdfdWdfMjAxNSIsIAogICAgICAgICAgICAgICAgICAgIlFDMjAxOF9GSUxURVIiLCAiQ0hJUCIsICJTQU1QTEVfVFlQRSIpCgpiYXNldGFibGVfYmluX2dlbm8gPSBjKCJHZW5kZXIiLCAKICAgICAgICAgICAgICAgICAgIktET1FJIiwgIkJNSV9XSE8iLAogICAgICAgICAgICAgICAgICAiU21va2VyQ3VycmVudCIsIAogICAgICAgICAgICAgICAgICAiRGlhYmV0ZXNTdGF0dXMiLCAiSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSIsIAogICAgICAgICAgICAgICAgICAiSHlwZXJ0ZW5zaW9uLmRydWdzIiwgIk1lZC5hbnRpY29hZ3VsYW50cyIsICJNZWQuYWxsLmFudGlwbGF0ZWxldCIsICJNZWQuU3RhdGluLkxMRCIsIAogICAgICAgICAgICAgICAgICAiU3Ryb2tlX0R4IiwgInN5bXB0IiwgIlN5bXB0b21zLjVHIiwgIkFzeW1wdFN5bXB0IiwKICAgICAgICAgICAgICAgICAgInJlc3Rlbm9zIiwgInN0ZW5vc2UiLAogICAgICAgICAgICAgICAgICAiRVBfY29tcG9zaXRlIiwgIk1hY3JvcGhhZ2VzLmJpbiIsICJTTUMuYmluIiwKICAgICAgICAgICAgICAgICAgIklQSC5iaW4iLCAKICAgICAgICAgICAgICAgICAgIkNhbGMuYmluIiwgIkNvbGxhZ2VuLmJpbiIsIAogICAgICAgICAgICAgICAgICAiRmF0LmJpbl8xMCIsICJGYXQuYmluXzQwIiwgIk92ZXJhbGxQbGFxdWVQaGVub3R5cGUiLAogICAgICAgICAgICAgICAgICAiUUMyMDE4X0ZJTFRFUiIsICJDSElQIiwgIlNBTVBMRV9UWVBFIikKCmJhc2V0YWJsZV9jb25fZ2VubyA9IGJhc2V0YWJsZV92YXJzX2dlbm9bIWJhc2V0YWJsZV92YXJzX2dlbm8gJWluJSBiYXNldGFibGVfYmluX2dlbm9dCgpBRUdTc2VsZWN0LnRhYmxlT25lID0gcHJpbnQoQ3JlYXRlVGFibGVPbmUodmFycyA9IGJhc2V0YWJsZV92YXJzX2dlbm8sIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgZmFjdG9yVmFycyA9IGJhc2V0YWJsZV9iaW4sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBzdHJhdGEgPSAiRGlhYmV0ZXNTdGF0dXMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRhdGEgPSBBRUdTc2VsZWN0LCBpbmNsdWRlTkEgPSBUUlVFKSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgbm9ubm9ybWFsID0gYygpLCBtaXNzaW5nID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICBxdW90ZSA9IEZBTFNFLCBub1NwYWNlcyA9IEZBTFNFLCBzaG93QWxsTGV2ZWxzID0gVFJVRSwgZXhwbGFpbiA9IFRSVUUsIAogICAgICAgICAgICAgICAgICAgICAgICAgIGZvcm1hdCA9ICJwZiIsIAogICAgICAgICAgICAgICAgICAgICAgICAgIGNvbnREaWdpdHMgPSAzKVssMToyXQoKQUVHU3NlbGVjdC5zdWJzZXQgPC0gc3Vic2V0KEFFR1NzZWxlY3QsICFpcy5uYShJTDZSX3BnX3VnXzIwMTUpIHwgIWlzLm5hKE1DUDFfcGdfdWdfMjAxNSkpCgpBRUdTc2VsZWN0LnN1YnNldC50YWJsZU9uZSA9IHByaW50KENyZWF0ZVRhYmxlT25lKHZhcnMgPSBiYXNldGFibGVfdmFyc19nZW5vLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIGZhY3RvclZhcnMgPSBiYXNldGFibGVfYmluLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgc3RyYXRhID0gIkRpYWJldGVzU3RhdHVzIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gQUVHU3NlbGVjdC5zdWJzZXQsIGluY2x1ZGVOQSA9IFRSVUUpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICBub25ub3JtYWwgPSBjKCksIG1pc3NpbmcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICAgIHF1b3RlID0gRkFMU0UsIG5vU3BhY2VzID0gRkFMU0UsIHNob3dBbGxMZXZlbHMgPSBUUlVFLCBleHBsYWluID0gVFJVRSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgZm9ybWF0ID0gInBmIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgY29udERpZ2l0cyA9IDMpWywxOjJdCgpgYGAKCkxldCdzIGFsc28gc2F2ZSB0aGVzZSBiYXNlbGluZSB0YWJsZXMuCmBgYHtyIEJhc2VsaW5lIFNhbXBsZVNlbGVjdGlvbjogd3JpdGV9CiMgV3JpdGUgYmFzZXRhYmxlCnJlcXVpcmUob3Blbnhsc3gpCgp3cml0ZS54bHN4KGZpbGUgPSBwYXN0ZTAoQkFTRUxJTkVfbG9jLCAiLyIsVG9kYXksIi4iLFBST0pFQ1ROQU1FLCIuQUVHUy5CYXNlbGluZVRhYmxlLnhsc3giKSwgCiAgICAgICAgICAgQUVHU3NlbGVjdC50YWJsZU9uZSwgCiAgICAgICAgICAgcm93Lm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgY29sLm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgc2hlZXROYW1lID0gIkFFR1NfQmFzZWxpbmUiKQoKd3JpdGUueGxzeChmaWxlID0gcGFzdGUwKEJBU0VMSU5FX2xvYywgIi8iLFRvZGF5LCIuIixQUk9KRUNUTkFNRSwiLkFFR1MuQmFzZWxpbmVUYWJsZS5zdWJzZXQueGxzeCIpLCAKICAgICAgICAgICBBRUdTc2VsZWN0LnN1YnNldC50YWJsZU9uZSwgCiAgICAgICAgICAgcm93Lm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgY29sLm5hbWVzID0gVFJVRSwgCiAgICAgICAgICAgc2hlZXROYW1lID0gIkFFR1NfQmFzZWxpbmVfc3Vic2V0IikKCmBgYAoKCiMjIERhdGEgZXhwbG9yYXRpb24KCkhlcmUgd2UgaW5zcGVjdCB0aGUgZGF0YSBhbmQgd2hlbiBuZWNlc3NhcnkgdHJhbnNmb3JtIHF1YW50aXRhdGl2ZSBtZWFzdXJlcy4gV2Ugd2lsbCBpbnNwZWN0IHRoZSByYXcsIG5hdHVyYWwgbG9nIHRyYW5zZm9ybWVkICsgdGhlIHNtYWxsZXN0IG1lYXN1cmVtZW50LCBhbmQgaW52ZXJzZS1ub3JtYWwgdHJhbnNmb3JtYXRpb24uIAoKYGBge3IgRGF0YUV4cGxvcmF0aW9uOiBJTDYgcGxhcXVlfQoKc3VtbWFyeShBRURCLkNFQSRJTDZfcGdfdWdfMjAxNSkKCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJJTDZfcGdfdWdfMjAxNSIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lYW4iLCAKICAgICAgICAgICAgICAgICAgICAjIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgIyBhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJJTDYgcGxhcXVlIGxldmVscyIsCiAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJwZy91ZyIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCgptaW5fSUw2cGdfdWdfMjAxNSA8LSBtaW4oQUVEQi5DRUEkSUw2X3BnX3VnXzIwMTUsIG5hLnJtID0gVFJVRSkKbWluX0lMNnBnX3VnXzIwMTUKCkFFREIuQ0VBJElMNl9wZ191Z18yMDE1X0xOIDwtIGxvZyhBRURCLkNFQSRJTDZfcGdfdWdfMjAxNSArIG1pbl9JTDZwZ191Z18yMDE1KQoKZ2dwdWJyOjpnZ2hpc3RvZ3JhbShBRURCLkNFQSwgIklMNl9wZ191Z18yMDE1X0xOIiwgCiAgICAgICAgICAgICAgICAgICAgIyB5ID0gIi4uY291bnQuLiIsIAogICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwKICAgICAgICAgICAgICAgICAgICBmaWxsID0gIkdlbmRlciIsCiAgICAgICAgICAgICAgICAgICAgcGFsZXR0ZSA9IGMoIiMxMjkwRDkiLCAiI0RCMDAzRiIpLCAKICAgICAgICAgICAgICAgICAgICBhZGQgPSAibWVhbiIsIAogICAgICAgICAgICAgICAgICAgICMgcnVnID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAjIGFkZC5wYXJhbXMgPSAgbGlzdChjb2xvciA9ICJibGFjayIsIGxpbmV0eXBlID0gMiksIAogICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIklMNiBwbGFxdWUgbGV2ZWxzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gIm5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIHBnL3VnIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKCkFFREIuQ0VBJElMNl9wZ191Z18yMDE1X3JhbmsgPC0gcW5vcm0oKHJhbmsoQUVEQi5DRUEkSUw2X3BnX3VnXzIwMTUsIG5hLmxhc3QgPSAia2VlcCIpIC0gMC41KSAvIHN1bSghaXMubmEoQUVEQi5DRUEkSUw2X3BnX3VnXzIwMTUpKSkKZ2dwdWJyOjpnZ2hpc3RvZ3JhbShBRURCLkNFQSwgIklMNl9wZ191Z18yMDE1X3JhbmsiLCAKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwgCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiIzEyOTBEOSIsICIjREIwMDNGIiksIAogICAgICAgICAgICAgICAgICAgIGFkZCA9ICJtZWFuIiwgCiAgICAgICAgICAgICAgICAgICAgIyBydWcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICMgYWRkLnBhcmFtcyA9ICBsaXN0KGNvbG9yID0gImJsYWNrIiwgbGluZXR5cGUgPSAyKSwgCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiSUw2IHBsYXF1ZSBsZXZlbHMiLAogICAgICAgICAgICAgICAgICAgIHhsYWIgPSAiaW52ZXJzZS1ub3JtYWwgdHJhbnNmb3JtYXRpb24gcGcvdWciLCAKICAgICAgICAgICAgICAgICAgICBnZ3RoZW1lID0gdGhlbWVfbWluaW1hbCgpKQpgYGAKCmBgYHtyIERhdGFFeHBsb3JhdGlvbjogSUw2UiBwbGFxdWV9CgpzdW1tYXJ5KEFFREIuQ0VBJElMNlJfcGdfdWdfMjAxNSkKCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJJTDZSX3BnX3VnXzIwMTUiLCAKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwgCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiIzEyOTBEOSIsICIjREIwMDNGIiksIAogICAgICAgICAgICAgICAgICAgIGFkZCA9ICJtZWFuIiwgCiAgICAgICAgICAgICAgICAgICAgIyBydWcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICMgYWRkLnBhcmFtcyA9ICBsaXN0KGNvbG9yID0gImJsYWNrIiwgbGluZXR5cGUgPSAyKSwgCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiSUw2UiBwbGFxdWUgbGV2ZWxzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gInBnL3VnIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKCm1pbl9JTDZSX3BnX3VnXzIwMTUgPC0gbWluKEFFREIuQ0VBJElMNlJfcGdfdWdfMjAxNSwgbmEucm0gPSBUUlVFKQptaW5fSUw2Ul9wZ191Z18yMDE1CgpBRURCLkNFQSRJTDZSX3BnX3VnXzIwMTVfTE4gPC0gbG9nKEFFREIuQ0VBJElMNlJfcGdfdWdfMjAxNSArIG1pbl9JTDZSX3BnX3VnXzIwMTUpCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJJTDZSX3BnX3VnXzIwMTVfTE4iLCAKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwgCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiIzEyOTBEOSIsICIjREIwMDNGIiksIAogICAgICAgICAgICAgICAgICAgIGFkZCA9ICJtZWFuIiwgCiAgICAgICAgICAgICAgICAgICAgIyBydWcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICMgYWRkLnBhcmFtcyA9ICBsaXN0KGNvbG9yID0gImJsYWNrIiwgbGluZXR5cGUgPSAyKSwgCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiSUw2UiBwbGFxdWUgbGV2ZWxzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gIm5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIHBnL3VnIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKCkFFREIuQ0VBJElMNlJfcGdfdWdfMjAxNV9yYW5rIDwtIHFub3JtKChyYW5rKEFFREIuQ0VBJElMNlJfcGdfdWdfMjAxNSwgbmEubGFzdCA9ICJrZWVwIikgLSAwLjUpIC8gc3VtKCFpcy5uYShBRURCLkNFQSRJTDZSX3BnX3VnXzIwMTUpKSkKZ2dwdWJyOjpnZ2hpc3RvZ3JhbShBRURCLkNFQSwgIklMNlJfcGdfdWdfMjAxNV9yYW5rIiwgCiAgICAgICAgICAgICAgICAgICAgIyB5ID0gIi4uY291bnQuLiIsIAogICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwKICAgICAgICAgICAgICAgICAgICBmaWxsID0gIkdlbmRlciIsCiAgICAgICAgICAgICAgICAgICAgcGFsZXR0ZSA9IGMoIiMxMjkwRDkiLCAiI0RCMDAzRiIpLCAKICAgICAgICAgICAgICAgICAgICBhZGQgPSAibWVhbiIsIAogICAgICAgICAgICAgICAgICAgICMgcnVnID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAjIGFkZC5wYXJhbXMgPSAgbGlzdChjb2xvciA9ICJibGFjayIsIGxpbmV0eXBlID0gMiksIAogICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIklMNlIgcGxhcXVlIGxldmVscyIsCiAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJpbnZlcnNlLW5vcm1hbCB0cmFuc2Zvcm1hdGlvbiBwZy91ZyIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCmBgYAoKYGBge3IgRGF0YUV4cGxvcmF0aW9uOiBNQ1AxIHBsYXF1ZX0KCnN1bW1hcnkoQUVEQi5DRUEkTUNQMV9wZ191Z18yMDE1KQoKZ2dwdWJyOjpnZ2hpc3RvZ3JhbShBRURCLkNFQSwgIk1DUDFfcGdfdWdfMjAxNSIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lYW4iLCAKICAgICAgICAgICAgICAgICAgICAjIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgIyBhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJNQ1AxIHBsYXF1ZSBsZXZlbHMiLAogICAgICAgICAgICAgICAgICAgIHhsYWIgPSAicGcvdWciLCAKICAgICAgICAgICAgICAgICAgICBnZ3RoZW1lID0gdGhlbWVfbWluaW1hbCgpKQoKbWluX01DUDFfcGdfdWdfMjAxNSA8LSBtaW4oQUVEQi5DRUEkTUNQMV9wZ191Z18yMDE1LCBuYS5ybSA9IFRSVUUpCm1pbl9NQ1AxX3BnX3VnXzIwMTUKCkFFREIuQ0VBJE1DUDFfcGdfdWdfMjAxNV9MTiA8LSBsb2coQUVEQi5DRUEkTUNQMV9wZ191Z18yMDE1ICsgbWluX01DUDFfcGdfdWdfMjAxNSkKZ2dwdWJyOjpnZ2hpc3RvZ3JhbShBRURCLkNFQSwgIk1DUDFfcGdfdWdfMjAxNV9MTiIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lYW4iLCAKICAgICAgICAgICAgICAgICAgICAjIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgIyBhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJNQ1AxIHBsYXF1ZSBsZXZlbHMiLAogICAgICAgICAgICAgICAgICAgIHhsYWIgPSAibmF0dXJhbCBsb2ctdHJhbnNmb3JtZWQgcGcvdWciLCAKICAgICAgICAgICAgICAgICAgICBnZ3RoZW1lID0gdGhlbWVfbWluaW1hbCgpKQoKQUVEQi5DRUEkTUNQMV9wZ191Z18yMDE1X3JhbmsgPC0gcW5vcm0oKHJhbmsoQUVEQi5DRUEkTUNQMV9wZ191Z18yMDE1LCBuYS5sYXN0ID0gImtlZXAiKSAtIDAuNSkgLyBzdW0oIWlzLm5hKEFFREIuQ0VBJE1DUDFfcGdfdWdfMjAxNSkpKQpnZ3B1YnI6OmdnaGlzdG9ncmFtKEFFREIuQ0VBLCAiTUNQMV9wZ191Z18yMDE1X3JhbmsiLCAKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwgCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiIzEyOTBEOSIsICIjREIwMDNGIiksIAogICAgICAgICAgICAgICAgICAgIGFkZCA9ICJtZWFuIiwgCiAgICAgICAgICAgICAgICAgICAgIyBydWcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICMgYWRkLnBhcmFtcyA9ICBsaXN0KGNvbG9yID0gImJsYWNrIiwgbGluZXR5cGUgPSAyKSwgCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiTUNQMSBwbGFxdWUgbGV2ZWxzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gImludmVyc2Utbm9ybWFsIHRyYW5zZm9ybWF0aW9uIHBnL3VnIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKYGBgCgpgYGB7ciBEYXRhRXhwbG9yYXRpb246IElMNiBzZXJ1bX0KCnN1bW1hcnkoQUVEQi5DRUEkSUw2KQoKZ2dwdWJyOjpnZ2hpc3RvZ3JhbShBRURCLkNFQSwgIklMNiIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lYW4iLCAKICAgICAgICAgICAgICAgICAgICAjIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgIyBhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJJTDYgc2VydW0gbGV2ZWxzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gInBnL21MIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKCm1pbl9JTDYgPC0gbWluKEFFREIuQ0VBJElMNiwgbmEucm0gPSBUUlVFKQptaW5fSUw2CgpBRURCLkNFQSRJTDZfTE4gPC0gbG9nKEFFREIuQ0VBJElMNiArIG1pbl9JTDYpCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJJTDZfTE4iLCAKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwgCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiIzEyOTBEOSIsICIjREIwMDNGIiksIAogICAgICAgICAgICAgICAgICAgIGFkZCA9ICJtZWFuIiwgCiAgICAgICAgICAgICAgICAgICAgIyBydWcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICMgYWRkLnBhcmFtcyA9ICBsaXN0KGNvbG9yID0gImJsYWNrIiwgbGluZXR5cGUgPSAyKSwgCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiSUw2IHNlcnVtIGxldmVscyIsCiAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJuYXR1cmFsIGxvZy10cmFuc2Zvcm1lZCBwZy91ZyIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCgpBRURCLkNFQSRJTDZfcmFuayA8LSBxbm9ybSgocmFuayhBRURCLkNFQSRJTDYsIG5hLmxhc3QgPSAia2VlcCIpIC0gMC41KSAvIHN1bSghaXMubmEoQUVEQi5DRUEkSUw2KSkpCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJJTDZfcmFuayIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lYW4iLCAKICAgICAgICAgICAgICAgICAgICAjIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgIyBhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJJTDYgc2VydW0gbGV2ZWxzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gImludmVyc2Utbm9ybWFsIHRyYW5zZm9ybWF0aW9uIHBnL3VnIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKYGBgCgpgYGB7ciBEYXRhRXhwbG9yYXRpb246IE1DUDEgc2VydW19CgpzdW1tYXJ5KEFFREIuQ0VBJE1DUDEpCgpnZ3B1YnI6OmdnaGlzdG9ncmFtKEFFREIuQ0VBLCAiTUNQMSIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lYW4iLCAKICAgICAgICAgICAgICAgICAgICAjIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgIyBhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJNQ1AxIHNlcnVtIGxldmVscyIsCiAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJwZy9tTCIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCgptaW5fTUNQMSA8LSBtaW4oQUVEQi5DRUEkTUNQMSwgbmEucm0gPSBUUlVFKQptaW5fTUNQMQoKQUVEQi5DRUEkTUNQMV9MTiA8LSBsb2coQUVEQi5DRUEkTUNQMSArIG1pbl9NQ1AxKQpnZ3B1YnI6OmdnaGlzdG9ncmFtKEFFREIuQ0VBLCAiTUNQMV9MTiIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lYW4iLCAKICAgICAgICAgICAgICAgICAgICAjIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgIyBhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJNQ1AxIHNlcnVtIGxldmVscyIsCiAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJuYXR1cmFsIGxvZy10cmFuc2Zvcm1lZCBwZy91ZyIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCgpBRURCLkNFQSRNQ1AxX3JhbmsgPC0gcW5vcm0oKHJhbmsoQUVEQi5DRUEkTUNQMSwgbmEubGFzdCA9ICJrZWVwIikgLSAwLjUpIC8gc3VtKCFpcy5uYShBRURCLkNFQSRNQ1AxKSkpCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJNQ1AxX3JhbmsiLCAKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwgCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiIzEyOTBEOSIsICIjREIwMDNGIiksIAogICAgICAgICAgICAgICAgICAgIGFkZCA9ICJtZWFuIiwgCiAgICAgICAgICAgICAgICAgICAgIyBydWcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICMgYWRkLnBhcmFtcyA9ICBsaXN0KGNvbG9yID0gImJsYWNrIiwgbGluZXR5cGUgPSAyKSwgCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiTUNQMSBzZXJ1bSBsZXZlbHMiLAogICAgICAgICAgICAgICAgICAgIHhsYWIgPSAiaW52ZXJzZS1ub3JtYWwgdHJhbnNmb3JtYXRpb24gcGcvdWciLCAKICAgICAgICAgICAgICAgICAgICBnZ3RoZW1lID0gdGhlbWVfbWluaW1hbCgpKQpgYGAKCiMjIFByZWxpbWluYXJ5IGNvbmNsdXNpb24gZGF0YSBleHBsb3JhdGlvbgoKQWZ0ZXIgZGlzY3Vzc2lvbiB3ZSBkZWNpZGVkIHRvIHB1cnN1aXQgdGhlIGZvbGxvd2luZyBzdHJhdGVneS4gSW4gbGluZSB3aXRoIHRoZSBwcmV2aW91cyB3b3JrIGJ5IFtNYXJpb3MgR2Vvcmdha2lzXShodHRwczovL3d3dy5haGFqb3VybmFscy5vcmcvZG9pL2Z1bGwvMTAuMTE2MS9DSVJDUkVTQUhBLjExOS4zMTUzODApe3RhcmdldD0iX2JsYW5rIn0gd2Ugd2lsbCBhcHBseSBfbmF0dXJhbCBsb2cgdHJhbnNmb3JtYXRpb25fIG9uIGFsbCBwcm90ZWlucyBhbmQgZm9jdXMgdGhlIGFuYWx5c2lzIG9uOgoKLSBNQ1AxIChzZXJ1bSBhbmQgcGxhcXVlKSwgCi0gSUw2IChzZXJ1bSBhbmQgcGxhcXVlKSwgYW5kIAotIElMNlIgKGluIHBsYXF1ZSkuCgojIEFuYWx5c2VzCgpUaGUgYW5hbHlzZXMgYXJlIGZvY3VzZWQgb24gdGhyZWUgZWxlbWVudHM6IAoKMSkgcGxhcXVlIHZ1bG5lcmFiaWxpdHkgcGhlbm90eXBlcwoyKSBjbGluaWNhbCBzdGF0dXMgYXQgaW5jbHVzaW9uIChzeW1wdG9tcykKMykgc2Vjb25kYXJ5IGNsaW5pY2FsIG91dGNvbWUgZHVyaW5nIHRocmVlICgzKSB5ZWFycyBvZiBmb2xsb3ctdXAKCiMjIENvdmFyaWF0ZXMgJiBvdGhlciB2YXJpYWJsZXMKCjEuICBBZ2UgKGNvbnRpbnVvdXMgaW4gMS15ZWFyIGluY3JlbWVudCkuIFtBZ2VdCjIuICBTZXggKG1hbGUgdnMuIGZlbWFsZSkuIFtHZW5kZXJdCjMuICBQcmVzZW5jZSBvZiBoeXBlcnRlbnNpb24gYXQgYmFzZWxpbmUgKGRlZmluZWQgZWl0aGVyIGFzIGhpc3Rvcnkgb2YgaHlwZXJ0ZW5zaW9uLCBTQlAg4omlMTQwIG1tIEhnLCBEQlAg4omlOTAgbW0gSGcsIG9yIHByZXNjcmlwdGlvbiBvZiBhbnRpaHlwZXJ0ZW5zaXZlIG1lZGljYXRpb25zKS4gW0h5cGVydGVuc2lvbi5jb21wb3NpdGVdCjQuICBQcmVzZW5jZSBvZiBkaWFiZXRlcyBtZWxsaXR1cyBhdCBiYXNlbGluZSAoZGVmaW5lZCBlaXRoZXIgYXMgYSBoaXN0b3J5IG9mIGRpYWJldGVzLCBhZG1pbmlzdHJhdGlvbiBvZiBnbHVjb3NlIGxvd2VyaW5nIG1lZGljYXRpb24sIEhiQTFjIOKJpTYuNSUsIGZhc3RpbmcgZ2x1Y29zZSDiiaUxMjYgbWcvZGwsIC5vciByYW5kb20gZ2x1Y29zZSBsZXZlbHMg4omlMjAwIG1nL2RsKS4gW0RpYWJldGVzU3RhdHVzXQo1LiAgU21va2luZyAoY3VycmVudCwgZXgtLCBuZXZlcikuIFtTbW9rZXJDdXJyZW50XQo2LiAgTERMLUMgbGV2ZWxzIChjb250aW51b3VzKS4gW0xETF9maW5hbF0KNy4gIFVzZSBvZiBsaXBpZC1sb3dlcmluZyBkcnVncy4gW01lZC5TdGF0aW4uTExEXQo4LiAgVXNlIG9mIGFudGlwbGF0ZWxldCBkcnVncy4gW01lZC5hbGwuYW50aXBsYXRlbGV0XQo5LiAgZUdGUiAoY29udGludW91cykuIFtHRlJfTURSRF0KMTAuCUJNSSAoY29udGludW91cykuIFtCTUldCjExLglIaXN0b3J5IG9mIGNhcmRpb3Zhc2N1bGFyIGRpc2Vhc2UgKHN0cm9rZSwgY29yb25hcnkgYXJ0ZXJ5IGRpc2Vhc2UsIHBlcmlwaGVyYWwgYXJ0ZXJ5IGRpc2Vhc2UpLiBbQ0FEX2hpc3RvcnksIFN0cm9rZV9oaXN0b3J5LCBQZXJpcGhlcmFsLmludGVydl0KMTIuCUxldmVsIG9mIHN0ZW5vc2lzICg1MC03MCUgdnMuIDcwLTk5JSkuIFtzdGVub3NlXQoxMy4JUHJlc2VudGluZyBzeW1wdG9tcyAoYXN5bXB0b21hdGljLCBvY3VsYXIsIFRJQSwgb3Igc3Ryb2tlKS4gW1N5bXB0b21zLjVHXQoxNC4JaHNDUlAgY2lyY3VsYXRpbmcgbGV2ZWxzIChsbi10cmFuc2Zvcm1lZCwgY29udGludW91cykuIFtoc0NSUF9wbGFzbWFdCjE1LglJTC02IHBsYXF1ZSBsZXZlbHMgKGxuLXRyYW5zZm9ybWVkLCBjb250aW51b3VzKS4gW0lMNl9wZ191Z18yMDE1X0xOXQoKIyMgTW9kZWxzCgpXZSB3aWxsIGFuYWx5emUgdGhlIGRhdGEgdGhyb3VnaCBmb3VyIGRpZmZlcmVudCBtb2RlbHMKCi0gTW9kZWwgMTogYWRqdXN0ZWQgZm9yIGFnZSBhbmQgc2V4Ci0gTW9kZWwgMjogYWRqdXN0ZWQgZm9yIGFnZSwgc2V4LCBoeXBlcnRlbnNpb24sIGRpYWJldGVzLCBzbW9raW5nLCBMREwtQyBsZXZlbHMsIGxpcGlkLWxvd2VyaW5nIGRydWdzLCBhbnRpcGxhdGVsZXQgZHJ1Z3MsIGVHRlIsIEJNSSwgaGlzdG9yeSBvZiBDVkQsIGxldmVsIG9mIHN0ZW5vc2lzLAotIE1vZGVsIDM6IHNhbWUgdG8gbW9kZWwgMiwgd2l0aCBhZGRpdGlvbmFsIGFkanVzdG1lbnRzIGZvciBjaXJjdWxhdGluZyBDUlAgbGV2ZWxzCi0gTW9kZWwgNDogc2FtZSB0byBtb2RlbCAyIHdpdGggYWRkaXRpb25hbCBhZGp1c3RtZW50IGZvciBJTDYgbGV2ZWxzIGluIHRoZSBwbGFxdWUKCiMjIEEuIENyb3NzLXNlY3Rpb25hbCBhbmFseXNpcyBwbGFxdWUgcGhlbm90eXBlcwoKSW4gdGhlIGNyb3NzLXNlY3Rpb25hbCBhbmFseXNpcyBvZiBwbGFxdWUgYW5kIHNlcnVtIE1DUDEsIElMNiwgYW5kIElMNlIgbGV2ZWxzIHdlIHdpbGwgZm9jdXMgb24gdGhlIGZvbGxvd2luZyBwbGFxdWUgdnVsbmVyYWJpbGl0eSBwaGVub3R5cGVzOgoKLSBQZXJjZW50YWdlIG9mIG1hY3JvcGhhZ2VzIChjb250aW51b3VzIHRyYWl0KQotIFBlcmNlbnRhZ2Ugb2YgU01DcyAoY29udGludW91cyB0cmFpdCkKLSBOdW1iZXIgb2YgaW50cmFwbGFxdWUgbWljcm92ZXNzZWxzIHBlciAzLTQgaG90c3BvdHMgKGNvbnRpbnVvdXMgdHJhaXQpCi0gUHJlc2VuY2Ugb2YgbW9kZXJhdGUvaGVhdnkgY2FsY2lmaWNhdGlvbnMgKGJpbmFyeSB0cmFpdCkKLSBQcmVzZW5jZSBvZiBtb2RlcmF0ZS9oZWF2eSBjb2xsYWdlbiBjb250ZW50IChiaW5hcnkgdHJhaXQpCi0gUHJlc2VuY2Ugb2YgbGlwaWQgY29yZSBuby88MTAlIHZzLiA+MTAlIChiaW5hcnkgdHJhaXQpCi0gUHJlc2VuY2Ugb2YgaW50cmFwbGFxdWUgaGVtb3JyaGFnZSAoYmluYXJ5IHRyYWl0KQoKKkNvbnRpbm91cyB0cmFpdHMqCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gdHJhbnNmb3JtYXRpb25zIGFuZCB2aXN1YWxpc2F0aW9ucyBjb250aW51b3VzfQoKIyBtYWNyb3BoYWdlcwpjYXQoIlN1bW1hcnkgb2YgZGF0YS5cbiIpCnN1bW1hcnkoQUVEQi5DRUEkbWFjbWVhbjApCgptaW5fbWFjbWVhbiA8LSBtaW4oQUVEQi5DRUEkbWFjbWVhbjAsIG5hLnJtID0gVFJVRSkKY2F0KHBhc3RlMCgiXG5NaW5pbXVtIHZhbHVlICUgbWFjcm9waGFnZXM6ICIsbWluX21hY21lYW4sIi5cbiIpKQoKQUVEQi5DRUEkTWFjcm9waGFnZXNfTE4gPC0gbG9nKEFFREIuQ0VBJG1hY21lYW4wICsgbWluX21hY21lYW4pCgpnZ3B1YnI6OmdnaGlzdG9ncmFtKEFFREIuQ0VBLCAiTWFjcm9waGFnZXNfTE4iLCAKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwgCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiIzEyOTBEOSIsICIjREIwMDNGIiksIAogICAgICAgICAgICAgICAgICAgIGFkZCA9ICJtZWRpYW4iLCAKICAgICAgICAgICAgICAgICAgICAjYWRkX2RlbnNpdHkgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgI2FkZC5wYXJhbXMgPSAgbGlzdChjb2xvciA9ICJibGFjayIsIGxpbmV0eXBlID0gMiksIAogICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIiUgbWFjcm9waGFnZXMiLAogICAgICAgICAgICAgICAgICAgIHhsYWIgPSAibmF0dXJhbCBsb2ctdHJhbnNmb3JtZWQgJSIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCgpBRURCLkNFQSRNYWNyb3BoYWdlc19yYW5rIDwtIHFub3JtKChyYW5rKEFFREIuQ0VBJG1hY21lYW4wLCBuYS5sYXN0ID0gImtlZXAiKSAtIDAuNSkgLyBzdW0oIWlzLm5hKEFFREIuQ0VBJG1hY21lYW4wKSkpCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJNYWNyb3BoYWdlc19yYW5rIiwgCiAgICAgICAgICAgICAgICAgICAgIyB5ID0gIi4uY291bnQuLiIsIAogICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwKICAgICAgICAgICAgICAgICAgICBmaWxsID0gIkdlbmRlciIsCiAgICAgICAgICAgICAgICAgICAgcGFsZXR0ZSA9IGMoIiMxMjkwRDkiLCAiI0RCMDAzRiIpLCAKICAgICAgICAgICAgICAgICAgICBhZGQgPSAibWVkaWFuIiwgCiAgICAgICAgICAgICAgICAgICAgI2FkZF9kZW5zaXR5ID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICBydWcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICNhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICIlIG1hY3JvcGhhZ2VzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gImludmVyc2UtcmFuayBub3JtYWxpemVkICUiLCAKICAgICAgICAgICAgICAgICAgICBnZ3RoZW1lID0gdGhlbWVfbWluaW1hbCgpKQoKIyBzbW9vdGggbXVzY2xlIGNlbGxzCmNhdCgiU3VtbWFyeSBvZiBkYXRhLlxuIikKc3VtbWFyeShBRURCLkNFQSRtYWNtZWFuMCkKCm1pbl9zbWNtZWFuIDwtIG1pbihBRURCLkNFQSRzbWNtZWFuMCwgbmEucm0gPSBUUlVFKQpjYXQocGFzdGUwKCJcbk1pbmltdW0gdmFsdWUgJSBzbW9vdGggbXVzY2xlIGNlbGxzOiAiLG1pbl9zbWNtZWFuLCIuXG4iKSkKCkFFREIuQ0VBJFNNQ19MTiA8LSBsb2coQUVEQi5DRUEkc21jbWVhbjAgKyBtaW5fc21jbWVhbikKCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJTTUNfTE4iLCAKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwgCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiIzEyOTBEOSIsICIjREIwMDNGIiksIAogICAgICAgICAgICAgICAgICAgIGFkZCA9ICJtZWRpYW4iLCAKICAgICAgICAgICAgICAgICAgICAjYWRkX2RlbnNpdHkgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgIHJ1ZyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgI2FkZC5wYXJhbXMgPSAgbGlzdChjb2xvciA9ICJibGFjayIsIGxpbmV0eXBlID0gMiksIAogICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIiUgc21vb3RoIG11c2NsZSBjZWxscyIsCiAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJuYXR1cmFsIGxvZy10cmFuc2Zvcm1lZCAlIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKCkFFREIuQ0VBJFNNQ19yYW5rIDwtIHFub3JtKChyYW5rKEFFREIuQ0VBJHNtY21lYW4wLCBuYS5sYXN0ID0gImtlZXAiKSAtIDAuNSkgLyBzdW0oIWlzLm5hKEFFREIuQ0VBJHNtY21lYW4wKSkpCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJTTUNfcmFuayIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lZGlhbiIsIAogICAgICAgICAgICAgICAgICAgICNhZGRfZGVuc2l0eSA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgcnVnID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAjYWRkLnBhcmFtcyA9ICBsaXN0KGNvbG9yID0gImJsYWNrIiwgbGluZXR5cGUgPSAyKSwgCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiJSBzbW9vdGggbXVzY2xlIGNlbGxzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gImludmVyc2UtcmFuayBub3JtYWxpemVkICUiLCAKICAgICAgICAgICAgICAgICAgICBnZ3RoZW1lID0gdGhlbWVfbWluaW1hbCgpKQoKIyB2ZXNzZWwgZGVuc2l0eQpjYXQoIlN1bW1hcnkgb2YgZGF0YS5cbiIpCnN1bW1hcnkoQUVEQi5DRUEkdmVzc2VsX2RlbnNpdHlfYXZlcmFnZWQpCgptaW5fdmVzc2VsZGVuc2l0eSA8LSBtaW4oQUVEQi5DRUEkdmVzc2VsX2RlbnNpdHlfYXZlcmFnZWQsIG5hLnJtID0gVFJVRSkKbWluX3Zlc3NlbGRlbnNpdHkKY2F0KHBhc3RlMCgiXG5NaW5pbXVtIHZhbHVlIG51bWJlciBvZiBpbnRyYXBsYXF1ZSBuZW92ZXNzZWxzIHBlciAzLTQgaG90c3BvdHM6ICIsbWluX3Zlc3NlbGRlbnNpdHksIi5cbiIpKQoKQUVEQi5DRUEkVmVzc2VsRGVuc2l0eV9MTiA8LSBsb2coQUVEQi5DRUEkdmVzc2VsX2RlbnNpdHlfYXZlcmFnZWQgKyBtaW5fdmVzc2VsZGVuc2l0eSkKCmdncHVicjo6Z2doaXN0b2dyYW0oQUVEQi5DRUEsICJWZXNzZWxEZW5zaXR5X0xOIiwgCiAgICAgICAgICAgICAgICAgICAgIyB5ID0gIi4uY291bnQuLiIsIAogICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwKICAgICAgICAgICAgICAgICAgICBmaWxsID0gIkdlbmRlciIsCiAgICAgICAgICAgICAgICAgICAgcGFsZXR0ZSA9IGMoIiMxMjkwRDkiLCAiI0RCMDAzRiIpLCAKICAgICAgICAgICAgICAgICAgICBhZGQgPSAibWVkaWFuIiwgCiAgICAgICAgICAgICAgICAgICAgI2FkZF9kZW5zaXR5ID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICBydWcgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICNhZGQucGFyYW1zID0gIGxpc3QoY29sb3IgPSAiYmxhY2siLCBsaW5ldHlwZSA9IDIpLCAKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJudW1iZXIgb2YgaW50cmFwbGFxdWUgbmVvdmVzc2VscyBwZXIgMy00IGhvdHNwb3RzIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gIm5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIG51bWJlciIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCgpBRURCLkNFQSRWZXNzZWxEZW5zaXR5X3JhbmsgPC0gcW5vcm0oKHJhbmsoQUVEQi5DRUEkdmVzc2VsX2RlbnNpdHlfYXZlcmFnZWQsIG5hLmxhc3QgPSAia2VlcCIpIC0gMC41KSAvIHN1bSghaXMubmEoQUVEQi5DRUEkdmVzc2VsX2RlbnNpdHlfYXZlcmFnZWQpKSkKZ2dwdWJyOjpnZ2hpc3RvZ3JhbShBRURCLkNFQSwgIlZlc3NlbERlbnNpdHlfcmFuayIsIAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLCAKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjMTI5MEQ5IiwgIiNEQjAwM0YiKSwgCiAgICAgICAgICAgICAgICAgICAgYWRkID0gIm1lZGlhbiIsIAogICAgICAgICAgICAgICAgICAgICNhZGRfZGVuc2l0eSA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgcnVnID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAjYWRkLnBhcmFtcyA9ICBsaXN0KGNvbG9yID0gImJsYWNrIiwgbGluZXR5cGUgPSAyKSwgCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAibnVtYmVyIG9mIGludHJhcGxhcXVlIG5lb3Zlc3NlbHMgcGVyIDMtNCBob3RzcG90cyIsCiAgICAgICAgICAgICAgICAgICB4bGFiID0gImludmVyc2UtcmFuayBub3JtYWxpemVkIG51bWJlciIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCmBgYAoKKkJpbmFyeSB0cmFpdHMqCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gdHJhbnNmb3JtYXRpb25zIGFuZCB2aXN1YWxpc2F0aW9ucyBiaW5hcnl9CgojIGNhbGNpZmljYXRpb24KY2F0KCJTdW1tYXJ5IG9mIGRhdGEuXG4iKQpzdW1tYXJ5KEFFREIuQ0VBJENhbGMuYmluKQpjb250cmFzdHMoQUVEQi5DRUEkQ2FsYy5iaW4pCgpBRURCLkNFQSRDYWxjaWZpY2F0aW9uUGxhcXVlIDwtIGFzLmZhY3RvcihBRURCLkNFQSRDYWxjLmJpbikKCmRmIDwtIEFFREIuQ0VBICU+JQogIGZpbHRlcighaXMubmEoQ2FsY2lmaWNhdGlvblBsYXF1ZSkpICU+JQogIGdyb3VwX2J5KEdlbmRlciwgQ2FsY2lmaWNhdGlvblBsYXF1ZSkgJT4lCnN1bW1hcmlzZShjb3VudHMgPSBuKCkpIAoKZ2dwdWJyOjpnZ2JhcnBsb3QoZGYsIHggPSAiQ2FsY2lmaWNhdGlvblBsYXF1ZSIsIHkgPSAiY291bnRzIiwKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjREIwMDNGIiwgIiMxMjkwRDkiKSwKICAgICAgICAgICAgICAgICAgICBsYWJlbCA9IFRSVUUsIGxhYi52anVzdCA9IDIsIGxhYi5jb2wgPSAiI0ZGRkZGRiIsCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiQ2FsY2lmaWNhdGlvbiIsCiAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJjYWxjaWZpY2F0aW9uIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKcm0oZGYpCgojIGNvbGxhZ2VuCmNhdCgiU3VtbWFyeSBvZiBkYXRhLlxuIikKc3VtbWFyeShBRURCLkNFQSRDb2xsYWdlbi5iaW4pCmNvbnRyYXN0cyhBRURCLkNFQSRDb2xsYWdlbi5iaW4pCgpBRURCLkNFQSRDb2xsYWdlblBsYXF1ZSA8LSBhcy5mYWN0b3IoQUVEQi5DRUEkQ29sbGFnZW4uYmluKQoKZGYgPC0gQUVEQi5DRUEgJT4lCiAgZmlsdGVyKCFpcy5uYShDb2xsYWdlblBsYXF1ZSkpICU+JQogIGdyb3VwX2J5KEdlbmRlciwgQ29sbGFnZW5QbGFxdWUpICU+JQpzdW1tYXJpc2UoY291bnRzID0gbigpKSAKCmdncHVicjo6Z2diYXJwbG90KGRmLCB4ID0gIkNvbGxhZ2VuUGxhcXVlIiwgeSA9ICJjb3VudHMiLAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLAogICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwKICAgICAgICAgICAgICAgICAgICBmaWxsID0gIkdlbmRlciIsCiAgICAgICAgICAgICAgICAgICAgcGFsZXR0ZSA9IGMoIiNEQjAwM0YiLCAiIzEyOTBEOSIpLAogICAgICAgICAgICAgICAgICAgIGxhYmVsID0gVFJVRSwgbGFiLnZqdXN0ID0gMiwgbGFiLmNvbCA9ICIjRkZGRkZGIiwKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJDb2xsYWdlbiIsCiAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJjb2xsYWdlbiIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCnJtKGRmKQoKIyBmYXQgMTAlCmNhdCgiU3VtbWFyeSBvZiBkYXRhLlxuIikKc3VtbWFyeShBRURCLkNFQSRGYXQuYmluXzEwKQpjb250cmFzdHMoQUVEQi5DRUEkRmF0LmJpbl8xMCkKCkFFREIuQ0VBJEZhdDEwUGVyYyA8LSBhcy5mYWN0b3IoQUVEQi5DRUEkRmF0LmJpbl8xMCkKCmRmIDwtIEFFREIuQ0VBICU+JQogIGZpbHRlcighaXMubmEoRmF0MTBQZXJjKSkgJT4lCiAgZ3JvdXBfYnkoR2VuZGVyLCBGYXQxMFBlcmMpICU+JQpzdW1tYXJpc2UoY291bnRzID0gbigpKSAKCmdncHVicjo6Z2diYXJwbG90KGRmLCB4ID0gIkZhdDEwUGVyYyIsIHkgPSAiY291bnRzIiwKICAgICAgICAgICAgICAgICAgICAjIHkgPSAiLi5jb3VudC4uIiwKICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICAgZmlsbCA9ICJHZW5kZXIiLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjREIwMDNGIiwgIiMxMjkwRDkiKSwKICAgICAgICAgICAgICAgICAgICBsYWJlbCA9IFRSVUUsIGxhYi52anVzdCA9IDIsIGxhYi5jb2wgPSAiI0ZGRkZGRiIsCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiSW50cmFwbGFxdWUgZmF0IiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gImludHJhcGxhcXVlIGZhdCIsIAogICAgICAgICAgICAgICAgICAgIGdndGhlbWUgPSB0aGVtZV9taW5pbWFsKCkpCnJtKGRmKQoKIyBJUEgKY2F0KCJTdW1tYXJ5IG9mIGRhdGEuXG4iKQpzdW1tYXJ5KEFFREIuQ0VBJElQSC5iaW4pCmNvbnRyYXN0cyhBRURCLkNFQSRJUEguYmluKQoKQUVEQi5DRUEkSVBIIDwtIGFzLmZhY3RvcihBRURCLkNFQSRJUEguYmluKQoKZGYgPC0gQUVEQi5DRUEgJT4lCiAgZmlsdGVyKCFpcy5uYShJUEgpKSAlPiUKICBncm91cF9ieShHZW5kZXIsIElQSCkgJT4lCnN1bW1hcmlzZShjb3VudHMgPSBuKCkpIAoKZ2dwdWJyOjpnZ2JhcnBsb3QoZGYsIHggPSAiSVBIIiwgeSA9ICJjb3VudHMiLAogICAgICAgICAgICAgICAgICAgICMgeSA9ICIuLmNvdW50Li4iLAogICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwKICAgICAgICAgICAgICAgICAgICBmaWxsID0gIkdlbmRlciIsCiAgICAgICAgICAgICAgICAgICAgcGFsZXR0ZSA9IGMoIiNEQjAwM0YiLCAiIzEyOTBEOSIpLAogICAgICAgICAgICAgICAgICAgIGxhYmVsID0gVFJVRSwgbGFiLnZqdXN0ID0gMiwgbGFiLmNvbCA9ICIjRkZGRkZGIiwKICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJJbnRyYXBsYXF1ZSBoZW1vcnJoYWdlIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gImludHJhcGxhcXVlIGhlbW9ycmhhZ2UiLCAKICAgICAgICAgICAgICAgICAgICBnZ3RoZW1lID0gdGhlbWVfbWluaW1hbCgpKQpybShkZikKCiMgU3ltcHRvbXMKY2F0KCJTdW1tYXJ5IG9mIGRhdGEuXG4iKQpzdW1tYXJ5KEFFREIuQ0VBJEFzeW1wdFN5bXB0KQpjb250cmFzdHMoQUVEQi5DRUEkQXN5bXB0U3ltcHQpCgpBRURCLkNFQSRBc3ltcHRTeW1wdCA8LSBhcy5mYWN0b3IoQUVEQi5DRUEkQXN5bXB0U3ltcHQpCgpkZiA8LSBBRURCLkNFQSAlPiUKICBmaWx0ZXIoIWlzLm5hKEFzeW1wdFN5bXB0KSkgJT4lCiAgZ3JvdXBfYnkoR2VuZGVyLCBBc3ltcHRTeW1wdCkgJT4lCnN1bW1hcmlzZShjb3VudHMgPSBuKCkpIAoKZ2dwdWJyOjpnZ2JhcnBsb3QoZGYsIHggPSAiQXN5bXB0U3ltcHQiLCB5ID0gImNvdW50cyIsCiAgICAgICAgICAgICAgICAgICAgIyB5ID0gIi4uY291bnQuLiIsCiAgICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgIGZpbGwgPSAiR2VuZGVyIiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiI0RCMDAzRiIsICIjMTI5MEQ5IiksCiAgICAgICAgICAgICAgICAgICAgbGFiZWwgPSBUUlVFLCBsYWIudmp1c3QgPSAyLCBsYWIuY29sID0gIiNGRkZGRkYiLAogICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIlN5bXB0b21zIiwKICAgICAgICAgICAgICAgICAgICB4bGFiID0gInN5bXB0b21zIiwgCiAgICAgICAgICAgICAgICAgICAgZ2d0aGVtZSA9IHRoZW1lX21pbmltYWwoKSkKcm0oZGYpCgpgYGAKCkluIHRoaXMgc2VjdGlvbiB3ZSBtYWtlIHNvbWUgdmFyaWFibGVzIHRvIGFzc2lzdCB3aXRoIGFuYWx5c2lzLgpgYGB7ciBDcm9zc1NlYzogcGxhcXVlcyAtIHNldHVwIHJlZ3Jlc3Npb24gfQpBRURCLkNFQS5zYW1wbGVzaXplID0gbnJvdyhBRURCLkNFQSkKVFJBSVRTLlBST1RFSU4gPSBjKCJJTDZfTE4iLCAiTUNQMV9MTiIsICJJTDZfcGdfdWdfMjAxNV9MTiIsICJJTDZSX3BnX3VnXzIwMTVfTE4iLCAiTUNQMV9wZ191Z18yMDE1X0xOIikKVFJBSVRTLlBST1RFSU4uUkFOSyA9IGMoIklMNl9yYW5rIiwgIk1DUDFfcmFuayIsICJJTDZfcGdfdWdfMjAxNV9yYW5rIiwgIklMNlJfcGdfdWdfMjAxNV9yYW5rIiwgIk1DUDFfcGdfdWdfMjAxNV9yYW5rIikKClRSQUlUUy5DT04gPSBjKCJNYWNyb3BoYWdlc19MTiIsICJTTUNfTE4iLCAiVmVzc2VsRGVuc2l0eV9MTiIpIApUUkFJVFMuQ09OLlJBTksgPSBjKCJNYWNyb3BoYWdlc19yYW5rIiwgIlNNQ19yYW5rIiwgIlZlc3NlbERlbnNpdHlfcmFuayIpCgpUUkFJVFMuQklOID0gYygiQ2FsY2lmaWNhdGlvblBsYXF1ZSIsICJDb2xsYWdlblBsYXF1ZSIsICJGYXQxMFBlcmMiLCAiSVBIIikKCiMgIkhvc3BpdGFsIiwgCiMgIkFnZSIsICJHZW5kZXIiLCAKIyAiVENfZmluYWwiLCAiTERMX2ZpbmFsIiwgIkhETF9maW5hbCIsICJUR19maW5hbCIsIAojICJzeXN0b2xpYyIsICJkaWFzdG9saSIsICJHRlJfTURSRCIsICJCTUkiLCAKIyAiS0RPUUkiLCAiQk1JX1dITyIsCiMgIlNtb2tlckN1cnJlbnQiLCAiZUNpZ2FyZXR0ZXMiLCAiZVBhY2tZZWFyc1Ntb2tpbmciLAojICJEaWFiZXRlc1N0YXR1cyIsICJIeXBlcnRlbnNpb24uY29tcG9zaXRlIiwgCiMgIkh5cGVydGVuc2lvbi5kcnVncyIsICJNZWQuYW50aWNvYWd1bGFudHMiLCAiTWVkLmFsbC5hbnRpcGxhdGVsZXQiLCAiTWVkLlN0YXRpbi5MTEQiLCAKIyAiU3Ryb2tlX0R4IiwgInN5bXB0IiwgIlN5bXB0b21zLjVHIiwgInJlc3Rlbm9zIiwKIyAiRVBfY29tcG9zaXRlIiwgIkVQX2NvbXBvc2l0ZV90aW1lIiwKIyAibWFjbWVhbjAiLCAic21jbWVhbjAiLCAiTWFjcm9waGFnZXMuYmluIiwgIlNNQy5iaW4iLAojICJuZXV0cm9waGlscyIsICJNYXN0X2NlbGxzX3BsYXF1ZSIsCiMgIklQSC5iaW4iLCAidmVzc2VsX2RlbnNpdHlfYXZlcmFnZWQiLAojICJDYWxjLmJpbiIsICJDb2xsYWdlbi5iaW4iLCAKIyAiRmF0LmJpbl8xMCIsICJGYXQuYmluXzQwIiwgIk92ZXJhbGxQbGFxdWVQaGVub3R5cGUiLAojICJJTDZfcGdfdWdfMjAxNSIsICJNQ1AxX3BnX3VnXzIwMTUiLCAKIyAiUUMyMDE4X0ZJTFRFUiIsICJDSElQIiwgIlNBTVBMRV9UWVBFIiwKIyAiQ0FEX2hpc3RvcnkiLCAiU3Ryb2tlX2hpc3RvcnkiLCAiUGVyaXBoZXJhbC5pbnRlcnYiLAojICJzdGVub3NlIgoKIyAxLiAgQWdlIChjb250aW51b3VzIGluIDEteWVhciBpbmNyZW1lbnQpLiBbQWdlXQojIDIuICBTZXggKG1hbGUgdnMuIGZlbWFsZSkuIFtHZW5kZXJdCiMgMy4gIFByZXNlbmNlIG9mIGh5cGVydGVuc2lvbiBhdCBiYXNlbGluZSAoZGVmaW5lZCBlaXRoZXIgYXMgaGlzdG9yeSBvZiBoeXBlcnRlbnNpb24sIFNCUCDiiaUxNDAgbW0gSGcsIERCUCDiiaU5MCBtbSBIZywgb3IgcHJlc2NyaXB0aW9uIG9mIGFudGloeXBlcnRlbnNpdmUgbWVkaWNhdGlvbnMpLiBbSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZV0KIyA0LiAgUHJlc2VuY2Ugb2YgZGlhYmV0ZXMgbWVsbGl0dXMgYXQgYmFzZWxpbmUgKGRlZmluZWQgZWl0aGVyIGFzIGEgaGlzdG9yeSBvZiBkaWFiZXRlcywgYWRtaW5pc3RyYXRpb24gb2YgZ2x1Y29zZSBsb3dlcmluZyBtZWRpY2F0aW9uLCBIYkExYyDiiaU2LjUlLCBmYXN0aW5nIGdsdWNvc2Ug4omlMTI2IG1nL2RsLCAub3IgcmFuZG9tIGdsdWNvc2UgbGV2ZWxzIOKJpTIwMCBtZy9kbCkuIFtEaWFiZXRlc1N0YXR1c10KIyA1LiAgU21va2luZyAoY3VycmVudCwgZXgtLCBuZXZlcikuIFtTbW9rZXJDdXJyZW50XQojIDYuICBMREwtQyBsZXZlbHMgKGNvbnRpbnVvdXMpLiBbTERMX2ZpbmFsXQojIDcuICBVc2Ugb2YgbGlwaWQtbG93ZXJpbmcgZHJ1Z3MuIFtNZWQuU3RhdGluLkxMRF0KIyA4LiAgVXNlIG9mIGFudGlwbGF0ZWxldCBkcnVncy4gW01lZC5hbGwuYW50aXBsYXRlbGV0XQojIDkuICBlR0ZSIChjb250aW51b3VzKS4gW0dGUl9NRFJEXQojIDEwLglCTUkgKGNvbnRpbnVvdXMpLiBbQk1JXQojIDExLglIaXN0b3J5IG9mIGNhcmRpb3Zhc2N1bGFyIGRpc2Vhc2UgKHN0cm9rZSwgY29yb25hcnkgYXJ0ZXJ5IGRpc2Vhc2UsIHBlcmlwaGVyYWwgYXJ0ZXJ5IGRpc2Vhc2UpLiBbQ0FEX2hpc3RvcnksIFN0cm9rZV9oaXN0b3J5LCBQZXJpcGhlcmFsLmludGVydl0KIyAxMi4JTGV2ZWwgb2Ygc3Rlbm9zaXMgKDUwLTcwJSB2cy4gNzAtOTklKS4gW3N0ZW5vc2VdCiMgMTMuCVByZXNlbnRpbmcgc3ltcHRvbXMgKGFzeW1wdG9tYXRpYywgb2N1bGFyLCBUSUEsIG9yIHN0cm9rZSkuIFtTeW1wdG9tcy41R10KIyAxNC4JaHNDUlAgY2lyY3VsYXRpbmcgbGV2ZWxzIChsbi10cmFuc2Zvcm1lZCwgY29udGludW91cykuIFtoc0NSUF9wbGFzbWFdCiMgMTUuCUlMLTYgcGxhcXVlIGxldmVscyAobG4tdHJhbnNmb3JtZWQsIGNvbnRpbnVvdXMpLiBbSUw2X3BnX3VnXzIwMTVfTE5dCgojIE1vZGVscyAKIyBNb2RlbCAxOiBhZGp1c3RlZCBmb3IgYWdlIGFuZCBzZXgKIyBNb2RlbCAyOiBhZGp1c3RlZCBmb3IgYWdlLCBzZXgsIGh5cGVydGVuc2lvbiwgZGlhYmV0ZXMsIHNtb2tpbmcsIExETC1DIGxldmVscywgbGlwaWQtbG93ZXJpbmcgZHJ1Z3MsIGFudGlwbGF0ZWxldCBkcnVncywgZUdGUiwgQk1JLCBoaXN0b3J5IG9mIENWRCwgbGV2ZWwgb2Ygc3Rlbm9zaXMsCiMgTW9kZWwgMzogc2FtZSB0byBtb2RlbCAyLCB3aXRoIGFkZGl0aW9uYWwgYWRqdXN0bWVudHMgZm9yIGNpcmN1bGF0aW5nIENSUCBsZXZlbHMKIyBNb2RlbCA0OiBzYW1lIHRvIG1vZGVsIDIgd2l0aCBhZGRpdGlvbmFsIGFkanVzdG1lbnQgZm9yIElMNiBsZXZlbHMgaW4gdGhlIHBsYXF1ZQoKQ09WQVJJQVRFU19NMSA9IGMoIkFnZSIsICJHZW5kZXIiKQoKQ09WQVJJQVRFU19NMiA9IGMoQ09WQVJJQVRFU19NMSwgIAogICAgICAgICAgICAgICAiSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSIsICJEaWFiZXRlc1N0YXR1cyIsICJTbW9rZXJDdXJyZW50IiwKICAgICAgICAgICAgICAgIk1lZC5TdGF0aW4uTExEIiwgIk1lZC5hbGwuYW50aXBsYXRlbGV0IiwgCiAgICAgICAgICAgICAgICJHRlJfTURSRCIsICJCTUkiLCAKICAgICAgICAgICAgICAgIkNBRF9oaXN0b3J5IiwgIlN0cm9rZV9oaXN0b3J5IiwgIlBlcmlwaGVyYWwuaW50ZXJ2IiwKICAgICAgICAgICAgICAgInN0ZW5vc2UiKQoKQ09WQVJJQVRFU19NMyA9IGMoQ09WQVJJQVRFU19NMiwgIkxETF9maW5hbCIpCgpDT1ZBUklBVEVTX000ID0gYyhDT1ZBUklBVEVTX00yLCAiaHNDUlBfcGxhc21hIikKCkNPVkFSSUFURVNfTTUgPSBjKENPVkFSSUFURVNfTTIsICJJTDZfcGdfdWdfMjAxNV9MTiIpCkNPVkFSSUFURVNfTTVyYW5rID0gYyhDT1ZBUklBVEVTX00yLCAiSUw2X3BnX3VnXzIwMTVfcmFuayIpCgpgYGAKCiMjIyBNb2RlbCAxCgpJbiB0aGlzIG1vZGVsIHdlIGNvcnJlY3QgZm9yIF9BZ2VfIGFuZCBfR2VuZGVyXy4KCgojIyMjIE5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIGRhdGEKCkZpcnN0IHdlIHVzZSB0aGUgbmF0dXJhbC1sb2cgdHJhbnNmb3JtZWQgZGF0YS4KCkFuYWx5c2lzIG9mIGNvbnRpbnVvdXMvcXVhbnRpdGF0aXZlIHBsYXF1ZSB0cmFpdHMgYXMgYSBmdW5jdGlvbiBvZiBzZXJ1bS9wbGFxdWUgSUw2KFIpL01DUDEgbGV2ZWxzLgpgYGB7ciBDcm9zc1NlYzogcGxhcXVlcyAtIGxpbmVhciByZWdyZXNzaW9uIE1PREVMMSwgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQpjYXQoIlJ1bm5pbmcgbGluZWFyIHJlZ3Jlc3Npb24uLi5cbiIpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTikpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU5bcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgZm9yICh0cmFpdCBpbiAxOmxlbmd0aChUUkFJVFMuQ09OKSkgewogICAgVFJBSVQgPSBUUkFJVFMuQ09OW3RyYWl0XQogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTEpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBsbShjdXJyZW50REZbLFBST1RFSU5dIH4gY3VycmVudERGWyxUUkFJVF0gKyBBZ2UgKyBHZW5kZXIsIGRhdGEgPSBjdXJyZW50REYpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE1LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5DT04oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiVC12YWx1ZSIsICJQLXZhbHVlIiwgInJeMiIsICJyXjJfYWRqIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFQtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFQtdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMmApCkdMTS5yZXN1bHRzJGByXjJfYWRqYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfYWRqYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKIyMjIFVuaXZhcmlhdGUKbGlicmFyeShvcGVueGxzeCkKd3JpdGUueGxzeChHTE0ucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkNvbi5VbmkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLk1PREVMMS54bHN4IiksCiAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UsIGNvbC5uYW1lcyA9IFRSVUUsIHNoZWV0TmFtZSA9ICJDb24uVW5pLlBsYXF1ZVBoZW5vIikKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCgpgYGAKCkFuYWx5c2lzIG9mIGJpbmFyeSBwbGFxdWUgdHJhaXRzIGFzIGEgZnVuY3Rpb24gb2Ygc2VydW0vcGxhcXVlIElMNihSKS9NQ1AxIGxldmVscy4KYGBge3IgQ3Jvc3NTZWM6IHBsYXF1ZXMgLSBsb2dpc3RpYyByZWdyZXNzaW9uIE1PREVMMSwgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4pKSB7CiAgUFJPVEVJTiA9IFRSQUlUUy5QUk9URUlOW3Byb3RlaW5dCiAgY2F0KHBhc3RlMCgiXG5BbmFseXNpcyBvZiAiLFBST1RFSU4sIi5cbiIpKQogIGZvciAodHJhaXQgaW4gMTpsZW5ndGgoVFJBSVRTLkJJTikpIHsKICAgIFRSQUlUID0gVFJBSVRTLkJJTlt0cmFpdF0KICAgIGNhdChwYXN0ZTAoIlxuLSBwcm9jZXNzaW5nICIsVFJBSVQsIlxuXG4iKSkKICAgIGN1cnJlbnRERiA8LSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBICU+JQogICAgICBkcGx5cjo6c2VsZWN0KC4sIFBST1RFSU4sIFRSQUlULCBDT1ZBUklBVEVTX00xKSAlPiUKICAgICAgZmlsdGVyKGNvbXBsZXRlLmNhc2VzKC4pKSkgJT4lCiAgICAgIGZpbHRlcl9pZih+aXMubnVtZXJpYyguKSwgYWxsX3ZhcnMoIWlzLmluZmluaXRlKC4pKSkKICAgICMgZm9yIGRlYnVnCiAgICAjIHByaW50KERUOjpkYXRhdGFibGUoY3VycmVudERGKSkKICAgICMgcHJpbnQobnJvdyhjdXJyZW50REYpKQogICAgIyBwcmludChzdHIoY3VycmVudERGKSkKICAgICMgcHJpbnQoY2xhc3MoY3VycmVudERGWyxUUkFJVF0pKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIsCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5CSU4oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLlVuaS5Qcm90ZWluLlBsYXF1ZVBoZW5vdHlwZXMuTU9ERUwxLnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkJpbi5VbmkuUGxhcXVlUGhlbm8iKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKIyMjIyBJbnZlcnNlLXJhbmsgbm9ybWFsaXphdGlvbgoKSGVyZSB3ZSB1c2UgdGhlIGludmVyc2UtcmFuayBub3JtYWxpemVkIGRhdGEgLSB2aXN1YWxseSB0aGlzIGlzIG1vcmUgbm9ybWFsbHkgZGlzdHJpYnV0ZWQuCgpBbmFseXNpcyBvZiBjb250aW51b3VzL3F1YW50aXRhdGl2ZSBwbGFxdWUgdHJhaXRzIGFzIGEgZnVuY3Rpb24gb2Ygc2VydW0vcGxhcXVlIElMNihSKS9NQ1AxIGxldmVscy4KYGBge3IgQ3Jvc3NTZWM6IHBsYXF1ZXMgLSBsaW5lYXIgcmVncmVzc2lvbiBNT0RFTDEgUkFOSywgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQpjYXQoIlJ1bm5pbmcgbGluZWFyIHJlZ3Jlc3Npb24uLi5cbiIpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dCiAgY2F0KHBhc3RlMCgiXG5BbmFseXNpcyBvZiAiLFBST1RFSU4sIi5cbiIpKQogIGZvciAodHJhaXQgaW4gMTpsZW5ndGgoVFJBSVRTLkNPTi5SQU5LKSkgewogICAgVFJBSVQgPSBUUkFJVFMuQ09OLlJBTktbdHJhaXRdCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NMSkgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIyMgdW5pdmFyaWF0ZQogICAgZml0IDwtIGxtKGN1cnJlbnRERlssUFJPVEVJTl0gfiBjdXJyZW50REZbLFRSQUlUXSArIEFnZSArIEdlbmRlciwgZGF0YSA9IGN1cnJlbnRERikKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCgogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE1LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5DT04oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiVC12YWx1ZSIsICJQLXZhbHVlIiwgInJeMiIsICJyXjJfYWRqIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFQtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFQtdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMmApCkdMTS5yZXN1bHRzJGByXjJfYWRqYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfYWRqYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKIyMjIFVuaXZhcmlhdGUKbGlicmFyeShvcGVueGxzeCkKd3JpdGUueGxzeChHTE0ucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkNvbi5VbmkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLlJBTksuTU9ERUwxLnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkNvbi5VbmkuUGxhcXVlUGhlbm8iKQojIFJlbW92aW5nIGludGVybWVkaWF0ZXMKY2F0KCJSZW1vdmluZyBpbnRlcm1lZGlhdGUgZmlsZXMuLi5cbiIpCnJtKFRSQUlULCB0cmFpdCwgY3VycmVudERGLCBHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCwgZml0LCBtb2RlbF9zdGVwKQoKCmBgYAoKQW5hbHlzaXMgb2YgYmluYXJ5IHBsYXF1ZSB0cmFpdHMgYXMgYSBmdW5jdGlvbiBvZiBzZXJ1bS9wbGFxdWUgSUw2KFIpL01DUDEgbGV2ZWxzLgpgYGB7ciBDcm9zc1NlYzogcGxhcXVlcyAtIGxvZ2lzdGljIHJlZ3Jlc3Npb24gTU9ERUwxIFJBTkssIGluY2x1ZGU9VFJVRSwgcGFnZWQucHJpbnQ9VFJVRX0KCkdMTS5yZXN1bHRzIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKZm9yIChwcm90ZWluIGluIDE6bGVuZ3RoKFRSQUlUUy5QUk9URUlOLlJBTkspKSB7CiAgUFJPVEVJTiA9IFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgZm9yICh0cmFpdCBpbiAxOmxlbmd0aChUUkFJVFMuQklOKSkgewogICAgVFJBSVQgPSBUUkFJVFMuQklOW3RyYWl0XQogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTEpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyBwcmludChjbGFzcyhjdXJyZW50REZbLFRSQUlUXSkpCiAgICAjIyMgdW5pdmFyaWF0ZQogICAgZml0IDwtIGdsbShhcy5mYWN0b3IoY3VycmVudERGWyxUUkFJVF0pIH4gY3VycmVudERGWyxQUk9URUlOXSArIEFnZSArIEdlbmRlciwKICAgICAgICAgICAgICBkYXRhICA9ICBjdXJyZW50REYsIGZhbWlseSA9IGJpbm9taWFsKGxpbmsgPSAibG9naXQiKSkKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQklOKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9Cn0KY2F0KCJFZGl0IHRoZSBjb2x1bW4gbmFtZXMuLi5cbiIpCmNvbG5hbWVzKEdMTS5yZXN1bHRzKSA9IGMoIkRhdGFzZXQiLCAiUHJlZGljdG9yIiwgIlRyYWl0IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiQmV0YSIsICJzLmUubS4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJPUiIsICJsb3c5NUNJIiwgInVwOTVDSSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlotdmFsdWUiLCAiUC12YWx1ZSIsICJyXjJfbCIsICJyXjJfY3MiLCAicl4yX25hZ2Vsa2Vya2UiLCAiQUVfTiIsICJNb2RlbF9OIiwgIlBlcmNfTWlzcyIpCgpjYXQoIkNvcnJlY3QgdGhlIHZhcmlhYmxlIHR5cGVzLi4uXG4iKQpHTE0ucmVzdWx0cyRCZXRhIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkQmV0YSkKR0xNLnJlc3VsdHMkcy5lLm0uIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkcy5lLm0uKQpHTE0ucmVzdWx0cyRPUiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJE9SKQpHTE0ucmVzdWx0cyRsb3c5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkbG93OTVDSSkKR0xNLnJlc3VsdHMkdXA5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkdXA5NUNJKQpHTE0ucmVzdWx0cyRgWi12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgWi12YWx1ZWApCkdMTS5yZXN1bHRzJGBQLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQLXZhbHVlYCkKR0xNLnJlc3VsdHMkYHJeMl9sYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbGApCkdMTS5yZXN1bHRzJGByXjJfY3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9jc2ApCkdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgKQpHTE0ucmVzdWx0cyRgQUVfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgQUVfTmApCkdMTS5yZXN1bHRzJGBNb2RlbF9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBNb2RlbF9OYCkKR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCkKCiMgU2F2ZSB0aGUgZGF0YQpjYXQoIldyaXRpbmcgcmVzdWx0cyB0byBFeGNlbC1maWxlLi4uXG4iKQoKIyMjIFVuaXZhcmlhdGUKd3JpdGUueGxzeChHTE0ucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkJpbi5VbmkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLlJBTksuTU9ERUwxLnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkJpbi5VbmkuUGxhcXVlUGhlbm8iKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKCiMjIyBNb2RlbCAyCgpJbiB0aGlzIG1vZGVsIHdlIGNvcnJlY3QgZm9yIF9BZ2VfLCBfR2VuZGVyXywgX0h5cGVydGVuc2lvbiBzdGF0dXNfLCBfRGlhYmV0ZXMgc3RhdHVzXywgX2N1cnJlbnQgc21va2VyIHN0YXR1c18sIF9saXBpZC1sb3dlcmluZyBkcnVncyAoTExEcylfLCBfYW50aXBsYXRlbGV0IG1lZGljYXRpb25fLCBfZUdGUiAoTURSRClfLCBfQk1JXywgX0NBRCBoaXN0b3J5XywgX3N0cm9rZSBoaXN0b3J5XywgX3BlcmlwaGVyYWwgaW50ZXJ2ZW50aW9uc18sIGFuZCBfc3Rlbm9zaXNfLgoKIyMjIyBOYXR1cmFsIGxvZy10cmFuc2Zvcm1lZCBkYXRhCgpGaXJzdCB3ZSB1c2UgdGhlIG5hdHVyYWwtbG9nIHRyYW5zZm9ybWVkIGRhdGEuCgpBbmFseXNpcyBvZiBjb250aW51b3VzL3F1YW50aXRhdGl2ZSBwbGFxdWUgdHJhaXRzIGFzIGEgZnVuY3Rpb24gb2Ygc2VydW0vcGxhcXVlIElMNihSKS9NQ1AxIGxldmVscy4KYGBge3IgQ3Jvc3NTZWM6IHBsYXF1ZXMgLSBsaW5lYXIgcmVncmVzc2lvbiBNT0RFTDJ9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE1LCBucm93ID0gMCkpCmNhdCgiUnVubmluZyBsaW5lYXIgcmVncmVzc2lvbi4uLlxuIikKZm9yIChwcm90ZWluIGluIDE6bGVuZ3RoKFRSQUlUUy5QUk9URUlOKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTltwcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBmb3IgKHRyYWl0IGluIDE6bGVuZ3RoKFRSQUlUUy5DT04pKSB7CiAgICBUUkFJVCA9IFRSQUlUUy5DT05bdHJhaXRdCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NMikgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIyMgdW5pdmFyaWF0ZQogICAgZml0IDwtIGxtKGN1cnJlbnRERlssUFJPVEVJTl0gfiBjdXJyZW50REZbLFRSQUlUXSArIEFnZSArIEdlbmRlciArIAogICAgICAgICAgICAgICAgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKyAKICAgICAgICAgICAgICAgIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UsIAogICAgICAgICAgICAgIGRhdGEgPSBjdXJyZW50REYpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTUsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkNPTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQp9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJULXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yIiwgInJeMl9hZGoiLCAiQUVfTiIsICJNb2RlbF9OIiwgIlBlcmNfTWlzcyIpCgpjYXQoIkNvcnJlY3QgdGhlIHZhcmlhYmxlIHR5cGVzLi4uXG4iKQpHTE0ucmVzdWx0cyRCZXRhIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkQmV0YSkKR0xNLnJlc3VsdHMkcy5lLm0uIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkcy5lLm0uKQpHTE0ucmVzdWx0cyRPUiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJE9SKQpHTE0ucmVzdWx0cyRsb3c5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkbG93OTVDSSkKR0xNLnJlc3VsdHMkdXA5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkdXA5NUNJKQpHTE0ucmVzdWx0cyRgVC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgVC12YWx1ZWApCkdMTS5yZXN1bHRzJGBQLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQLXZhbHVlYCkKR0xNLnJlc3VsdHMkYHJeMmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yYCkKR0xNLnJlc3VsdHMkYHJeMl9hZGpgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9hZGpgKQpHTE0ucmVzdWx0cyRgQUVfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgQUVfTmApCkdMTS5yZXN1bHRzJGBNb2RlbF9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBNb2RlbF9OYCkKR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCkKCiMgU2F2ZSB0aGUgZGF0YQpjYXQoIldyaXRpbmcgcmVzdWx0cyB0byBFeGNlbC1maWxlLi4uXG4iKQojIyMgVW5pdmFyaWF0ZQpsaWJyYXJ5KG9wZW54bHN4KQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQ29uLk11bHRpLlByb3RlaW4uUGxhcXVlUGhlbm90eXBlcy5NT0RFTDIueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQ29uLk11bHRpLlBsYXF1ZVBoZW5vIikKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCgpgYGAKCkFuYWx5c2lzIG9mIGJpbmFyeSBwbGFxdWUgdHJhaXRzIGFzIGEgZnVuY3Rpb24gb2Ygc2VydW0vcGxhcXVlIElMNihSKS9NQ1AxIGxldmVscy4KYGBge3IgQ3Jvc3NTZWM6IHBsYXF1ZXMgLSBsb2dpc3RpYyByZWdyZXNzaW9uIE1PREVMMiwgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4pKSB7CiAgUFJPVEVJTiA9IFRSQUlUUy5QUk9URUlOW3Byb3RlaW5dCiAgY2F0KHBhc3RlMCgiXG5BbmFseXNpcyBvZiAiLFBST1RFSU4sIi5cbiIpKQogIGZvciAodHJhaXQgaW4gMTpsZW5ndGgoVFJBSVRTLkJJTikpIHsKICAgIFRSQUlUID0gVFJBSVRTLkJJTlt0cmFpdF0KICAgIGNhdChwYXN0ZTAoIlxuLSBwcm9jZXNzaW5nICIsVFJBSVQsIlxuXG4iKSkKICAgIGN1cnJlbnRERiA8LSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBICU+JQogICAgICBkcGx5cjo6c2VsZWN0KC4sIFBST1RFSU4sIFRSQUlULCBDT1ZBUklBVEVTX00yKSAlPiUKICAgICAgZmlsdGVyKGNvbXBsZXRlLmNhc2VzKC4pKSkgJT4lCiAgICAgIGZpbHRlcl9pZih+aXMubnVtZXJpYyguKSwgYWxsX3ZhcnMoIWlzLmluZmluaXRlKC4pKSkKICAgICMgZm9yIGRlYnVnCiAgICAjIHByaW50KERUOjpkYXRhdGFibGUoY3VycmVudERGKSkKICAgICMgcHJpbnQobnJvdyhjdXJyZW50REYpKQogICAgIyBwcmludChzdHIoY3VycmVudERGKSkKICAgICMgcHJpbnQoY2xhc3MoY3VycmVudERGWyxUUkFJVF0pKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIgKyAKICAgICAgICAgICAgICAgIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKyAKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIAogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSwgCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkJJTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQp9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJaLXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yX2wiLCAicl4yX2NzIiwgInJeMl9uYWdlbGtlcmtlIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFotdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJfbGAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2xgKQpHTE0ucmVzdWx0cyRgcl4yX2NzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfY3NgKQpHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKCiMjIyBVbml2YXJpYXRlCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5CaW4uTXVsdGkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLk1PREVMMi54bHN4IiksCiAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UsIGNvbC5uYW1lcyA9IFRSVUUsIHNoZWV0TmFtZSA9ICJCaW4uTXVsdGkuUGxhcXVlUGhlbm8iKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKIyMjIyBJbnZlcnNlLXJhbmsgbm9ybWFsaXphdGlvbgoKSGVyZSB3ZSB1c2UgdGhlIGludmVyc2UtcmFuayBub3JtYWxpemVkIGRhdGEgLSB2aXN1YWxseSB0aGlzIGlzIG1vcmUgbm9ybWFsbHkgZGlzdHJpYnV0ZWQuCgpBbmFseXNpcyBvZiBjb250aW51b3VzL3F1YW50aXRhdGl2ZSBwbGFxdWUgdHJhaXRzIGFzIGEgZnVuY3Rpb24gb2Ygc2VydW0vcGxhcXVlIElMNihSKS9NQ1AxIGxldmVscy4KYGBge3IgQ3Jvc3NTZWM6IHBsYXF1ZXMgLSBsaW5lYXIgcmVncmVzc2lvbiBNT0RFTDIgUkFOSywgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQpjYXQoIlJ1bm5pbmcgbGluZWFyIHJlZ3Jlc3Npb24uLi5cbiIpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dCiAgY2F0KHBhc3RlMCgiXG5BbmFseXNpcyBvZiAiLFBST1RFSU4sIi5cbiIpKQogIGZvciAodHJhaXQgaW4gMTpsZW5ndGgoVFJBSVRTLkNPTi5SQU5LKSkgewogICAgVFJBSVQgPSBUUkFJVFMuQ09OLlJBTktbdHJhaXRdCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NMikgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIyMgdW5pdmFyaWF0ZQogICAgZml0IDwtIGxtKGN1cnJlbnRERlssUFJPVEVJTl0gfiBjdXJyZW50REZbLFRSQUlUXSArIEFnZSArIEdlbmRlciArIAogICAgICAgICAgICAgICAgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArIAogICAgICAgICAgICAgICAgTWVkLlN0YXRpbi5MTEQgKyBNZWQuYWxsLmFudGlwbGF0ZWxldCArIEdGUl9NRFJEICsgQk1JICsgCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlLCAKICAgICAgICAgICAgICBkYXRhID0gY3VycmVudERGKQogICAgbW9kZWxfc3RlcCA8LSBzdGVwQUlDKGZpdCwgZGlyZWN0aW9uID0gImJvdGgiLCB0cmFjZSA9IEZBTFNFKQogICAgcHJpbnQobW9kZWxfc3RlcCkKICAgIHByaW50KHN1bW1hcnkoZml0KSkKICAgIAogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE1LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5DT04oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiVC12YWx1ZSIsICJQLXZhbHVlIiwgInJeMiIsICJyXjJfYWRqIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFQtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFQtdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMmApCkdMTS5yZXN1bHRzJGByXjJfYWRqYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfYWRqYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKIyMjIFVuaXZhcmlhdGUKbGlicmFyeShvcGVueGxzeCkKd3JpdGUueGxzeChHTE0ucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkNvbi5NdWx0aS5Qcm90ZWluLlBsYXF1ZVBoZW5vdHlwZXMuUkFOSy5NT0RFTDIueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQ29uLk11bHRpLlBsYXF1ZVBoZW5vIikKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCgpgYGAKCkFuYWx5c2lzIG9mIGJpbmFyeSBwbGFxdWUgdHJhaXRzIGFzIGEgZnVuY3Rpb24gb2Ygc2VydW0vcGxhcXVlIElMNihSKS9NQ1AxIGxldmVscy4KYGBge3IgQ3Jvc3NTZWM6IHBsYXF1ZXMgLSBsb2dpc3RpYyByZWdyZXNzaW9uIE1PREVMMiBSQU5LLCBpbmNsdWRlPVRSVUUsIHBhZ2VkLnByaW50PVRSVUV9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dCiAgY2F0KHBhc3RlMCgiXG5BbmFseXNpcyBvZiAiLFBST1RFSU4sIi5cbiIpKQogIGZvciAodHJhaXQgaW4gMTpsZW5ndGgoVFJBSVRTLkJJTikpIHsKICAgIFRSQUlUID0gVFJBSVRTLkJJTlt0cmFpdF0KICAgIGNhdChwYXN0ZTAoIlxuLSBwcm9jZXNzaW5nICIsVFJBSVQsIlxuXG4iKSkKICAgIGN1cnJlbnRERiA8LSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBICU+JQogICAgICBkcGx5cjo6c2VsZWN0KC4sIFBST1RFSU4sIFRSQUlULCBDT1ZBUklBVEVTX00yKSAlPiUKICAgICAgZmlsdGVyKGNvbXBsZXRlLmNhc2VzKC4pKSkgJT4lCiAgICAgIGZpbHRlcl9pZih+aXMubnVtZXJpYyguKSwgYWxsX3ZhcnMoIWlzLmluZmluaXRlKC4pKSkKICAgICMgZm9yIGRlYnVnCiAgICAjIHByaW50KERUOjpkYXRhdGFibGUoY3VycmVudERGKSkKICAgICMgcHJpbnQobnJvdyhjdXJyZW50REYpKQogICAgIyBwcmludChzdHIoY3VycmVudERGKSkKICAgICMgcHJpbnQoY2xhc3MoY3VycmVudERGWyxUUkFJVF0pKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIgKyAKICAgICAgICAgICAgICAgIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKyAKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIAogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSwgCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkJJTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQp9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJaLXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yX2wiLCAicl4yX2NzIiwgInJeMl9uYWdlbGtlcmtlIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFotdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJfbGAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2xgKQpHTE0ucmVzdWx0cyRgcl4yX2NzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfY3NgKQpHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKCiMjIyBVbml2YXJpYXRlCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5CaW4uTXVsdGkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLlJBTksuTU9ERUwyLnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkJpbi5NdWx0aS5QbGFxdWVQaGVubyIpCgojIFJlbW92aW5nIGludGVybWVkaWF0ZXMKY2F0KCJSZW1vdmluZyBpbnRlcm1lZGlhdGUgZmlsZXMuLi5cbiIpCnJtKFRSQUlULCB0cmFpdCwgY3VycmVudERGLCBHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCwgZml0LCBtb2RlbF9zdGVwKQoKYGBgCgojIyMgTW9kZWwgMwoKSW4gdGhpcyBtb2RlbCB3ZSBjb3JyZWN0IGZvciBfQWdlXywgX0dlbmRlcl8sIF9IeXBlcnRlbnNpb24gc3RhdHVzXywgX0RpYWJldGVzIHN0YXR1c18sIF9jdXJyZW50IHNtb2tlciBzdGF0dXNfLCBfbGlwaWQtbG93ZXJpbmcgZHJ1Z3MgKExMRHMpXywgX2FudGlwbGF0ZWxldCBtZWRpY2F0aW9uXywgX2VHRlIgKE1EUkQpXywgX0JNSV8sIF9DQUQgaGlzdG9yeV8sIF9zdHJva2UgaGlzdG9yeV8sIF9wZXJpcGhlcmFsIGludGVydmVudGlvbnNfLCBfc3Rlbm9zaXNfLCBhbmQgX0xETF8uCgojIyMjIE5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIGRhdGEKCkZpcnN0IHdlIHVzZSB0aGUgbmF0dXJhbC1sb2cgdHJhbnNmb3JtZWQgZGF0YS4KCkFuYWx5c2lzIG9mIGNvbnRpbnVvdXMvcXVhbnRpdGF0aXZlIHBsYXF1ZSB0cmFpdHMgYXMgYSBmdW5jdGlvbiBvZiBzZXJ1bS9wbGFxdWUgSUw2KFIpL01DUDEgbGV2ZWxzLgpgYGB7ciBDcm9zc1NlYzogcGxhcXVlcyAtIGxpbmVhciByZWdyZXNzaW9uIE1PREVMMywgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQpjYXQoIlJ1bm5pbmcgbGluZWFyIHJlZ3Jlc3Npb24uLi5cbiIpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTikpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU5bcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgZm9yICh0cmFpdCBpbiAxOmxlbmd0aChUUkFJVFMuQ09OKSkgewogICAgVFJBSVQgPSBUUkFJVFMuQ09OW3RyYWl0XQogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTMpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBsbShjdXJyZW50REZbLFBST1RFSU5dIH4gY3VycmVudERGWyxUUkFJVF0gKyBBZ2UgKyBHZW5kZXIgKyAKICAgICAgICAgICAgICAgIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKwogICAgICAgICAgICAgICAgTWVkLlN0YXRpbi5MTEQgKyBNZWQuYWxsLmFudGlwbGF0ZWxldCArIEdGUl9NRFJEICsgQk1JICsgCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgTERMX2ZpbmFsLCAKICAgICAgICAgICAgICBkYXRhID0gY3VycmVudERGKQogICAgbW9kZWxfc3RlcCA8LSBzdGVwQUlDKGZpdCwgZGlyZWN0aW9uID0gImJvdGgiLCB0cmFjZSA9IEZBTFNFKQogICAgcHJpbnQobW9kZWxfc3RlcCkKICAgIHByaW50KHN1bW1hcnkoZml0KSkKICAgIAogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE1LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5DT04oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiVC12YWx1ZSIsICJQLXZhbHVlIiwgInJeMiIsICJyXjJfYWRqIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFQtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFQtdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMmApCkdMTS5yZXN1bHRzJGByXjJfYWRqYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfYWRqYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKIyMjIFVuaXZhcmlhdGUKbGlicmFyeShvcGVueGxzeCkKd3JpdGUueGxzeChHTE0ucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkNvbi5NdWx0aS5Qcm90ZWluLlBsYXF1ZVBoZW5vdHlwZXMuTU9ERUwzLnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkNvbi5NdWx0aS5QbGFxdWVQaGVubyIpCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIHRyYWl0LCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgoKYGBgCgpBbmFseXNpcyBvZiBiaW5hcnkgcGxhcXVlIHRyYWl0cyBhcyBhIGZ1bmN0aW9uIG9mIHNlcnVtL3BsYXF1ZSBJTDYoUikvTUNQMSBsZXZlbHMuCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gbG9naXN0aWMgcmVncmVzc2lvbiBNT0RFTDMsIGluY2x1ZGU9VFJVRSwgcGFnZWQucHJpbnQ9VFJVRX0KCkdMTS5yZXN1bHRzIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKZm9yIChwcm90ZWluIGluIDE6bGVuZ3RoKFRSQUlUUy5QUk9URUlOKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTltwcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBmb3IgKHRyYWl0IGluIDE6bGVuZ3RoKFRSQUlUUy5CSU4pKSB7CiAgICBUUkFJVCA9IFRSQUlUUy5CSU5bdHJhaXRdCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NMykgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIHByaW50KGNsYXNzKGN1cnJlbnRERlssVFJBSVRdKSkKICAgICMjIyB1bml2YXJpYXRlCiAgICBmaXQgPC0gZ2xtKGFzLmZhY3RvcihjdXJyZW50REZbLFRSQUlUXSkgfiBjdXJyZW50REZbLFBST1RFSU5dICsgQWdlICsgR2VuZGVyICsgCiAgICAgICAgICAgICAgICBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsgCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKyAKICAgICAgICAgICAgICAgIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UgKyBMRExfZmluYWwsIAogICAgICAgICAgICAgIGRhdGEgID0gIGN1cnJlbnRERiwgZmFtaWx5ID0gYmlub21pYWwobGluayA9ICJsb2dpdCIpKQogICAgbW9kZWxfc3RlcCA8LSBzdGVwQUlDKGZpdCwgZGlyZWN0aW9uID0gImJvdGgiLCB0cmFjZSA9IEZBTFNFKQogICAgcHJpbnQobW9kZWxfc3RlcCkKICAgIHByaW50KHN1bW1hcnkoZml0KSkKICAgIAogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5CSU4oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLk11bHRpLlByb3RlaW4uUGxhcXVlUGhlbm90eXBlcy5NT0RFTDMueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQmluLk11bHRpLlBsYXF1ZVBoZW5vIikKCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIHRyYWl0LCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgpgYGAKCiMjIyMgSW52ZXJzZS1yYW5rIG5vcm1hbGl6YXRpb24KCkhlcmUgd2UgdXNlIHRoZSBpbnZlcnNlLXJhbmsgbm9ybWFsaXplZCBkYXRhIC0gdmlzdWFsbHkgdGhpcyBpcyBtb3JlIG5vcm1hbGx5IGRpc3RyaWJ1dGVkLgoKQW5hbHlzaXMgb2YgY29udGludW91cy9xdWFudGl0YXRpdmUgcGxhcXVlIHRyYWl0cyBhcyBhIGZ1bmN0aW9uIG9mIHNlcnVtL3BsYXF1ZSBJTDYoUikvTUNQMSBsZXZlbHMuCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gbGluZWFyIHJlZ3Jlc3Npb24gTU9ERUwzIFJBTkssIGluY2x1ZGU9VFJVRSwgcGFnZWQucHJpbnQ9VFJVRX0KCkdMTS5yZXN1bHRzIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTUsIG5yb3cgPSAwKSkKY2F0KCJSdW5uaW5nIGxpbmVhciByZWdyZXNzaW9uLi4uXG4iKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBmb3IgKHRyYWl0IGluIDE6bGVuZ3RoKFRSQUlUUy5DT04uUkFOSykpIHsKICAgIFRSQUlUID0gVFJBSVRTLkNPTi5SQU5LW3RyYWl0XQogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTMpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBsbShjdXJyZW50REZbLFBST1RFSU5dIH4gY3VycmVudERGWyxUUkFJVF0gKyBBZ2UgKyBHZW5kZXIgKyAKICAgICAgICAgICAgICAgIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKyAKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIAogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSArIExETF9maW5hbCwgCiAgICAgICAgICAgICAgZGF0YSA9IGN1cnJlbnRERikKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQ09OKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9Cn0KY2F0KCJFZGl0IHRoZSBjb2x1bW4gbmFtZXMuLi5cbiIpCmNvbG5hbWVzKEdMTS5yZXN1bHRzKSA9IGMoIkRhdGFzZXQiLCAiUHJlZGljdG9yIiwgIlRyYWl0IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiQmV0YSIsICJzLmUubS4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJPUiIsICJsb3c5NUNJIiwgInVwOTVDSSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlQtdmFsdWUiLCAiUC12YWx1ZSIsICJyXjIiLCAicl4yX2FkaiIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBULXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBULXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJgKQpHTE0ucmVzdWx0cyRgcl4yX2FkamAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2FkamApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCiMjIyBVbml2YXJpYXRlCmxpYnJhcnkob3Blbnhsc3gpCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5Db24uTXVsdGkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLlJBTksuTU9ERUwzLnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkNvbi5NdWx0aS5QbGFxdWVQaGVubyIpCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIHRyYWl0LCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgoKYGBgCgpBbmFseXNpcyBvZiBiaW5hcnkgcGxhcXVlIHRyYWl0cyBhcyBhIGZ1bmN0aW9uIG9mIHNlcnVtL3BsYXF1ZSBJTDYoUikvTUNQMSBsZXZlbHMuCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gbG9naXN0aWMgcmVncmVzc2lvbiBNT0RFTDMgUkFOSywgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBmb3IgKHRyYWl0IGluIDE6bGVuZ3RoKFRSQUlUUy5CSU4pKSB7CiAgICBUUkFJVCA9IFRSQUlUUy5CSU5bdHJhaXRdCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NMykgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIHByaW50KGNsYXNzKGN1cnJlbnRERlssVFJBSVRdKSkKICAgICMjIyB1bml2YXJpYXRlCiAgICBmaXQgPC0gZ2xtKGFzLmZhY3RvcihjdXJyZW50REZbLFRSQUlUXSkgfiBjdXJyZW50REZbLFBST1RFSU5dICsgQWdlICsgR2VuZGVyICsgCiAgICAgICAgICAgICAgICBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsgCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKyAKICAgICAgICAgICAgICAgIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UgKyBMRExfZmluYWwsIAogICAgICAgICAgICAgIGRhdGEgID0gIGN1cnJlbnRERiwgZmFtaWx5ID0gYmlub21pYWwobGluayA9ICJsb2dpdCIpKQogICAgbW9kZWxfc3RlcCA8LSBzdGVwQUlDKGZpdCwgZGlyZWN0aW9uID0gImJvdGgiLCB0cmFjZSA9IEZBTFNFKQogICAgcHJpbnQobW9kZWxfc3RlcCkKICAgIHByaW50KHN1bW1hcnkoZml0KSkKICAgIAogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5CSU4oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLk11bHRpLlByb3RlaW4uUGxhcXVlUGhlbm90eXBlcy5SQU5LLk1PREVMMy54bHN4IiksCiAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UsIGNvbC5uYW1lcyA9IFRSVUUsIHNoZWV0TmFtZSA9ICJCaW4uTXVsdGkuUGxhcXVlUGhlbm8iKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKIyMjIE1vZGVsIDQKCkluIHRoaXMgbW9kZWwgd2UgY29ycmVjdCBmb3IgX0FnZV8sIF9HZW5kZXJfLCBfSHlwZXJ0ZW5zaW9uIHN0YXR1c18sIF9EaWFiZXRlcyBzdGF0dXNfLCBfY3VycmVudCBzbW9rZXIgc3RhdHVzXywgX2xpcGlkLWxvd2VyaW5nIGRydWdzIChMTERzKV8sIF9hbnRpcGxhdGVsZXQgbWVkaWNhdGlvbl8sIF9lR0ZSIChNRFJEKV8sIF9CTUlfLCBfQ0FEIGhpc3RvcnlfLCBfc3Ryb2tlIGhpc3RvcnlfLCBfcGVyaXBoZXJhbCBpbnRlcnZlbnRpb25zXywgX3N0ZW5vc2lzXywgYW5kIF9oc0NSUF8uCgojIyMjIE5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIGRhdGEKCkZpcnN0IHdlIHVzZSB0aGUgbmF0dXJhbC1sb2cgdHJhbnNmb3JtZWQgZGF0YS4KCkFuYWx5c2lzIG9mIGNvbnRpbnVvdXMvcXVhbnRpdGF0aXZlIHBsYXF1ZSB0cmFpdHMgYXMgYSBmdW5jdGlvbiBvZiBzZXJ1bS9wbGFxdWUgSUw2KFIpL01DUDEgbGV2ZWxzLgpgYGB7ciBDcm9zc1NlYzogcGxhcXVlcyAtIGxpbmVhciByZWdyZXNzaW9uIE1PREVMNCwgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQpjYXQoIlJ1bm5pbmcgbGluZWFyIHJlZ3Jlc3Npb24uLi5cbiIpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTikpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU5bcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgZm9yICh0cmFpdCBpbiAxOmxlbmd0aChUUkFJVFMuQ09OKSkgewogICAgVFJBSVQgPSBUUkFJVFMuQ09OW3RyYWl0XQogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTQpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBsbShjdXJyZW50REZbLFBST1RFSU5dIH4gY3VycmVudERGWyxUUkFJVF0gKyBBZ2UgKyBHZW5kZXIgKyAKICAgICAgICAgICAgICAgIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKwogICAgICAgICAgICAgICAgTWVkLlN0YXRpbi5MTEQgKyBNZWQuYWxsLmFudGlwbGF0ZWxldCArIEdGUl9NRFJEICsgQk1JICsgCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgaHNDUlBfcGxhc21hLCAKICAgICAgICAgICAgICBkYXRhID0gY3VycmVudERGKQogICAgbW9kZWxfc3RlcCA8LSBzdGVwQUlDKGZpdCwgZGlyZWN0aW9uID0gImJvdGgiLCB0cmFjZSA9IEZBTFNFKQogICAgcHJpbnQobW9kZWxfc3RlcCkKICAgIHByaW50KHN1bW1hcnkoZml0KSkKICAgIAogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE1LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5DT04oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiVC12YWx1ZSIsICJQLXZhbHVlIiwgInJeMiIsICJyXjJfYWRqIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFQtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFQtdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMmApCkdMTS5yZXN1bHRzJGByXjJfYWRqYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfYWRqYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKIyMjIFVuaXZhcmlhdGUKbGlicmFyeShvcGVueGxzeCkKd3JpdGUueGxzeChHTE0ucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkNvbi5NdWx0aS5Qcm90ZWluLlBsYXF1ZVBoZW5vdHlwZXMuTU9ERUw0Lnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkNvbi5NdWx0aS5QbGFxdWVQaGVubyIpCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIHRyYWl0LCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgoKYGBgCgpBbmFseXNpcyBvZiBiaW5hcnkgcGxhcXVlIHRyYWl0cyBhcyBhIGZ1bmN0aW9uIG9mIHNlcnVtL3BsYXF1ZSBJTDYoUikvTUNQMSBsZXZlbHMuCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gbG9naXN0aWMgcmVncmVzc2lvbiBNT0RFTDQsIGluY2x1ZGU9VFJVRSwgcGFnZWQucHJpbnQ9VFJVRX0KCkdMTS5yZXN1bHRzIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKZm9yIChwcm90ZWluIGluIDE6bGVuZ3RoKFRSQUlUUy5QUk9URUlOKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTltwcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBmb3IgKHRyYWl0IGluIDE6bGVuZ3RoKFRSQUlUUy5CSU4pKSB7CiAgICBUUkFJVCA9IFRSQUlUUy5CSU5bdHJhaXRdCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NNCkgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIHByaW50KGNsYXNzKGN1cnJlbnRERlssVFJBSVRdKSkKICAgICMjIyB1bml2YXJpYXRlCiAgICBmaXQgPC0gZ2xtKGFzLmZhY3RvcihjdXJyZW50REZbLFRSQUlUXSkgfiBjdXJyZW50REZbLFBST1RFSU5dICsgQWdlICsgR2VuZGVyICsgCiAgICAgICAgICAgICAgICBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsgCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKyAKICAgICAgICAgICAgICAgIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UgKyBoc0NSUF9wbGFzbWEsIAogICAgICAgICAgICAgIGRhdGEgID0gIGN1cnJlbnRERiwgZmFtaWx5ID0gYmlub21pYWwobGluayA9ICJsb2dpdCIpKQogICAgbW9kZWxfc3RlcCA8LSBzdGVwQUlDKGZpdCwgZGlyZWN0aW9uID0gImJvdGgiLCB0cmFjZSA9IEZBTFNFKQogICAgcHJpbnQobW9kZWxfc3RlcCkKICAgIHByaW50KHN1bW1hcnkoZml0KSkKICAgIAogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5CSU4oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLk11bHRpLlByb3RlaW4uUGxhcXVlUGhlbm90eXBlcy5NT0RFTDQueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQmluLk11bHRpLlBsYXF1ZVBoZW5vIikKCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIHRyYWl0LCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgpgYGAKCiMjIyMgSW52ZXJzZS1yYW5rIG5vcm1hbGl6YXRpb24KCkhlcmUgd2UgdXNlIHRoZSBpbnZlcnNlLXJhbmsgbm9ybWFsaXplZCBkYXRhIC0gdmlzdWFsbHkgdGhpcyBpcyBtb3JlIG5vcm1hbGx5IGRpc3RyaWJ1dGVkLgoKQW5hbHlzaXMgb2YgY29udGludW91cy9xdWFudGl0YXRpdmUgcGxhcXVlIHRyYWl0cyBhcyBhIGZ1bmN0aW9uIG9mIHNlcnVtL3BsYXF1ZSBJTDYoUikvTUNQMSBsZXZlbHMuCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gbGluZWFyIHJlZ3Jlc3Npb24gTU9ERUw0IFJBTkssIGluY2x1ZGU9VFJVRSwgcGFnZWQucHJpbnQ9VFJVRX0KCkdMTS5yZXN1bHRzIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTUsIG5yb3cgPSAwKSkKY2F0KCJSdW5uaW5nIGxpbmVhciByZWdyZXNzaW9uLi4uXG4iKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBmb3IgKHRyYWl0IGluIDE6bGVuZ3RoKFRSQUlUUy5DT04uUkFOSykpIHsKICAgIFRSQUlUID0gVFJBSVRTLkNPTi5SQU5LW3RyYWl0XQogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTQpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBsbShjdXJyZW50REZbLFBST1RFSU5dIH4gY3VycmVudERGWyxUUkFJVF0gKyBBZ2UgKyBHZW5kZXIgKyAKICAgICAgICAgICAgICAgIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKyAKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIAogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSArIGhzQ1JQX3BsYXNtYSwgCiAgICAgICAgICAgICAgZGF0YSA9IGN1cnJlbnRERikKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQ09OKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9Cn0KY2F0KCJFZGl0IHRoZSBjb2x1bW4gbmFtZXMuLi5cbiIpCmNvbG5hbWVzKEdMTS5yZXN1bHRzKSA9IGMoIkRhdGFzZXQiLCAiUHJlZGljdG9yIiwgIlRyYWl0IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiQmV0YSIsICJzLmUubS4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJPUiIsICJsb3c5NUNJIiwgInVwOTVDSSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlQtdmFsdWUiLCAiUC12YWx1ZSIsICJyXjIiLCAicl4yX2FkaiIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBULXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBULXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJgKQpHTE0ucmVzdWx0cyRgcl4yX2FkamAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2FkamApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCiMjIyBVbml2YXJpYXRlCmxpYnJhcnkob3Blbnhsc3gpCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5Db24uTXVsdGkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLlJBTksuTU9ERUw0Lnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkNvbi5NdWx0aS5QbGFxdWVQaGVubyIpCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIHRyYWl0LCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgoKYGBgCgpBbmFseXNpcyBvZiBiaW5hcnkgcGxhcXVlIHRyYWl0cyBhcyBhIGZ1bmN0aW9uIG9mIHNlcnVtL3BsYXF1ZSBJTDYoUikvTUNQMSBsZXZlbHMuCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gbG9naXN0aWMgcmVncmVzc2lvbiBNT0RFTDQgUkFOSywgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBmb3IgKHRyYWl0IGluIDE6bGVuZ3RoKFRSQUlUUy5CSU4pKSB7CiAgICBUUkFJVCA9IFRSQUlUUy5CSU5bdHJhaXRdCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NNCkgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIHByaW50KGNsYXNzKGN1cnJlbnRERlssVFJBSVRdKSkKICAgICMjIyB1bml2YXJpYXRlCiAgICBmaXQgPC0gZ2xtKGFzLmZhY3RvcihjdXJyZW50REZbLFRSQUlUXSkgfiBjdXJyZW50REZbLFBST1RFSU5dICsgQWdlICsgR2VuZGVyICsgCiAgICAgICAgICAgICAgICBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsgCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKyAKICAgICAgICAgICAgICAgIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UgKyBoc0NSUF9wbGFzbWEsIAogICAgICAgICAgICAgIGRhdGEgID0gIGN1cnJlbnRERiwgZmFtaWx5ID0gYmlub21pYWwobGluayA9ICJsb2dpdCIpKQogICAgbW9kZWxfc3RlcCA8LSBzdGVwQUlDKGZpdCwgZGlyZWN0aW9uID0gImJvdGgiLCB0cmFjZSA9IEZBTFNFKQogICAgcHJpbnQobW9kZWxfc3RlcCkKICAgIHByaW50KHN1bW1hcnkoZml0KSkKICAgIAogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5CSU4oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLk11bHRpLlByb3RlaW4uUGxhcXVlUGhlbm90eXBlcy5SQU5LLk1PREVMNC54bHN4IiksCiAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UsIGNvbC5uYW1lcyA9IFRSVUUsIHNoZWV0TmFtZSA9ICJCaW4uTXVsdGkuUGxhcXVlUGhlbm8iKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKIyMjIE1vZGVsIDUKCkluIHRoaXMgbW9kZWwgd2UgY29ycmVjdCBmb3IgX0FnZV8sIF9HZW5kZXJfLCBfSHlwZXJ0ZW5zaW9uIHN0YXR1c18sIF9EaWFiZXRlcyBzdGF0dXNfLCBfY3VycmVudCBzbW9rZXIgc3RhdHVzXywgX2xpcGlkLWxvd2VyaW5nIGRydWdzIChMTERzKV8sIF9hbnRpcGxhdGVsZXQgbWVkaWNhdGlvbl8sIF9lR0ZSIChNRFJEKV8sIF9CTUlfLCBfQ0FEIGhpc3RvcnlfLCBfc3Ryb2tlIGhpc3RvcnlfLCBfcGVyaXBoZXJhbCBpbnRlcnZlbnRpb25zXywgX3N0ZW5vc2lzXywgYW5kIF9JTDYgaW4gcGxhcXVlc18uCgojIyMjIE5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIGRhdGEKCkZpcnN0IHdlIHVzZSB0aGUgbmF0dXJhbC1sb2cgdHJhbnNmb3JtZWQgZGF0YS4KCkFuYWx5c2lzIG9mIGNvbnRpbnVvdXMvcXVhbnRpdGF0aXZlIHBsYXF1ZSB0cmFpdHMgYXMgYSBmdW5jdGlvbiBvZiBzZXJ1bS9wbGFxdWUgSUw2KFIpL01DUDEgbGV2ZWxzLgpgYGB7ciBDcm9zc1NlYzogcGxhcXVlcyAtIGxpbmVhciByZWdyZXNzaW9uIE1PREVMNSwgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQpjYXQoIlJ1bm5pbmcgbGluZWFyIHJlZ3Jlc3Npb24uLi5cbiIpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTikpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU5bcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgZm9yICh0cmFpdCBpbiAxOmxlbmd0aChUUkFJVFMuQ09OKSkgewogICAgVFJBSVQgPSBUUkFJVFMuQ09OW3RyYWl0XQogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTUpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBsbShjdXJyZW50REZbLFBST1RFSU5dIH4gY3VycmVudERGWyxUUkFJVF0gKyBBZ2UgKyBHZW5kZXIgKyAKICAgICAgICAgICAgICAgIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKwogICAgICAgICAgICAgICAgTWVkLlN0YXRpbi5MTEQgKyBNZWQuYWxsLmFudGlwbGF0ZWxldCArIEdGUl9NRFJEICsgQk1JICsgCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgSUw2X3BnX3VnXzIwMTVfTE4sIAogICAgICAgICAgICAgIGRhdGEgPSBjdXJyZW50REYpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTUsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkNPTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQp9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJULXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yIiwgInJeMl9hZGoiLCAiQUVfTiIsICJNb2RlbF9OIiwgIlBlcmNfTWlzcyIpCgpjYXQoIkNvcnJlY3QgdGhlIHZhcmlhYmxlIHR5cGVzLi4uXG4iKQpHTE0ucmVzdWx0cyRCZXRhIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkQmV0YSkKR0xNLnJlc3VsdHMkcy5lLm0uIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkcy5lLm0uKQpHTE0ucmVzdWx0cyRPUiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJE9SKQpHTE0ucmVzdWx0cyRsb3c5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkbG93OTVDSSkKR0xNLnJlc3VsdHMkdXA5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkdXA5NUNJKQpHTE0ucmVzdWx0cyRgVC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgVC12YWx1ZWApCkdMTS5yZXN1bHRzJGBQLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQLXZhbHVlYCkKR0xNLnJlc3VsdHMkYHJeMmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yYCkKR0xNLnJlc3VsdHMkYHJeMl9hZGpgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9hZGpgKQpHTE0ucmVzdWx0cyRgQUVfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgQUVfTmApCkdMTS5yZXN1bHRzJGBNb2RlbF9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBNb2RlbF9OYCkKR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCkKCiMgU2F2ZSB0aGUgZGF0YQpjYXQoIldyaXRpbmcgcmVzdWx0cyB0byBFeGNlbC1maWxlLi4uXG4iKQojIyMgVW5pdmFyaWF0ZQpsaWJyYXJ5KG9wZW54bHN4KQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQ29uLk11bHRpLlByb3RlaW4uUGxhcXVlUGhlbm90eXBlcy5NT0RFTDUueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQ29uLk11bHRpLlBsYXF1ZVBoZW5vIikKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgdHJhaXQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCgpgYGAKCkFuYWx5c2lzIG9mIGJpbmFyeSBwbGFxdWUgdHJhaXRzIGFzIGEgZnVuY3Rpb24gb2Ygc2VydW0vcGxhcXVlIElMNihSKS9NQ1AxIGxldmVscy4KYGBge3IgQ3Jvc3NTZWM6IHBsYXF1ZXMgLSBsb2dpc3RpYyByZWdyZXNzaW9uIE1PREVMNSwgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4pKSB7CiAgUFJPVEVJTiA9IFRSQUlUUy5QUk9URUlOW3Byb3RlaW5dCiAgY2F0KHBhc3RlMCgiXG5BbmFseXNpcyBvZiAiLFBST1RFSU4sIi5cbiIpKQogIGZvciAodHJhaXQgaW4gMTpsZW5ndGgoVFJBSVRTLkJJTikpIHsKICAgIFRSQUlUID0gVFJBSVRTLkJJTlt0cmFpdF0KICAgIGNhdChwYXN0ZTAoIlxuLSBwcm9jZXNzaW5nICIsVFJBSVQsIlxuXG4iKSkKICAgIGN1cnJlbnRERiA8LSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBICU+JQogICAgICBkcGx5cjo6c2VsZWN0KC4sIFBST1RFSU4sIFRSQUlULCBDT1ZBUklBVEVTX001KSAlPiUKICAgICAgZmlsdGVyKGNvbXBsZXRlLmNhc2VzKC4pKSkgJT4lCiAgICAgIGZpbHRlcl9pZih+aXMubnVtZXJpYyguKSwgYWxsX3ZhcnMoIWlzLmluZmluaXRlKC4pKSkKICAgICMgZm9yIGRlYnVnCiAgICAjIHByaW50KERUOjpkYXRhdGFibGUoY3VycmVudERGKSkKICAgICMgcHJpbnQobnJvdyhjdXJyZW50REYpKQogICAgIyBwcmludChzdHIoY3VycmVudERGKSkKICAgICMgcHJpbnQoY2xhc3MoY3VycmVudERGWyxUUkFJVF0pKQogICAgIyMjIHVuaXZhcmlhdGUKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIgKyAKICAgICAgICAgICAgICAgIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKyAKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIAogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSArIElMNl9wZ191Z18yMDE1X0xOLCAKICAgICAgICAgICAgICBkYXRhICA9ICBjdXJyZW50REYsIGZhbWlseSA9IGJpbm9taWFsKGxpbmsgPSAibG9naXQiKSkKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQklOKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9Cn0KY2F0KCJFZGl0IHRoZSBjb2x1bW4gbmFtZXMuLi5cbiIpCmNvbG5hbWVzKEdMTS5yZXN1bHRzKSA9IGMoIkRhdGFzZXQiLCAiUHJlZGljdG9yIiwgIlRyYWl0IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiQmV0YSIsICJzLmUubS4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJPUiIsICJsb3c5NUNJIiwgInVwOTVDSSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlotdmFsdWUiLCAiUC12YWx1ZSIsICJyXjJfbCIsICJyXjJfY3MiLCAicl4yX25hZ2Vsa2Vya2UiLCAiQUVfTiIsICJNb2RlbF9OIiwgIlBlcmNfTWlzcyIpCgpjYXQoIkNvcnJlY3QgdGhlIHZhcmlhYmxlIHR5cGVzLi4uXG4iKQpHTE0ucmVzdWx0cyRCZXRhIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkQmV0YSkKR0xNLnJlc3VsdHMkcy5lLm0uIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkcy5lLm0uKQpHTE0ucmVzdWx0cyRPUiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJE9SKQpHTE0ucmVzdWx0cyRsb3c5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkbG93OTVDSSkKR0xNLnJlc3VsdHMkdXA5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkdXA5NUNJKQpHTE0ucmVzdWx0cyRgWi12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgWi12YWx1ZWApCkdMTS5yZXN1bHRzJGBQLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQLXZhbHVlYCkKR0xNLnJlc3VsdHMkYHJeMl9sYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbGApCkdMTS5yZXN1bHRzJGByXjJfY3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9jc2ApCkdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgKQpHTE0ucmVzdWx0cyRgQUVfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgQUVfTmApCkdMTS5yZXN1bHRzJGBNb2RlbF9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBNb2RlbF9OYCkKR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCkKCiMgU2F2ZSB0aGUgZGF0YQpjYXQoIldyaXRpbmcgcmVzdWx0cyB0byBFeGNlbC1maWxlLi4uXG4iKQoKIyMjIFVuaXZhcmlhdGUKd3JpdGUueGxzeChHTE0ucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkJpbi5NdWx0aS5Qcm90ZWluLlBsYXF1ZVBoZW5vdHlwZXMuTU9ERUw1Lnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkJpbi5NdWx0aS5QbGFxdWVQaGVubyIpCgojIFJlbW92aW5nIGludGVybWVkaWF0ZXMKY2F0KCJSZW1vdmluZyBpbnRlcm1lZGlhdGUgZmlsZXMuLi5cbiIpCnJtKFRSQUlULCB0cmFpdCwgY3VycmVudERGLCBHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCwgZml0LCBtb2RlbF9zdGVwKQoKYGBgCgojIyMjIEludmVyc2UtcmFuayBub3JtYWxpemF0aW9uCgpIZXJlIHdlIHVzZSB0aGUgaW52ZXJzZS1yYW5rIG5vcm1hbGl6ZWQgZGF0YSAtIHZpc3VhbGx5IHRoaXMgaXMgbW9yZSBub3JtYWxseSBkaXN0cmlidXRlZC4KCkFuYWx5c2lzIG9mIGNvbnRpbnVvdXMvcXVhbnRpdGF0aXZlIHBsYXF1ZSB0cmFpdHMgYXMgYSBmdW5jdGlvbiBvZiBzZXJ1bS9wbGFxdWUgSUw2KFIpL01DUDEgbGV2ZWxzLgpgYGB7ciBDcm9zc1NlYzogcGxhcXVlcyAtIGxpbmVhciByZWdyZXNzaW9uIE1PREVMNSBSQU5LLCBpbmNsdWRlPVRSVUUsIHBhZ2VkLnByaW50PVRSVUV9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE1LCBucm93ID0gMCkpCmNhdCgiUnVubmluZyBsaW5lYXIgcmVncmVzc2lvbi4uLlxuIikKZm9yIChwcm90ZWluIGluIDE6bGVuZ3RoKFRSQUlUUy5QUk9URUlOLlJBTkspKSB7CiAgUFJPVEVJTiA9IFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgZm9yICh0cmFpdCBpbiAxOmxlbmd0aChUUkFJVFMuQ09OLlJBTkspKSB7CiAgICBUUkFJVCA9IFRSQUlUUy5DT04uUkFOS1t0cmFpdF0KICAgIGNhdChwYXN0ZTAoIlxuLSBwcm9jZXNzaW5nICIsVFJBSVQsIlxuXG4iKSkKICAgIGN1cnJlbnRERiA8LSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBICU+JQogICAgICBkcGx5cjo6c2VsZWN0KC4sIFBST1RFSU4sIFRSQUlULCBDT1ZBUklBVEVTX001cmFuaykgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIyMgdW5pdmFyaWF0ZQogICAgZml0IDwtIGxtKGN1cnJlbnRERlssUFJPVEVJTl0gfiBjdXJyZW50REZbLFRSQUlUXSArIEFnZSArIEdlbmRlciArIAogICAgICAgICAgICAgICAgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArIAogICAgICAgICAgICAgICAgTWVkLlN0YXRpbi5MTEQgKyBNZWQuYWxsLmFudGlwbGF0ZWxldCArIEdGUl9NRFJEICsgQk1JICsgCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgSUw2X3BnX3VnXzIwMTVfcmFuaywgCiAgICAgICAgICAgICAgZGF0YSA9IGN1cnJlbnRERikKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNSwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQ09OKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9Cn0KY2F0KCJFZGl0IHRoZSBjb2x1bW4gbmFtZXMuLi5cbiIpCmNvbG5hbWVzKEdMTS5yZXN1bHRzKSA9IGMoIkRhdGFzZXQiLCAiUHJlZGljdG9yIiwgIlRyYWl0IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiQmV0YSIsICJzLmUubS4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJPUiIsICJsb3c5NUNJIiwgInVwOTVDSSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlQtdmFsdWUiLCAiUC12YWx1ZSIsICJyXjIiLCAicl4yX2FkaiIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBULXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBULXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJgKQpHTE0ucmVzdWx0cyRgcl4yX2FkamAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2FkamApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCiMjIyBVbml2YXJpYXRlCmxpYnJhcnkob3Blbnhsc3gpCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5Db24uTXVsdGkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLlJBTksuTU9ERUw1Lnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkNvbi5NdWx0aS5QbGFxdWVQaGVubyIpCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIHRyYWl0LCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgoKYGBgCgpBbmFseXNpcyBvZiBiaW5hcnkgcGxhcXVlIHRyYWl0cyBhcyBhIGZ1bmN0aW9uIG9mIHNlcnVtL3BsYXF1ZSBJTDYoUikvTUNQMSBsZXZlbHMuCmBgYHtyIENyb3NzU2VjOiBwbGFxdWVzIC0gbG9naXN0aWMgcmVncmVzc2lvbiBNT0RFTDUgUkFOSywgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBmb3IgKHRyYWl0IGluIDE6bGVuZ3RoKFRSQUlUUy5CSU4pKSB7CiAgICBUUkFJVCA9IFRSQUlUUy5CSU5bdHJhaXRdCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NNXJhbmspICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyBwcmludChjbGFzcyhjdXJyZW50REZbLFRSQUlUXSkpCiAgICAjIyMgdW5pdmFyaWF0ZQogICAgZml0IDwtIGdsbShhcy5mYWN0b3IoY3VycmVudERGWyxUUkFJVF0pIH4gY3VycmVudERGWyxQUk9URUlOXSArIEFnZSArIEdlbmRlciArIAogICAgICAgICAgICAgICAgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArIAogICAgICAgICAgICAgICAgTWVkLlN0YXRpbi5MTEQgKyBNZWQuYWxsLmFudGlwbGF0ZWxldCArIEdGUl9NRFJEICsgQk1JICsgCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgSUw2X3BnX3VnXzIwMTVfcmFuaywgCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkJJTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQp9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJaLXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yX2wiLCAicl4yX2NzIiwgInJeMl9uYWdlbGtlcmtlIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFotdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJfbGAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2xgKQpHTE0ucmVzdWx0cyRgcl4yX2NzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfY3NgKQpHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKCiMjIyBVbml2YXJpYXRlCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5CaW4uTXVsdGkuUHJvdGVpbi5QbGFxdWVQaGVub3R5cGVzLlJBTksuTU9ERUw1Lnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkJpbi5NdWx0aS5QbGFxdWVQaGVubyIpCgojIFJlbW92aW5nIGludGVybWVkaWF0ZXMKY2F0KCJSZW1vdmluZyBpbnRlcm1lZGlhdGUgZmlsZXMuLi5cbiIpCnJtKFRSQUlULCB0cmFpdCwgY3VycmVudERGLCBHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCwgZml0LCBtb2RlbF9zdGVwKQoKYGBgCgoKIyMgQi4gQ3Jvc3Mtc2VjdGlvbmFsIGFuYWx5c2lzIHN5bXB0b21zCgpXZSB3aWxsIHBlcmZvcm0gYSBjcm9zcy1zZWN0aW9uYWwgYW5hbHlzaXMgYmV0d2VlbiBwbGFxdWUgYW5kIHNlcnVtIE1DUDEsIElMNiwgYW5kIElMNlIgbGV2ZWxzIGFuZCB0aGUgJ2NsaW5pY2FsIHN0YXR1cycgb2YgdGhlIHBsYXF1ZSBpbiB0ZXJtcyBvZiBwcmVzZW5jZSBvZiBwYXRpZW50cycgc3ltcHRvbXMgKHN5bXB0b21hdGljIHZzLiBhc3ltcHRvbWF0aWMpLiBUaGUgc3ltcHRvbXMgb2YgaW50ZXJlc3QgYXJlOgoKLSBzdHJva2UKLSBUSUEKLSByZXRpbmFsIGluZmFyY3Rpb24KLSBhbWF1cm9zaXMgZnVnYXgKLSBhc3ltcHRvbWF0aWMKCiMjIyBNb2RlbCAxCgpJbiB0aGlzIG1vZGVsIHdlIGNvcnJlY3QgZm9yIF9BZ2VfLCBhbmQgX0dlbmRlcl8uCgojIyMjIE5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIGRhdGEKCkZpcnN0IHdlIHVzZSB0aGUgbmF0dXJhbC1sb2cgdHJhbnNmb3JtZWQgZGF0YS4KCmBgYHtyIENyb3NzU2VjOiBzeW1wdG9tcyAtIGxvZ2lzdGljIHJlZ3Jlc3Npb24gTU9ERUwxLCBpbmNsdWRlPVRSVUUsIHBhZ2VkLnByaW50PVRSVUV9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTikpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU5bcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgVFJBSVQgPSAiQXN5bXB0U3ltcHQiCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NMSkgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIHByaW50KGNsYXNzKGN1cnJlbnRERlssVFJBSVRdKSkKICAgICMjIyB1bml2YXJpYXRlCiAgICAgIyArIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKyAKICAgICAjICAgICAgICAgICAgTWVkLlN0YXRpbi5MTEQgKyBNZWQuYWxsLmFudGlwbGF0ZWxldCArIEdGUl9NRFJEICsgQk1JICsgCiAgICAgIyAgICAgICAgICAgIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIsIAogICAgICAgICAgICAgIGRhdGEgID0gIGN1cnJlbnRERiwgZmFtaWx5ID0gYmlub21pYWwobGluayA9ICJsb2dpdCIpKQogICAgbW9kZWxfc3RlcCA8LSBzdGVwQUlDKGZpdCwgZGlyZWN0aW9uID0gImJvdGgiLCB0cmFjZSA9IEZBTFNFKQogICAgcHJpbnQobW9kZWxfc3RlcCkKICAgIHByaW50KHN1bW1hcnkoZml0KSkKICAgIAogICAgR0xNLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCiAgICBHTE0ucmVzdWx0cy5URU1QWzEsXSA9IEdMTS5CSU4oZml0LCAiQUVEQi5DRUEiLCBQUk9URUlOLCBUUkFJVCwgdmVyYm9zZSA9IFRSVUUpCiAgICBHTE0ucmVzdWx0cyA9IHJiaW5kKEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QKQogIH0KY2F0KCJFZGl0IHRoZSBjb2x1bW4gbmFtZXMuLi5cbiIpCmNvbG5hbWVzKEdMTS5yZXN1bHRzKSA9IGMoIkRhdGFzZXQiLCAiUHJlZGljdG9yIiwgIlRyYWl0IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiQmV0YSIsICJzLmUubS4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJPUiIsICJsb3c5NUNJIiwgInVwOTVDSSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlotdmFsdWUiLCAiUC12YWx1ZSIsICJyXjJfbCIsICJyXjJfY3MiLCAicl4yX25hZ2Vsa2Vya2UiLCAiQUVfTiIsICJNb2RlbF9OIiwgIlBlcmNfTWlzcyIpCgpjYXQoIkNvcnJlY3QgdGhlIHZhcmlhYmxlIHR5cGVzLi4uXG4iKQpHTE0ucmVzdWx0cyRCZXRhIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkQmV0YSkKR0xNLnJlc3VsdHMkcy5lLm0uIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkcy5lLm0uKQpHTE0ucmVzdWx0cyRPUiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJE9SKQpHTE0ucmVzdWx0cyRsb3c5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkbG93OTVDSSkKR0xNLnJlc3VsdHMkdXA5NUNJIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkdXA5NUNJKQpHTE0ucmVzdWx0cyRgWi12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgWi12YWx1ZWApCkdMTS5yZXN1bHRzJGBQLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQLXZhbHVlYCkKR0xNLnJlc3VsdHMkYHJeMl9sYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbGApCkdMTS5yZXN1bHRzJGByXjJfY3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9jc2ApCkdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgKQpHTE0ucmVzdWx0cyRgQUVfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgQUVfTmApCkdMTS5yZXN1bHRzJGBNb2RlbF9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBNb2RlbF9OYCkKR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCkKCiMgU2F2ZSB0aGUgZGF0YQpjYXQoIldyaXRpbmcgcmVzdWx0cyB0byBFeGNlbC1maWxlLi4uXG4iKQoKIyMjIFVuaXZhcmlhdGUKd3JpdGUueGxzeChHTE0ucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkJpbi5VbmkuUHJvdGVpbi5TeW1wdG9tcy5NT0RFTDEueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQmluLlVuaS5TeW1wdG9tcyIpCgojIFJlbW92aW5nIGludGVybWVkaWF0ZXMKY2F0KCJSZW1vdmluZyBpbnRlcm1lZGlhdGUgZmlsZXMuLi5cbiIpCnJtKFRSQUlULCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgpgYGAKCiMjIyMgSW52ZXJzZS1yYW5rIG5vcm1hbGl6YXRpb24KCkhlcmUgd2UgdXNlIHRoZSBpbnZlcnNlLXJhbmsgbm9ybWFsaXplZCBkYXRhIC0gdmlzdWFsbHkgdGhpcyBpcyBtb3JlIG5vcm1hbGx5IGRpc3RyaWJ1dGVkLgoKYGBge3IgQ3Jvc3NTZWM6IHN5bXB0b21zIC0gbG9naXN0aWMgcmVncmVzc2lvbiBNT0RFTDEgUkFOSywgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBUUkFJVCA9ICJBc3ltcHRTeW1wdCIKICAgIGNhdChwYXN0ZTAoIlxuLSBwcm9jZXNzaW5nICIsVFJBSVQsIlxuXG4iKSkKICAgIGN1cnJlbnRERiA8LSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBICU+JQogICAgICBkcGx5cjo6c2VsZWN0KC4sIFBST1RFSU4sIFRSQUlULCBDT1ZBUklBVEVTX00xKSAlPiUKICAgICAgZmlsdGVyKGNvbXBsZXRlLmNhc2VzKC4pKSkgJT4lCiAgICAgIGZpbHRlcl9pZih+aXMubnVtZXJpYyguKSwgYWxsX3ZhcnMoIWlzLmluZmluaXRlKC4pKSkKICAgICMgZm9yIGRlYnVnCiAgICAjIHByaW50KERUOjpkYXRhdGFibGUoY3VycmVudERGKSkKICAgICMgcHJpbnQobnJvdyhjdXJyZW50REYpKQogICAgIyBwcmludChzdHIoY3VycmVudERGKSkKICAgICMgcHJpbnQoY2xhc3MoY3VycmVudERGWyxUUkFJVF0pKQogICAgIyMjIHVuaXZhcmlhdGUKICAgICAjICsgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArIAogICAgICMgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKyAKICAgICAjICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZQogICAgZml0IDwtIGdsbShhcy5mYWN0b3IoY3VycmVudERGWyxUUkFJVF0pIH4gY3VycmVudERGWyxQUk9URUlOXSArIEFnZSArIEdlbmRlciwgCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkJJTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLlVuaS5Qcm90ZWluLlJBTksuU3ltcHRvbXMuTU9ERUwxLnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkJpbi5VbmkuU3ltcHRvbXMiKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgY3VycmVudERGLCBHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCwgZml0LCBtb2RlbF9zdGVwKQoKYGBgCgojIyMgTW9kZWwgMgoKSW4gdGhpcyBtb2RlbCB3ZSBjb3JyZWN0IGZvciBfQWdlXywgX0dlbmRlcl8sIF9IeXBlcnRlbnNpb24gc3RhdHVzXywgX0RpYWJldGVzIHN0YXR1c18sIF9jdXJyZW50IHNtb2tlciBzdGF0dXNfLCBfbGlwaWQtbG93ZXJpbmcgZHJ1Z3MgKExMRHMpXywgX2FudGlwbGF0ZWxldCBtZWRpY2F0aW9uXywgX2VHRlIgKE1EUkQpXywgX0JNSV8sIF9DQUQgaGlzdG9yeV8sIF9zdHJva2UgaGlzdG9yeV8sIF9wZXJpcGhlcmFsIGludGVydmVudGlvbnNfLCBhbmQgX3N0ZW5vc2lzLl8uCgojIyMjIE5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIGRhdGEKCkZpcnN0IHdlIHVzZSB0aGUgbmF0dXJhbC1sb2cgdHJhbnNmb3JtZWQgZGF0YS4KCmBgYHtyIENyb3NzU2VjOiBzeW1wdG9tcyAtIGxvZ2lzdGljIHJlZ3Jlc3Npb24gTU9ERUwyLCBpbmNsdWRlPVRSVUUsIHBhZ2VkLnByaW50PVRSVUV9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTikpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU5bcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgVFJBSVQgPSAiQXN5bXB0U3ltcHQiCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NMikgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIHByaW50KGNsYXNzKGN1cnJlbnRERlssVFJBSVRdKSkKICAgICMjIyB1bml2YXJpYXRlCiAgICAgCiAgICBmaXQgPC0gZ2xtKGFzLmZhY3RvcihjdXJyZW50REZbLFRSQUlUXSkgfiBjdXJyZW50REZbLFBST1RFSU5dICsgQWdlICsgR2VuZGVyICsgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKwogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSwgCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkJJTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLk11bHRpLlByb3RlaW4uU3ltcHRvbXMuTU9ERUwyLnhsc3giKSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgc2hlZXROYW1lID0gIkJpbi5NdWx0aS5TeW1wdG9tcyIpCgojIFJlbW92aW5nIGludGVybWVkaWF0ZXMKY2F0KCJSZW1vdmluZyBpbnRlcm1lZGlhdGUgZmlsZXMuLi5cbiIpCnJtKFRSQUlULCBjdXJyZW50REYsIEdMTS5yZXN1bHRzLCBHTE0ucmVzdWx0cy5URU1QLCBmaXQsIG1vZGVsX3N0ZXApCgpgYGAKCiMjIyMgSW52ZXJzZS1yYW5rIG5vcm1hbGl6YXRpb24KCkhlcmUgd2UgdXNlIHRoZSBpbnZlcnNlLXJhbmsgbm9ybWFsaXplZCBkYXRhIC0gdmlzdWFsbHkgdGhpcyBpcyBtb3JlIG5vcm1hbGx5IGRpc3RyaWJ1dGVkLgoKYGBge3IgQ3Jvc3NTZWM6IHN5bXB0b21zIC0gbG9naXN0aWMgcmVncmVzc2lvbiBNT0RFTDIgUkFOSywgaW5jbHVkZT1UUlVFLCBwYWdlZC5wcmludD1UUlVFfQoKR0xNLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQpmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBUUkFJVCA9ICJBc3ltcHRTeW1wdCIKICAgIGNhdChwYXN0ZTAoIlxuLSBwcm9jZXNzaW5nICIsVFJBSVQsIlxuXG4iKSkKICAgIGN1cnJlbnRERiA8LSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBICU+JQogICAgICBkcGx5cjo6c2VsZWN0KC4sIFBST1RFSU4sIFRSQUlULCBDT1ZBUklBVEVTX00yKSAlPiUKICAgICAgZmlsdGVyKGNvbXBsZXRlLmNhc2VzKC4pKSkgJT4lCiAgICAgIGZpbHRlcl9pZih+aXMubnVtZXJpYyguKSwgYWxsX3ZhcnMoIWlzLmluZmluaXRlKC4pKSkKICAgICMgZm9yIGRlYnVnCiAgICAjIHByaW50KERUOjpkYXRhdGFibGUoY3VycmVudERGKSkKICAgICMgcHJpbnQobnJvdyhjdXJyZW50REYpKQogICAgIyBwcmludChzdHIoY3VycmVudERGKSkKICAgICMgcHJpbnQoY2xhc3MoY3VycmVudERGWyxUUkFJVF0pKQogICAgIyMjIHVuaXZhcmlhdGUKCiAgICBmaXQgPC0gZ2xtKGFzLmZhY3RvcihjdXJyZW50REZbLFRSQUlUXSkgfiBjdXJyZW50REZbLFBST1RFSU5dICsgQWdlICsgR2VuZGVyICsgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKwogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSwgCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkJJTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLk11bHRpLlByb3RlaW4uUkFOSy5TeW1wdG9tcy5NT0RFTDIueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQmluLk11bHRpLlN5bXB0b21zIikKCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKIyMjIE1vZGVsIDMKCkluIHRoaXMgbW9kZWwgd2UgY29ycmVjdCBmb3IgX0FnZV8sIF9HZW5kZXJfLCBfSHlwZXJ0ZW5zaW9uIHN0YXR1c18sIF9EaWFiZXRlcyBzdGF0dXNfLCBfY3VycmVudCBzbW9rZXIgc3RhdHVzXywgX2xpcGlkLWxvd2VyaW5nIGRydWdzIChMTERzKV8sIF9hbnRpcGxhdGVsZXQgbWVkaWNhdGlvbl8sIF9lR0ZSIChNRFJEKV8sIF9CTUlfLCBfQ0FEIGhpc3RvcnlfLCBfc3Ryb2tlIGhpc3RvcnlfLCBfcGVyaXBoZXJhbCBpbnRlcnZlbnRpb25zXywgX3N0ZW5vc2lzLl8sIGFuZCBfTERMXy4KCiMjIyMgTmF0dXJhbCBsb2ctdHJhbnNmb3JtZWQgZGF0YQoKRmlyc3Qgd2UgdXNlIHRoZSBuYXR1cmFsLWxvZyB0cmFuc2Zvcm1lZCBkYXRhLgoKYGBge3IgQ3Jvc3NTZWM6IHN5bXB0b21zIC0gbG9naXN0aWMgcmVncmVzc2lvbiBNT0RFTDMsIGluY2x1ZGU9VFJVRSwgcGFnZWQucHJpbnQ9VFJVRX0KCkdMTS5yZXN1bHRzIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKZm9yIChwcm90ZWluIGluIDE6bGVuZ3RoKFRSQUlUUy5QUk9URUlOKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTltwcm90ZWluXQogIGNhdChwYXN0ZTAoIlxuQW5hbHlzaXMgb2YgIixQUk9URUlOLCIuXG4iKSkKICBUUkFJVCA9ICJBc3ltcHRTeW1wdCIKICAgIGNhdChwYXN0ZTAoIlxuLSBwcm9jZXNzaW5nICIsVFJBSVQsIlxuXG4iKSkKICAgIGN1cnJlbnRERiA8LSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBICU+JQogICAgICBkcGx5cjo6c2VsZWN0KC4sIFBST1RFSU4sIFRSQUlULCBDT1ZBUklBVEVTX00zKSAlPiUKICAgICAgZmlsdGVyKGNvbXBsZXRlLmNhc2VzKC4pKSkgJT4lCiAgICAgIGZpbHRlcl9pZih+aXMubnVtZXJpYyguKSwgYWxsX3ZhcnMoIWlzLmluZmluaXRlKC4pKSkKICAgICMgZm9yIGRlYnVnCiAgICAjIHByaW50KERUOjpkYXRhdGFibGUoY3VycmVudERGKSkKICAgICMgcHJpbnQobnJvdyhjdXJyZW50REYpKQogICAgIyBwcmludChzdHIoY3VycmVudERGKSkKICAgICMgcHJpbnQoY2xhc3MoY3VycmVudERGWyxUUkFJVF0pKQogICAgIyMjIHVuaXZhcmlhdGUKICAgICAKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIgKyBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgTERMX2ZpbmFsLCAKICAgICAgICAgICAgICBkYXRhICA9ICBjdXJyZW50REYsIGZhbWlseSA9IGJpbm9taWFsKGxpbmsgPSAibG9naXQiKSkKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQklOKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJaLXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yX2wiLCAicl4yX2NzIiwgInJeMl9uYWdlbGtlcmtlIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFotdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJfbGAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2xgKQpHTE0ucmVzdWx0cyRgcl4yX2NzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfY3NgKQpHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKCiMjIyBVbml2YXJpYXRlCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5CaW4uTXVsdGkuUHJvdGVpbi5TeW1wdG9tcy5NT0RFTDMueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQmluLk11bHRpLlN5bXB0b21zIikKCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKIyMjIyBJbnZlcnNlLXJhbmsgbm9ybWFsaXphdGlvbgoKSGVyZSB3ZSB1c2UgdGhlIGludmVyc2UtcmFuayBub3JtYWxpemVkIGRhdGEgLSB2aXN1YWxseSB0aGlzIGlzIG1vcmUgbm9ybWFsbHkgZGlzdHJpYnV0ZWQuCgpgYGB7ciBDcm9zc1NlYzogc3ltcHRvbXMgLSBsb2dpc3RpYyByZWdyZXNzaW9uIE1PREVMMyBSQU5LLCBpbmNsdWRlPVRSVUUsIHBhZ2VkLnByaW50PVRSVUV9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dCiAgY2F0KHBhc3RlMCgiXG5BbmFseXNpcyBvZiAiLFBST1RFSU4sIi5cbiIpKQogIFRSQUlUID0gIkFzeW1wdFN5bXB0IgogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTMpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyBwcmludChjbGFzcyhjdXJyZW50REZbLFRSQUlUXSkpCiAgICAjIyMgdW5pdmFyaWF0ZQoKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIgKyBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgTERMX2ZpbmFsLCAKICAgICAgICAgICAgICBkYXRhICA9ICBjdXJyZW50REYsIGZhbWlseSA9IGJpbm9taWFsKGxpbmsgPSAibG9naXQiKSkKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQklOKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJaLXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yX2wiLCAicl4yX2NzIiwgInJeMl9uYWdlbGtlcmtlIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFotdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJfbGAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2xgKQpHTE0ucmVzdWx0cyRgcl4yX2NzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfY3NgKQpHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKCiMjIyBVbml2YXJpYXRlCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5CaW4uTXVsdGkuUHJvdGVpbi5SQU5LLlN5bXB0b21zLk1PREVMMy54bHN4IiksCiAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UsIGNvbC5uYW1lcyA9IFRSVUUsIHNoZWV0TmFtZSA9ICJCaW4uTXVsdGkuU3ltcHRvbXMiKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgY3VycmVudERGLCBHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCwgZml0LCBtb2RlbF9zdGVwKQoKYGBgCgojIyMgTW9kZWwgNAoKSW4gdGhpcyBtb2RlbCB3ZSBjb3JyZWN0IGZvciBfQWdlXywgX0dlbmRlcl8sIF9IeXBlcnRlbnNpb24gc3RhdHVzXywgX0RpYWJldGVzIHN0YXR1c18sIF9jdXJyZW50IHNtb2tlciBzdGF0dXNfLCBfbGlwaWQtbG93ZXJpbmcgZHJ1Z3MgKExMRHMpXywgX2FudGlwbGF0ZWxldCBtZWRpY2F0aW9uXywgX2VHRlIgKE1EUkQpXywgX0JNSV8sIF9DQUQgaGlzdG9yeV8sIF9zdHJva2UgaGlzdG9yeV8sIF9wZXJpcGhlcmFsIGludGVydmVudGlvbnNfLCBfc3Rlbm9zaXMuXywgYW5kIF9oc0NSUF8uCgojIyMjIE5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIGRhdGEKCkZpcnN0IHdlIHVzZSB0aGUgbmF0dXJhbC1sb2cgdHJhbnNmb3JtZWQgZGF0YS4KCmBgYHtyIENyb3NzU2VjOiBzeW1wdG9tcyAtIGxvZ2lzdGljIHJlZ3Jlc3Npb24gTU9ERUw0LCBpbmNsdWRlPVRSVUUsIHBhZ2VkLnByaW50PVRSVUV9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTikpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU5bcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgVFJBSVQgPSAiQXN5bXB0U3ltcHQiCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NNCkgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIHByaW50KGNsYXNzKGN1cnJlbnRERlssVFJBSVRdKSkKICAgICMjIyB1bml2YXJpYXRlCiAgICAgCiAgICBmaXQgPC0gZ2xtKGFzLmZhY3RvcihjdXJyZW50REZbLFRSQUlUXSkgfiBjdXJyZW50REZbLFBST1RFSU5dICsgQWdlICsgR2VuZGVyICsgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKwogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSArIGhzQ1JQX3BsYXNtYSwgCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkJJTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLk11bHRpLlByb3RlaW4uUkFOSy5TeW1wdG9tcy5NT0RFTDQueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQmluLk11bHRpLlN5bXB0b21zIikKCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKIyMjIyBJbnZlcnNlLXJhbmsgbm9ybWFsaXphdGlvbgoKSGVyZSB3ZSB1c2UgdGhlIGludmVyc2UtcmFuayBub3JtYWxpemVkIGRhdGEgLSB2aXN1YWxseSB0aGlzIGlzIG1vcmUgbm9ybWFsbHkgZGlzdHJpYnV0ZWQuCgpgYGB7ciBDcm9zc1NlYzogc3ltcHRvbXMgLSBsb2dpc3RpYyByZWdyZXNzaW9uIE1PREVMNCBSQU5LLCBpbmNsdWRlPVRSVUUsIHBhZ2VkLnByaW50PVRSVUV9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSkgewogIFBST1RFSU4gPSBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dCiAgY2F0KHBhc3RlMCgiXG5BbmFseXNpcyBvZiAiLFBST1RFSU4sIi5cbiIpKQogIFRSQUlUID0gIkFzeW1wdFN5bXB0IgogICAgY2F0KHBhc3RlMCgiXG4tIHByb2Nlc3NpbmcgIixUUkFJVCwiXG5cbiIpKQogICAgY3VycmVudERGIDwtIGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEgJT4lCiAgICAgIGRwbHlyOjpzZWxlY3QoLiwgUFJPVEVJTiwgVFJBSVQsIENPVkFSSUFURVNfTTQpICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyBwcmludChjbGFzcyhjdXJyZW50REZbLFRSQUlUXSkpCiAgICAjIyMgdW5pdmFyaWF0ZQoKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIgKyBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgaHNDUlBfcGxhc21hLCAKICAgICAgICAgICAgICBkYXRhICA9ICBjdXJyZW50REYsIGZhbWlseSA9IGJpbm9taWFsKGxpbmsgPSAibG9naXQiKSkKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQklOKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJaLXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yX2wiLCAicl4yX2NzIiwgInJeMl9uYWdlbGtlcmtlIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFotdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJfbGAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2xgKQpHTE0ucmVzdWx0cyRgcl4yX2NzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfY3NgKQpHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKCiMjIyBVbml2YXJpYXRlCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5CaW4uTXVsdGkuUHJvdGVpbi5SQU5LLlN5bXB0b21zLk1PREVMNC54bHN4IiksCiAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UsIGNvbC5uYW1lcyA9IFRSVUUsIHNoZWV0TmFtZSA9ICJCaW4uTXVsdGkuU3ltcHRvbXMiKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgY3VycmVudERGLCBHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCwgZml0LCBtb2RlbF9zdGVwKQoKYGBgCgojIyMgTW9kZWwgNQoKSW4gdGhpcyBtb2RlbCB3ZSBjb3JyZWN0IGZvciBfQWdlXywgX0dlbmRlcl8sIF9IeXBlcnRlbnNpb24gc3RhdHVzXywgX0RpYWJldGVzIHN0YXR1c18sIF9jdXJyZW50IHNtb2tlciBzdGF0dXNfLCBfbGlwaWQtbG93ZXJpbmcgZHJ1Z3MgKExMRHMpXywgX2FudGlwbGF0ZWxldCBtZWRpY2F0aW9uXywgX2VHRlIgKE1EUkQpXywgX0JNSV8sIF9DQUQgaGlzdG9yeV8sIF9zdHJva2UgaGlzdG9yeV8sIF9wZXJpcGhlcmFsIGludGVydmVudGlvbnNfLCBfc3Rlbm9zaXMuXywgYW5kIF9JTDYgaW4gcGxhcXVlc18uCgojIyMjIE5hdHVyYWwgbG9nLXRyYW5zZm9ybWVkIGRhdGEKCkZpcnN0IHdlIHVzZSB0aGUgbmF0dXJhbC1sb2cgdHJhbnNmb3JtZWQgZGF0YS4KCmBgYHtyIENyb3NzU2VjOiBzeW1wdG9tcyAtIGxvZ2lzdGljIHJlZ3Jlc3Npb24gTU9ERUw1LCBpbmNsdWRlPVRSVUUsIHBhZ2VkLnByaW50PVRSVUV9CgpHTE0ucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDE2LCBucm93ID0gMCkpCmZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTikpIHsKICBQUk9URUlOID0gVFJBSVRTLlBST1RFSU5bcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgVFJBSVQgPSAiQXN5bXB0U3ltcHQiCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NNSkgJT4lCiAgICAgIGZpbHRlcihjb21wbGV0ZS5jYXNlcyguKSkpICU+JQogICAgICBmaWx0ZXJfaWYofmlzLm51bWVyaWMoLiksIGFsbF92YXJzKCFpcy5pbmZpbml0ZSguKSkpCiAgICAjIGZvciBkZWJ1ZwogICAgIyBwcmludChEVDo6ZGF0YXRhYmxlKGN1cnJlbnRERikpCiAgICAjIHByaW50KG5yb3coY3VycmVudERGKSkKICAgICMgcHJpbnQoc3RyKGN1cnJlbnRERikpCiAgICAjIHByaW50KGNsYXNzKGN1cnJlbnRERlssVFJBSVRdKSkKICAgICMjIyB1bml2YXJpYXRlCiAgICAgCiAgICBmaXQgPC0gZ2xtKGFzLmZhY3RvcihjdXJyZW50REZbLFRSQUlUXSkgfiBjdXJyZW50REZbLFBST1RFSU5dICsgQWdlICsgR2VuZGVyICsgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArCiAgICAgICAgICAgICAgICBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKwogICAgICAgICAgICAgICAgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSArIElMNl9wZ191Z18yMDE1X0xOLCAKICAgICAgICAgICAgICBkYXRhICA9ICBjdXJyZW50REYsIGZhbWlseSA9IGJpbm9taWFsKGxpbmsgPSAibG9naXQiKSkKICAgIG1vZGVsX3N0ZXAgPC0gc3RlcEFJQyhmaXQsIGRpcmVjdGlvbiA9ICJib3RoIiwgdHJhY2UgPSBGQUxTRSkKICAgIHByaW50KG1vZGVsX3N0ZXApCiAgICBwcmludChzdW1tYXJ5KGZpdCkpCiAgICAKICAgIEdMTS5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxNiwgbnJvdyA9IDApKQogICAgR0xNLnJlc3VsdHMuVEVNUFsxLF0gPSBHTE0uQklOKGZpdCwgIkFFREIuQ0VBIiwgUFJPVEVJTiwgVFJBSVQsIHZlcmJvc2UgPSBUUlVFKQogICAgR0xNLnJlc3VsdHMgPSByYmluZChHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCkKICB9CmNhdCgiRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhHTE0ucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIlByZWRpY3RvciIsICJUcmFpdCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiT1IiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJaLXZhbHVlIiwgIlAtdmFsdWUiLCAicl4yX2wiLCAicl4yX2NzIiwgInJeMl9uYWdlbGtlcmtlIiwgIkFFX04iLCAiTW9kZWxfTiIsICJQZXJjX01pc3MiKQoKY2F0KCJDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKR0xNLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJEJldGEpCkdMTS5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHMuZS5tLikKR0xNLnJlc3VsdHMkT1IgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRPUikKR0xNLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGxvdzk1Q0kpCkdMTS5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJHVwOTVDSSkKR0xNLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFotdmFsdWVgKQpHTE0ucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgUC12YWx1ZWApCkdMTS5yZXN1bHRzJGByXjJfbGAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2xgKQpHTE0ucmVzdWx0cyRgcl4yX2NzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfY3NgKQpHTE0ucmVzdWx0cyRgcl4yX25hZ2Vsa2Vya2VgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCkKR0xNLnJlc3VsdHMkYEFFX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYEFFX05gKQpHTE0ucmVzdWx0cyRgTW9kZWxfTmAgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgTW9kZWxfTmApCkdMTS5yZXN1bHRzJGBQZXJjX01pc3NgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFBlcmNfTWlzc2ApCgojIFNhdmUgdGhlIGRhdGEKY2F0KCJXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKCiMjIyBVbml2YXJpYXRlCndyaXRlLnhsc3goR0xNLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5CaW4uTXVsdGkuUHJvdGVpbi5SQU5LLlN5bXB0b21zLk1PREVMNS54bHN4IiksCiAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UsIGNvbC5uYW1lcyA9IFRSVUUsIHNoZWV0TmFtZSA9ICJCaW4uTXVsdGkuU3ltcHRvbXMiKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShUUkFJVCwgY3VycmVudERGLCBHTE0ucmVzdWx0cywgR0xNLnJlc3VsdHMuVEVNUCwgZml0LCBtb2RlbF9zdGVwKQoKYGBgCgojIyMjIEludmVyc2UtcmFuayBub3JtYWxpemF0aW9uCgpIZXJlIHdlIHVzZSB0aGUgaW52ZXJzZS1yYW5rIG5vcm1hbGl6ZWQgZGF0YSAtIHZpc3VhbGx5IHRoaXMgaXMgbW9yZSBub3JtYWxseSBkaXN0cmlidXRlZC4KCmBgYHtyIENyb3NzU2VjOiBzeW1wdG9tcyAtIGxvZ2lzdGljIHJlZ3Jlc3Npb24gTU9ERUw1IFJBTkssIGluY2x1ZGU9VFJVRSwgcGFnZWQucHJpbnQ9VFJVRX0KCkdMTS5yZXN1bHRzIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKZm9yIChwcm90ZWluIGluIDE6bGVuZ3RoKFRSQUlUUy5QUk9URUlOLlJBTkspKSB7CiAgUFJPVEVJTiA9IFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0KICBjYXQocGFzdGUwKCJcbkFuYWx5c2lzIG9mICIsUFJPVEVJTiwiLlxuIikpCiAgVFJBSVQgPSAiQXN5bXB0U3ltcHQiCiAgICBjYXQocGFzdGUwKCJcbi0gcHJvY2Vzc2luZyAiLFRSQUlULCJcblxuIikpCiAgICBjdXJyZW50REYgPC0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSAlPiUKICAgICAgZHBseXI6OnNlbGVjdCguLCBQUk9URUlOLCBUUkFJVCwgQ09WQVJJQVRFU19NNXJhbmspICU+JQogICAgICBmaWx0ZXIoY29tcGxldGUuY2FzZXMoLikpKSAlPiUKICAgICAgZmlsdGVyX2lmKH5pcy5udW1lcmljKC4pLCBhbGxfdmFycyghaXMuaW5maW5pdGUoLikpKQogICAgIyBmb3IgZGVidWcKICAgICMgcHJpbnQoRFQ6OmRhdGF0YWJsZShjdXJyZW50REYpKQogICAgIyBwcmludChucm93KGN1cnJlbnRERikpCiAgICAjIHByaW50KHN0cihjdXJyZW50REYpKQogICAgIyBwcmludChjbGFzcyhjdXJyZW50REZbLFRSQUlUXSkpCiAgICAjIyMgdW5pdmFyaWF0ZQoKICAgIGZpdCA8LSBnbG0oYXMuZmFjdG9yKGN1cnJlbnRERlssVFJBSVRdKSB+IGN1cnJlbnRERlssUFJPVEVJTl0gKyBBZ2UgKyBHZW5kZXIgKyBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsKICAgICAgICAgICAgICAgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArCiAgICAgICAgICAgICAgICBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlICsgSUw2X3BnX3VnXzIwMTVfcmFuaywgCiAgICAgICAgICAgICAgZGF0YSAgPSAgY3VycmVudERGLCBmYW1pbHkgPSBiaW5vbWlhbChsaW5rID0gImxvZ2l0IikpCiAgICBtb2RlbF9zdGVwIDwtIHN0ZXBBSUMoZml0LCBkaXJlY3Rpb24gPSAiYm90aCIsIHRyYWNlID0gRkFMU0UpCiAgICBwcmludChtb2RlbF9zdGVwKQogICAgcHJpbnQoc3VtbWFyeShmaXQpKQogICAgCiAgICBHTE0ucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTYsIG5yb3cgPSAwKSkKICAgIEdMTS5yZXN1bHRzLlRFTVBbMSxdID0gR0xNLkJJTihmaXQsICJBRURCLkNFQSIsIFBST1RFSU4sIFRSQUlULCB2ZXJib3NlID0gVFJVRSkKICAgIEdMTS5yZXN1bHRzID0gcmJpbmQoR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVApCiAgfQpjYXQoIkVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoR0xNLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJQcmVkaWN0b3IiLCAiVHJhaXQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIk9SIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgInJeMl9sIiwgInJeMl9jcyIsICJyXjJfbmFnZWxrZXJrZSIsICJBRV9OIiwgIk1vZGVsX04iLCAiUGVyY19NaXNzIikKCmNhdCgiQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkdMTS5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRCZXRhKQpHTE0ucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRzLmUubS4pCkdMTS5yZXN1bHRzJE9SIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkT1IpCkdMTS5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRsb3c5NUNJKQpHTE0ucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyR1cDk1Q0kpCkdMTS5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBaLXZhbHVlYCkKR0xNLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYFAtdmFsdWVgKQpHTE0ucmVzdWx0cyRgcl4yX2xgIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYHJeMl9sYCkKR0xNLnJlc3VsdHMkYHJeMl9jc2AgPC0gYXMubnVtZXJpYyhHTE0ucmVzdWx0cyRgcl4yX2NzYCkKR0xNLnJlc3VsdHMkYHJeMl9uYWdlbGtlcmtlYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGByXjJfbmFnZWxrZXJrZWApCkdMTS5yZXN1bHRzJGBBRV9OYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBBRV9OYCkKR0xNLnJlc3VsdHMkYE1vZGVsX05gIDwtIGFzLm51bWVyaWMoR0xNLnJlc3VsdHMkYE1vZGVsX05gKQpHTE0ucmVzdWx0cyRgUGVyY19NaXNzYCA8LSBhcy5udW1lcmljKEdMTS5yZXN1bHRzJGBQZXJjX01pc3NgKQoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCgojIyMgVW5pdmFyaWF0ZQp3cml0ZS54bHN4KEdMTS5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQmluLk11bHRpLlByb3RlaW4uUkFOSy5TeW1wdG9tcy5NT0RFTDUueGxzeCIpLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBzaGVldE5hbWUgPSAiQmluLk11bHRpLlN5bXB0b21zIikKCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIlJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKcm0oVFJBSVQsIGN1cnJlbnRERiwgR0xNLnJlc3VsdHMsIEdMTS5yZXN1bHRzLlRFTVAsIGZpdCwgbW9kZWxfc3RlcCkKCmBgYAoKCiMjIEMuIExvbmdpdHVkaW5hbCBhbmFseXNpcyBzZWNvbmRhcnkgY2xpbmljYWwgb3V0Y29tZQoKRm9yIHRoZSBsb25naXR1ZGluYWwgYW5hbHlzZXMgb2YgcGxhcXVlIGFuZCBzZXJ1bSBNQ1AxLCBJTDYsIGFuZCBJTDZSIGxldmVscyBhbmQgc2Vjb25kYXJ5IGNhcmRpb3Zhc2N1bGFyIGV2ZW50cyBvdmVyIGEgdGhyZWUteWVhciBmb2xsb3ctdXAgcGVyaW9kLiAKClRoZSBfcHJpbWFyeSBvdXRjb21lXyBpcyBkZWZpbmVkIGFzICJhIGNvbXBvc2l0ZSBvZiBmYXRhbCBvciBub24tZmF0YWwgbXlvY2FyZGlhbCBpbmZhcmN0aW9uLCBmYXRhbCBvciBub24tZmF0YWwgc3Ryb2tlLCBydXB0dXJlZCBhb3J0aWMgYW5ldXJ5c20sIGZhdGFsIGNhcmRpYWMgZmFpbHVyZSwgY29yb25hcnkgb3IgcGVyaXBoZXJhbCBpbnRlcnZlbnRpb25zLCBsZWcgYW1wdXRhdGlvbiBkdWUgdG8gdmFzY3VsYXIgY2F1c2VzLCBhbmQgY2FyZGlvdmFzY3VsYXIgZGVhdGgiLCBpLmUuIG1ham9yIGFkdmVyc2UgY2FyZGlvdmFzY3VsYXIgZXZlbnRzIChNQUNFKS4gVmFyaWFibGU6IGBlcG1ham9yLjN5ZWFyc2AsIHRoZXNlIGluY2x1ZGU6Ci0gbXlvY2FyZGlhbCBpbmZhcmN0aW9uIChNSSkKLSBjZXJlYnJhbCBpbmZhcmN0aW9uIChDVkEvc3Ryb2tlKQotIGNhcmRpb3Zhc2N1bGFyIGRlYXRoIChleGFjdCBjYXVzZSB0byBiZSBpbnZlc3RpZ2F0ZWQpCi0gY2VyZWJyYWwgYmxlZWRpbmcgKENWQS9zdHJva2UpCi0gZmF0YWwgbXlvY2FyZGlhbCBpbmZhcmN0aW9uIChNSSkKLSBmYXRhbCBjZXJlYnJhbCBpbmZhcmN0aW9uCi0gZmF0YWwgY2VyZWJyYWwgYmxlZWRpbmcKLSBzdWRkZW4gZGVhdGgKLSBmYXRhbCBoZWFydCBmYWlsdXJlCi0gZmF0YWwgYW5ldXJ5c20gcnVwdHVyZQotIG90aGVyIGNhcmRpb3Zhc2N1bGFyIGRlYXRoLi4KClRoZSBfc2Vjb25kYXJ5IG91dGNvbWVzXyB3aWxsIGJlIAoKLSBpbmNpZGVuY2Ugb2YgZmF0YWwgb3Igbm9uLWZhdGFsIHN0cm9rZSAoaXNjaGVtaWMgYW5kIGJsZWVkaW5nKSAtIHZhcmlhYmxlOiBgZXBzdHJva2UuM3llYXJzYCwgdGhlc2UgaW5jbHVkZToKICAtIGNlcmVicmFsIGluZmFyY3Rpb24gKENWQS9zdHJva2UpCiAgLSBjZXJlYnJhbCBibGVlZGluZyAoQ1ZBL3N0cm9rZSkKICAtIGZhdGFsIGNlcmVicmFsIGluZmFyY3Rpb24KICAtIGZhdGFsIGNlcmVicmFsIGJsZWVkaW5nLgotIGluY2lkZW5jZSBvZiBhY3V0ZSBjb3JvbmFyeSBldmVudHMgKGZhdGFsIG9yIG5vbi1mYXRhbCBteW9jYXJkaWFsIGluZmFyY3Rpb24sIGNvcm9uYXJ5IGludGVydmVudGlvbnMpIC0gdmFyaWFibGU6IGBlcGNvcm9uYXJ5LjN5ZWFyc2AsIHRoZXNlIGluY2x1ZGU6CiAgLSBteW9jYXJkaWFsIGluZmFyY3Rpb24gKE1JKQogIC0gY29yb25hcnkgYW5naW9wbGFzdHkgKFBDSS9QVENBKQogIC0gY2FyZGlvdmFzY3VsYXIgZGVhdGggKGV4YWN0IGNhdXNlIHRvIGJlIGludmVzdGlnYXRlZCkKICAtIGNvcm9uYXJ5IGJ5cGFzcyAoQ0FCRykKICAtIGZhdGFsIG15b2NhcmRpYWwgaW5mYXJjdGlvbiAoTUkpCiAgLSBzdWRkZW4gZGVhdGguCi0gY2FyZGlvdmFzY3VsYXIgZGVhdGggLSB2YXJpYWJsZTogYGVwY3ZkZWF0aC4zeWVhcnNgLCB0aGVzZSBpbmNsdWRlOgogIC0gY2FyZGlvdmFzY3VsYXIgZGVhdGggKGV4YWN0IGNhdXNlIHRvIGJlIGludmVzdGlnYXRlZCkKICAtIGZhdGFsIG15b2NhcmRpYWwgaW5mYXJjdGlvbiAoTUkpCiAgLSBmYXRhbCBjZXJlYnJhbCBpbmZhcmN0aW9uCiAgLSBmYXRhbCBjZXJlYnJhbCBibGVlZGluZwogIC0gc3VkZGVuIGRlYXRoCiAgLSBmYXRhbCBoZWFydCBmYWlsdXJlCiAgLSBmYXRhbCBhbmV1cnlzbSBydXB0dXJlCiAgLSBvdGhlciBjYXJkaW92YXNjdWxhciBkZWF0aC4uCgojIyMgU2FuaXR5IGNoZWNrcwoKRmlyc3Qgd2UgZG8gc29tZSBzYW5pdHkgY2hlY2tzIGFuZCBpbnZlbnRvcnkgdGhlIHRpbWUtdG8tZXZlbnQgYW5kIGV2ZW50IHZhcmlhYmxlcy4KCmBgYHtyIENveC1yZWdyZXNzaW9uczogR2VuZXJhbH0KIyBSZWZlcmVuY2U6IGh0dHBzOi8vYmlvY29uZHVjdG9yLm9yZy9wYWNrYWdlcy9kZXZlbC9iaW9jL3ZpZ25ldHRlcy9NdWx0aUFzc2F5RXhwZXJpbWVudC9pbnN0L2RvYy9RdWlja1N0YXJ0TXVsdGlBc3NheS5odG1sCiMgSWYgeW91IHdhbnQgdG8gc3VwcHJlc3Mgd2FybmluZ3MgYW5kIG1lc3NhZ2VzIHdoZW4gaW5zdGFsbGluZy9sb2FkaW5nIHBhY2thZ2VzCiMgc3VwcHJlc3NQYWNrYWdlU3RhcnR1cE1lc3NhZ2VzKHt9KQppbnN0YWxsLnBhY2thZ2VzLmF1dG8oInN1cnZpdmFsIikKaW5zdGFsbC5wYWNrYWdlcy5hdXRvKCJzdXJ2bWluZXIiKQppbnN0YWxsLnBhY2thZ2VzLmF1dG8oIkhtaXNjIikKCmNhdCgiKiBDcmVhdGluZyBmdW5jdGlvbiB0byBzdW1tYXJpemUgQ294IHJlZ3Jlc3Npb24gYW5kIHByZXBhcmUgY29udGFpbmVyIGZvciByZXN1bHRzLiIpCiMgRnVuY3Rpb24gdG8gZ2V0IHN1bW1hcnkgc3RhdGlzdGljcyBmcm9tIENveCByZWdyZXNzaW9uIG1vZGVsCkNPWC5TVEFUIDwtIGZ1bmN0aW9uKGNveGZpdCwgREFUQVNFVCwgT1VUQ09NRSwgcHJvdGVpbil7CiAgY2F0KCJTdW1tYXJpemluZyBDb3ggcmVncmVzc2lvbiByZXN1bHRzIGZvciAnIiwgcHJvdGVpbiAsIicgYW5kIGl0cyBhc3NvY2lhdGlvbiB0byAnIixPVVRDT01FLCInIGluICciLERBVEFTRVQsIicuXG4iKQogIGlmIChucm93KHN1bW1hcnkoY294Zml0KSRjb2VmZmljaWVudHMpID09IDEpIHsKICAgIG91dHB1dCA9IGMocHJvdGVpbiwgcmVwKE5BLDgpKQogICAgY2F0KCJNb2RlbCBub3QgZml0dGVkOyBwcm9iYWJseSBzaW5ndWxhci5cbiIpCiAgfWVsc2UgewogICAgY2F0KCJDb2xsZWN0aW5nIGRhdGEuXG5cbiIpCiAgICBjb3guc3VtIDwtIHN1bW1hcnkoY294Zml0KQogICAgY294LmVmZmVjdHNpemUgPSBjb3guc3VtJGNvZWZmaWNpZW50c1sxLDFdCiAgICBjb3guU0UgPSBjb3guc3VtJGNvZWZmaWNpZW50c1sxLDNdCiAgICBjb3guSFJlZmZlY3QgPSBjb3guc3VtJGNvZWZmaWNpZW50c1sxLDJdCiAgICBjb3guQ0lfbG93ID0gZXhwKGNveC5lZmZlY3RzaXplIC0gMS45NiAqIGNveC5TRSkKICAgIGNveC5DSV91cCA9IGV4cChjb3guZWZmZWN0c2l6ZSArIDEuOTYgKiBjb3guU0UpCiAgICBjb3guenZhbHVlID0gY294LnN1bSRjb2VmZmljaWVudHNbMSw0XQogICAgY294LnB2YWx1ZSA9IGNveC5zdW0kY29lZmZpY2llbnRzWzEsNV0KICAgIGNveC5zYW1wbGVfc2l6ZSA9IGNveC5zdW0kbgogICAgY294Lm5ldmVudHMgPSBjb3guc3VtJG5ldmVudAogICAgCiAgICBvdXRwdXQgPSBjKERBVEFTRVQsIE9VVENPTUUsIHByb3RlaW4sIGNveC5lZmZlY3RzaXplLCBjb3guU0UsIGNveC5IUmVmZmVjdCwgY294LkNJX2xvdywgY294LkNJX3VwLCBjb3guenZhbHVlLCBjb3gucHZhbHVlLCBjb3guc2FtcGxlX3NpemUsIGNveC5uZXZlbnRzKQogICAgY2F0KCJXZSBoYXZlIGNvbGxlY3RlZCB0aGUgZm9sbG93aW5nOlxuIikKICAgIGNhdCgiRGF0YXNldCB1c2VkLi4uLi4uLi4uLi4uLi46IiwgREFUQVNFVCwgIlxuIikKICAgIGNhdCgiT3V0Y29tZSBhbmFseXplZC4uLi4uLi4uLi46IiwgT1VUQ09NRSwgIlxuIikKICAgIGNhdCgiUHJvdGVpbi4uLi4uLi4uLi4uLi4uLi4uLi46IiwgcHJvdGVpbiwgIlxuIikKICAgIGNhdCgiRWZmZWN0IHNpemUuLi4uLi4uLi4uLi4uLi46Iiwgcm91bmQoY294LmVmZmVjdHNpemUsIDYpLCAiXG4iKQogICAgY2F0KCJTdGFuZGFyZCBlcnJvci4uLi4uLi4uLi4uLjoiLCByb3VuZChjb3guU0UsIDYpLCAiXG4iKQogICAgY2F0KCJPZGRzIHJhdGlvIChlZmZlY3Qgc2l6ZSkuLjoiLCByb3VuZChjb3guSFJlZmZlY3QsIDMpLCAiXG4iKQogICAgY2F0KCJMb3dlciA5NSUgQ0kuLi4uLi4uLi4uLi4uLjoiLCByb3VuZChjb3guQ0lfbG93LCAzKSwgIlxuIikKICAgIGNhdCgiVXBwZXIgOTUlIENJLi4uLi4uLi4uLi4uLi46Iiwgcm91bmQoY294LkNJX3VwLCAzKSwgIlxuIikKICAgIGNhdCgiVC12YWx1ZS4uLi4uLi4uLi4uLi4uLi4uLi46Iiwgcm91bmQoY294Lnp2YWx1ZSwgNiksICJcbiIpCiAgICBjYXQoIlAtdmFsdWUuLi4uLi4uLi4uLi4uLi4uLi4uOiIsIHNpZ25pZihjb3gucHZhbHVlLCA4KSwgIlxuIikKICAgIGNhdCgiU2FtcGxlIHNpemUgaW4gbW9kZWwuLi4uLi46IiwgY294LnNhbXBsZV9zaXplLCAiXG4iKQogICAgY2F0KCJOdW1iZXIgb2YgZXZlbnRzLi4uLi4uLi4uLjoiLCBjb3gubmV2ZW50cywgIlxuIikKICB9CiAgcmV0dXJuKG91dHB1dCkKICBwcmludChvdXRwdXQpCn0gCgp0aW1lcyA9IGMoImVwX21ham9yX3RfM3llYXJzIiwgCiAgICAgICAgICAiZXBfc3Ryb2tlX3RfM3llYXJzIiwgImVwX2Nvcm9uYXJ5X3RfM3llYXJzIiwgImVwX2N2ZGVhdGhfdF8zeWVhcnMiKQoKZW5kcG9pbnRzID0gYygiZXBtYWpvci4zeWVhcnMiLCAKICAgICAgICAgICAgICAiZXBzdHJva2UuM3llYXJzIiwgImVwY29yb25hcnkuM3llYXJzIiwgImVwY3ZkZWF0aC4zeWVhcnMiKQoKY2F0KCIqIENoZWNrIHRoZSBjYXNlcyBwZXIgZXZlbnQgdHlwZSAtIGZvciBzYW5pdHkuIikKZm9yIChldmVudHMgaW4gZW5kcG9pbnRzKXsKICBwcmludChwYXN0ZTAoIlByaW50aW5nIHRoZSBzdW1tYXJ5IG9mOiAiLGV2ZW50cykpCiAgcHJpbnQoc3VtbWFyeShBRURCLkNFQVssZXZlbnRzXSkpCiAgcHJpbnQodGFibGUoQUVEQi5DRUFbLGV2ZW50c10pKQp9CgpjYXQoIiogQ2hlY2sgZGlzdHJpYnV0aW9uIG9mIGV2ZW50cyBvdmVyIHRpbWUgLSBmb3Igc2FuaXR5LiIpCmZvciAoZXZlbnR0aW1lcyBpbiB0aW1lcyl7CiAgcHJpbnQocGFzdGUwKCJQcmludGluZyB0aGUgc3VtbWFyeSBvZjogIixldmVudHRpbWVzKSkKICBwcmludChzdW1tYXJ5KEFFREIuQ0VBWyxldmVudHRpbWVzXSkpCn0KCmZvciAoZXZlbnR0aW1lIGluIHRpbWVzKXsKICAKICBwcmludChwYXN0ZTAoIlByaW50aW5nIHRoZSBkaXN0cmlidXRpb24gb2Y6ICIsZXZlbnR0aW1lKSkKICBwIDwtIGdnaGlzdG9ncmFtKEFFREIuQ0VBLCB4ID0gZXZlbnR0aW1lLCB5ID0gIi4uY291bnQuLiIsCiAgICAgICAgICAgICAgbWFpbiA9IGV2ZW50dGltZSwgYmlucyA9IDE1LCAKICAgICAgICAgICAgICB4bGFiID0gInllYXIiLCBjb2xvciA9IHVpdGhvZl9jb2xvclsxNl0sIGZpbGwgPSB1aXRob2ZfY29sb3JbMTZdLCBnZ3RoZW1lID0gdGhlbWVfbWluaW1hbCgpKSAKIHByaW50KHApCiBnZ3NhdmUoZmlsZSA9IHBhc3RlMChQTE9UX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuRXZlbnREaXN0cmlidXRpb25QZXJZZWFyLiIsZXZlbnR0aW1lLCIucGRmIiksIHBsb3QgPSBsYXN0X3Bsb3QoKSkKfQoKCmBgYAoKCiMjIyBDb3ggcmVncmVzc2lvbnMKCkxldCdzIHBlcmZvcm0gdGhlIGFjdHVhbCBDb3gtcmVncmVzc2lvbnMuIFdlIHdpbGwgYXBwbHkgYSBjb3VwbGUgb2YgbW9kZWxzOiAKCi0gTW9kZWwgMTogYWRqdXN0ZWQgZm9yIGFnZSBhbmQgc2V4Ci0gTW9kZWwgMjogYWRqdXN0ZWQgZm9yIGFnZSwgc2V4LCBoeXBlcnRlbnNpb24sIGRpYWJldGVzLCBzbW9raW5nLCBMREwtQyBsZXZlbHMsIGxpcGlkLWxvd2VyaW5nIGRydWdzLCBhbnRpcGxhdGVsZXQgZHJ1Z3MsIGVHRlIsIEJNSSwgaGlzdG9yeSBvZiBDVkQsIGxldmVsIG9mIHN0ZW5vc2lzLAotIE1vZGVsIDM6IHNhbWUgdG8gbW9kZWwgMiwgd2l0aCBhZGRpdGlvbmFsIGFkanVzdG1lbnRzIGZvciBjaXJjdWxhdGluZyBDUlAgbGV2ZWxzCi0gTW9kZWwgNDogc2FtZSB0byBtb2RlbCAyIHdpdGggYWRkaXRpb25hbCBhZGp1c3RtZW50IGZvciBJTDYgbGV2ZWxzIGluIHRoZSBwbGFxdWUKCgoqTU9ERUwgMSoKYGBge3IgQ294LXJlZ3Jlc3Npb24gQW5hbHlzaXM6IFNpbXBsZSBtb2RlbH0KIyBTZXQgdXAgYSBkYXRhZnJhbWUgdG8gcmVjZWl2ZSByZXN1bHRzCkNPWC5yZXN1bHRzIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTIsIG5yb3cgPSAwKSkKCiMgTG9vcGluZyBvdmVyIGVhY2ggcHJvdGVpbi9lbmRwb2ludC90aW1lIGNvbWJpbmF0aW9uCmZvciAoaSBpbiAxOmxlbmd0aCh0aW1lcykpewogIGVwdGltZSA9IHRpbWVzW2ldCiAgZXAgPSBlbmRwb2ludHNbaV0KICBjYXQocGFzdGUwKCIqIEFuYWx5emluZyB0aGUgZWZmZWN0IG9mIHBsYXF1ZSBwcm90ZWlucyBvbiBbIixlcCwiXS5cbiIpKQogIGNhdCgiIC0gY3JlYXRpbmcgdGVtcG9yYXJ5IFNFIGZvciB0aGlzIHdvcmsuXG4iKQogIFRFTVAuREYgPSBhcy5kYXRhLmZyYW1lKEFFREIuQ0VBKQogIGNhdCgiIC0gbWFraW5nIGEgJ1N1cnYnIG9iamVjdCBhbmQgYWRkaW5nIHRoaXMgdG8gdGVtcG9yYXJ5IGRhdGFmcmFtZS5cbiIpCiAgVEVNUC5ERiRldmVudCA8LSBhcy5pbnRlZ2VyKFRFTVAuREZbLGVwXSkKICBURU1QLkRGJHkgPC0gU3Vydih0aW1lID0gVEVNUC5ERlssZXB0aW1lXSwgZXZlbnQgPSBURU1QLkRGJGV2ZW50KQogIGNhdCgiIC0gbWFraW5nIHN0cmF0YSBvZiBlYWNoIG9mIHRoZSBwbGFxdWUgcHJvdGVpbnMgYW5kIHN0YXJ0IHN1cnZpdmFsIGFuYWx5c2lzLlxuIikKICAKICBmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpewogICAgY2F0KHBhc3RlMCgiICAgPiBwcm9jZXNzaW5nIFsiLFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0sIl07ICIscHJvdGVpbiwiIG91dCBvZiAiLGxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSwiIHByb3RlaW5zLlxuIikpCiAgICAjIHNwbGl0dGluZyBpbnRvIHR3byBncm91cHMKICAgIFRFTVAuREZbWyBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dIF1dIDwtIGN1dDIoVEVNUC5ERlssVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXV0sIGcgPSAyKQogICAgY2F0KHBhc3RlMCgiICAgPiBjcm9zcyB0YWJ1bGF0aW9uIG9mICIsVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLXN0cmF0dW0uXG4iKSkKICAgIHNob3codGFibGUoVEVNUC5ERltbIFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0gXV0pKQogICAgCiAgICBjYXQocGFzdGUwKCJcbiAgID4gZml0dGluZyB0aGUgbW9kZWwgZm9yICIsVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLXN0cmF0dW0uXG4iKSkKICAgIGZpdCA8LSBzdXJ2Zml0KGFzLmZvcm11bGEocGFzdGUwKCJ5IH4gIiwgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSkpLCBkYXRhID0gVEVNUC5ERikKICAgIAogICAgY2F0KHBhc3RlMCgiXG4gICA+IG1ha2UgYSBLYXBsYW4tTWVpZXItc2hpenpsZS4uLlxuIikpCiAgICAjIG1ha2UgS2FwbGFuLU1laWVyIGN1cnZlIGFuZCBzYXZlIGl0CiAgICBzaG93KGdnc3VydnBsb3QoZml0LCBkYXRhID0gVEVNUC5ERiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiI0RCMDAzRiIsICIjMTI5MEQ5IiksCiAgICAgICAgICAgICAgICAgICAgIyBwYWxldGUgPSBjKCJGNTlEMTAiLCAiI0RCMDAzRiIsICIjNDlBMDFEIiwgIiMxMjkwRDkiKSwKICAgICAgICAgICAgICAgICAgICBsaW5ldHlwZSA9IGMoMSwyKSwKICAgICAgICAgICAgICAgICAgICAjIGxpbmV0eXBlID0gYygxLDIsMyw0KSwKICAgICAgICAgICAgICAgICAgICAjIGNvbmYuaW50ID0gRkFMU0UsIGNvbmYuaW50LmZpbGwgPSAiIzU5NUE1QyIsIGNvbmYuaW50LmFscGhhID0gMC4xLAogICAgICAgICAgICAgICAgICAgIHB2YWwgPSBGQUxTRSwgcHZhbC5tZXRob2QgPSBGQUxTRSwgcHZhbC5zaXplID0gNCwKICAgICAgICAgICAgICAgICAgICByaXNrLnRhYmxlID0gVFJVRSwgcmlzay50YWJsZS55LnRleHQgPSBGQUxTRSwgdGFibGVzLnkudGV4dC5jb2wgPSBUUlVFLCBmb250c2l6ZSA9IDQsCiAgICAgICAgICAgICAgICAgICAgY2Vuc29yID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgbGVnZW5kID0gInJpZ2h0IiwKICAgICAgICAgICAgICAgICAgICBsZWdlbmQudGl0bGUgPSBwYXN0ZTAoIiIsVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiIiksCiAgICAgICAgICAgICAgICAgICAgbGVnZW5kLmxhYnMgPSBjKCJsb3ciLCAiaGlnaCIpLAogICAgICAgICAgICAgICAgICAgIHRpdGxlID0gcGFzdGUwKCJSaXNrIG9mICIsZXAsIiIpLCB4bGFiID0gIlRpbWUgW3llYXJzXSIsIGZvbnQubWFpbiA9IGMoMTYsICJib2xkIiwgImJsYWNrIikpKQogICAgZGV2LmNvcHkycGRmKGZpbGUgPSBwYXN0ZTAoQ09YX2xvYywiLyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUb2RheSwiLkFFREIuQ0VBLnN1cnZpdmFsLiIsZXAsIi4yRy4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLnBkZiIpLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMCwgb25lZmlsZSA9IEZBTFNFKQoKICAgIGNhdChwYXN0ZTAoIlxuICAgPiBwZXJmb3JtIHRoZSBDb3gtcmVncmVzc2lvbiBmYXNoaXp6bGUgYW5kIHBsb3QgaXQuLi5cbiIpKQogICAgIyMjIERvIENveC1yZWdyZXNzaW9uIGFuZCBwbG90IGl0CiAgICAKICAgICMjIyBNT0RFTCAxIChTaW1wbGUgbW9kZWwpCiAgICBjb3ggPSBjb3hwaChTdXJ2KFRFTVAuREZbLGVwdGltZV0sIGV2ZW50KSB+IFRFTVAuREZbWyBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dIF1dK0FnZStHZW5kZXIsIGRhdGEgPSBURU1QLkRGKQogICAgY294cGxvdCA9IGNveHBoKFN1cnYoVEVNUC5ERlssZXB0aW1lXSwgZXZlbnQpIH4gc3RyYXRhKFRFTVAuREZbWyBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dIF1dKStBZ2UrR2VuZGVyLCBkYXRhID0gVEVNUC5ERikKCiAgICBwbG90KHN1cnZmaXQoY294cGxvdCksIG1haW4gPSBwYXN0ZTAoIkNveCBwcm9wb3J0aW9uYWwgaGF6YXJkIG9mIFsiLGVwLCJdIHBlciBbIixlcHRpbWUsIl0uIiksCiAgICAgICAgICMgeWxpbSA9IGMoMC4yLCAxKSwgeGxpbSA9IGMoMCwzKSwgY29sID0gYygiIzU5NUE1QyIsICIjREIwMDNGIiwgIiMxMjkwRDkiKSwKICAgICAgICAgeWxpbSA9IGMoMCwgMSksIHhsaW0gPSBjKDAsMyksIGNvbCA9IGMoIiNEQjAwM0YiLCAiIzEyOTBEOSIpLAogICAgICAgICBsdHkgPSBjKDEsMiksIGx3ZCA9IDIsCiAgICAgICAgIHlsYWIgPSAiU3V2aXZhbCBwcm9iYWJpbGl0eSIsIHhsYWIgPSAiRlUgdGltZSBbeWVhcnNdIiwKICAgICAgICAgbWFyay50aW1lID0gRkFMU0UsIGF4ZXMgPSBGQUxTRSwgYnR5ID0gIm4iKQogICAgbGVnZW5kKCJ0b3ByaWdodCIsCiAgICAgICAgICAgYygibG93IiwgImhpZ2giKSwKICAgICAgICAgICB0aXRsZSA9IHBhc3RlMCgiIixUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCIiKSwKICAgICAgICAgICBjb2wgPSBjKCIjREIwMDNGIiwgIiMxMjkwRDkiKSwKICAgICAgICAgICBsdHkgPSBjKDEsMiksIGx3ZCA9IDIsCiAgICAgICAgICAgYnR5ID0gIm4iKQogICAgYXhpcyhzaWRlID0gMSwgYXQgPSBzZXEoMCwgMywgYnkgPSAxKSkKICAgIGF4aXMoc2lkZSA9IDIsIGF0ID0gc2VxKDAsIDEsIGJ5ID0gMC4yKSkKICAgIGRldi5jb3B5MnBkZihmaWxlID0gcGFzdGUwKENPWF9sb2MsIi8iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVG9kYXksIi5BRURCLkNFQS5Db3guIixlcCwiLjJHLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFRvZGF5LCIuQUVEQi5DRUEuQ294LiIsZXAsIi40Ry4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLk1PREVMMS5wZGYiKSwgaGVpZ2h0ID0gMTIsIHdpZHRoID0gMTAsIG9uZWZpbGUgPSBUUlVFKQogICAgc2hvdyhzdW1tYXJ5KGNveCkpCgogICAgY2F0KHBhc3RlMCgiXG4gICA+IHdyaXRpbmcgdGhlIENveC1yZWdyZXNzaW9uIGZhc2hpenpsZSB0byBFeGNlbC4uLlxuIikpCgogICAgQ09YLnJlc3VsdHMuVEVNUCA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDEyLCBucm93ID0gMCkpCiAgICBDT1gucmVzdWx0cy5URU1QWzEsXSA9IENPWC5TVEFUKGNveCwgIkFFREIuQ0VBIiwgZXAsIFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0pCiAgICBDT1gucmVzdWx0cyA9IHJiaW5kKENPWC5yZXN1bHRzLCBDT1gucmVzdWx0cy5URU1QKQoKICB9Cn0KCmNhdCgiLSBFZGl0IHRoZSBjb2x1bW4gbmFtZXMuLi5cbiIpCmNvbG5hbWVzKENPWC5yZXN1bHRzKSA9IGMoIkRhdGFzZXQiLCAiT3V0Y29tZSIsICJDcEciLAogICAgICAgICAgICAgICAgICAgICAgICAgICJCZXRhIiwgInMuZS5tLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkhSIiwgImxvdzk1Q0kiLCAidXA5NUNJIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiWi12YWx1ZSIsICJQLXZhbHVlIiwgIlNhbXBsZVNpemUiLCAiTl9ldmVudHMiKQoKY2F0KCItIENvcnJlY3QgdGhlIHZhcmlhYmxlIHR5cGVzLi4uXG4iKQpDT1gucmVzdWx0cyRCZXRhIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkQmV0YSkKQ09YLnJlc3VsdHMkcy5lLm0uIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkcy5lLm0uKQpDT1gucmVzdWx0cyRIUiA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJEhSKQpDT1gucmVzdWx0cyRsb3c5NUNJIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkbG93OTVDSSkKQ09YLnJlc3VsdHMkdXA5NUNJIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkdXA5NUNJKQpDT1gucmVzdWx0cyRgWi12YWx1ZWAgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRgWi12YWx1ZWApCkNPWC5yZXN1bHRzJGBQLXZhbHVlYCA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJGBQLXZhbHVlYCkKQ09YLnJlc3VsdHMkU2FtcGxlU2l6ZSA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJFNhbXBsZVNpemUpCkNPWC5yZXN1bHRzJE5fZXZlbnRzIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkTl9ldmVudHMpCgpBRURCLkNFQS5DT1gucmVzdWx0cyA8LSBDT1gucmVzdWx0cwoKIyBTYXZlIHRoZSBkYXRhCmNhdCgiLSBXcml0aW5nIHJlc3VsdHMgdG8gRXhjZWwtZmlsZS4uLlxuIikKaGVhZC5zdHlsZSA8LSBjcmVhdGVTdHlsZSh0ZXh0RGVjb3JhdGlvbiA9ICJCT0xEIikKd3JpdGUueGxzeChBRURCLkNFQS5DT1gucmVzdWx0cywKICAgICAgICAgICBmaWxlID0gcGFzdGUwKE9VVF9sb2MsICIvIixUb2RheSwiLkFFREIuQ0VBLkNveC4yRy5NT0RFTDEueGxzeCIpLAogICAgICAgICAgIGNyZWF0b3IgPSAiU2FuZGVyIFcuIHZhbiBkZXIgTGFhbiIsCiAgICAgICAgICAgc2hlZXROYW1lID0gIlJlc3VsdHMiLCBoZWFkZXJTdHlsZSA9IGhlYWQuc3R5bGUsCiAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UsIGNvbC5uYW1lcyA9IFRSVUUsIG92ZXJ3cml0ZSA9IFRSVUUpCgojIFJlbW92aW5nIGludGVybWVkaWF0ZXMKY2F0KCItIFJlbW92aW5nIGludGVybWVkaWF0ZSBmaWxlcy4uLlxuIikKI3JtKFRFTVAuREYsIHByb3RlaW4sIGZpdCwgY294LCBjb3hwbG90LCBDT1gucmVzdWx0cywgQ09YLnJlc3VsdHMuVEVNUCwgaGVhZC5zdHlsZSwgQUVEQi5DRUEuQ09YLnJlc3VsdHMpCgojcm0oaGVhZC5zdHlsZSkKCmBgYAoKKk1PREVMIDIqCmBgYHtyIENveC1yZWdyZXNzaW9uIEFuYWx5c2lzOiBNT0RFTCAyfQojIFNldCB1cCBhIGRhdGFmcmFtZSB0byByZWNlaXZlIHJlc3VsdHMKQ09YLnJlc3VsdHMgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxMiwgbnJvdyA9IDApKQoKIyBMb29waW5nIG92ZXIgZWFjaCBwcm90ZWluL2VuZHBvaW50L3RpbWUgY29tYmluYXRpb24KZm9yIChpIGluIDE6bGVuZ3RoKHRpbWVzKSl7CiAgZXB0aW1lID0gdGltZXNbaV0KICBlcCA9IGVuZHBvaW50c1tpXQogIGNhdChwYXN0ZTAoIiogQW5hbHl6aW5nIHRoZSBlZmZlY3Qgb2YgcGxhcXVlIHByb3RlaW5zIG9uIFsiLGVwLCJdLlxuIikpCiAgY2F0KCIgLSBjcmVhdGluZyB0ZW1wb3JhcnkgU0UgZm9yIHRoaXMgd29yay5cbiIpCiAgVEVNUC5ERiA9IGFzLmRhdGEuZnJhbWUoQUVEQi5DRUEpCiAgY2F0KCIgLSBtYWtpbmcgYSAnU3Vydicgb2JqZWN0IGFuZCBhZGRpbmcgdGhpcyB0byB0ZW1wb3JhcnkgZGF0YWZyYW1lLlxuIikKICBURU1QLkRGJGV2ZW50IDwtIGFzLmludGVnZXIoVEVNUC5ERlssZXBdKQogICNhcy5pbnRlZ2VyKFRFTVAuREZbLGVwXSA9PSAiRXhjbHVkZWQiKQoKICBURU1QLkRGJHkgPC0gU3Vydih0aW1lID0gVEVNUC5ERlssZXB0aW1lXSwgZXZlbnQgPSBURU1QLkRGJGV2ZW50KQogIGNhdCgiIC0gbWFraW5nIHN0cmF0YSBvZiBlYWNoIG9mIHRoZSBwbGFxdWUgcHJvdGVpbnMgYW5kIHN0YXJ0IHN1cnZpdmFsIGFuYWx5c2lzLlxuIikKICAKICBmb3IgKHByb3RlaW4gaW4gMTpsZW5ndGgoVFJBSVRTLlBST1RFSU4uUkFOSykpewogICAgY2F0KHBhc3RlMCgiICAgPiBwcm9jZXNzaW5nIFsiLFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0sIl07ICIscHJvdGVpbiwiIG91dCBvZiAiLGxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSwiIHByb3RlaW5zLlxuIikpCiAgICAjIHNwbGl0dGluZyBpbnRvIHR3byBncm91cHMKICAgIFRFTVAuREZbWyBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dIF1dIDwtIGN1dDIoVEVNUC5ERlssVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXV0sIGcgPSAyKQogICAgY2F0KHBhc3RlMCgiICAgPiBjcm9zcyB0YWJ1bGF0aW9uIG9mICIsVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLXN0cmF0dW0uXG4iKSkKICAgIHNob3codGFibGUoVEVNUC5ERltbIFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0gXV0pKQogICAgCiAgICBjYXQocGFzdGUwKCJcbiAgID4gZml0dGluZyB0aGUgbW9kZWwgZm9yICIsVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLXN0cmF0dW0uXG4iKSkKICAgIGZpdCA8LSBzdXJ2Zml0KGFzLmZvcm11bGEocGFzdGUwKCJ5IH4gIiwgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSkpLCBkYXRhID0gVEVNUC5ERikKICAgIAogICAgY2F0KHBhc3RlMCgiXG4gICA+IG1ha2UgYSBLYXBsYW4tTWVpZXItc2hpenpsZS4uLlxuIikpCiAgICAjIG1ha2UgS2FwbGFuLU1laWVyIGN1cnZlIGFuZCBzYXZlIGl0CiAgICBzaG93KGdnc3VydnBsb3QoZml0LCBkYXRhID0gVEVNUC5ERiwKICAgICAgICAgICAgICAgICAgICBwYWxldHRlID0gYygiI0RCMDAzRiIsICIjMTI5MEQ5IiksCiAgICAgICAgICAgICAgICAgICAgIyBwYWxldGUgPSBjKCJGNTlEMTAiLCAiI0RCMDAzRiIsICIjNDlBMDFEIiwgIiMxMjkwRDkiKSwKICAgICAgICAgICAgICAgICAgICBsaW5ldHlwZSA9IGMoMSwyKSwKICAgICAgICAgICAgICAgICAgICAjIGxpbmV0eXBlID0gYygxLDIsMyw0KSwKICAgICAgICAgICAgICAgICAgICAjIGNvbmYuaW50ID0gRkFMU0UsIGNvbmYuaW50LmZpbGwgPSAiIzU5NUE1QyIsIGNvbmYuaW50LmFscGhhID0gMC4xLAogICAgICAgICAgICAgICAgICAgIHB2YWwgPSBGQUxTRSwgcHZhbC5tZXRob2QgPSBGQUxTRSwgcHZhbC5zaXplID0gNCwKICAgICAgICAgICAgICAgICAgICByaXNrLnRhYmxlID0gVFJVRSwgcmlzay50YWJsZS55LnRleHQgPSBGQUxTRSwgdGFibGVzLnkudGV4dC5jb2wgPSBUUlVFLCBmb250c2l6ZSA9IDQsCiAgICAgICAgICAgICAgICAgICAgY2Vuc29yID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgbGVnZW5kID0gInJpZ2h0IiwKICAgICAgICAgICAgICAgICAgICBsZWdlbmQudGl0bGUgPSBwYXN0ZTAoIiIsVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiIiksCiAgICAgICAgICAgICAgICAgICAgbGVnZW5kLmxhYnMgPSBjKCJsb3ciLCAiaGlnaCIpLAogICAgICAgICAgICAgICAgICAgIHRpdGxlID0gcGFzdGUwKCJSaXNrIG9mICIsZXAsIiIpLCB4bGFiID0gIlRpbWUgW3llYXJzXSIsIGZvbnQubWFpbiA9IGMoMTYsICJib2xkIiwgImJsYWNrIikpKQogICAgZGV2LmNvcHkycGRmKGZpbGUgPSBwYXN0ZTAoQ09YX2xvYywiLyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUb2RheSwiLkFFREIuQ0VBLnN1cnZpdmFsLiIsZXAsIi4yRy4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLnBkZiIpLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMCwgb25lZmlsZSA9IEZBTFNFKQoKICAgIGNhdChwYXN0ZTAoIlxuICAgPiBwZXJmb3JtIHRoZSBDb3gtcmVncmVzc2lvbiBmYXNoaXp6bGUgYW5kIHBsb3QgaXQuLi5cbiIpKQogICAgIyMjIERvIENveC1yZWdyZXNzaW9uIGFuZCBwbG90IGl0CiAgICAKICAgICMjIyBNT0RFTCAyIGFkanVzdGVkIGZvciBhZ2UsIHNleCwgaHlwZXJ0ZW5zaW9uLCBkaWFiZXRlcywgc21va2luZywgTERMLUMgbGV2ZWxzLCBsaXBpZC1sb3dlcmluZyBkcnVncywgYW50aXBsYXRlbGV0IGRydWdzLCBlR0ZSLCBCTUksIGhpc3Rvcnkgb2YgQ1ZELCBsZXZlbCBvZiBzdGVub3NpcwogICAgY294ID0gY294cGgoU3VydihURU1QLkRGWyxlcHRpbWVdLCBldmVudCkgfiBURU1QLkRGW1sgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSBdXStBZ2UgKyBHZW5kZXIgKyBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsgTWVkLlN0YXRpbi5MTEQgKyBNZWQuYWxsLmFudGlwbGF0ZWxldCArIEdGUl9NRFJEICsgQk1JICsgQ0FEX2hpc3RvcnkgKyBTdHJva2VfaGlzdG9yeSArIFBlcmlwaGVyYWwuaW50ZXJ2ICsgc3Rlbm9zZSwgZGF0YSA9IFRFTVAuREYpCiAgICBjb3hwbG90ID0gY294cGgoU3VydihURU1QLkRGWyxlcHRpbWVdLCBldmVudCkgfiBzdHJhdGEoVEVNUC5ERltbIFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0gXV0pK0FnZSArIEdlbmRlciArIEh5cGVydGVuc2lvbi5jb21wb3NpdGUgKyBEaWFiZXRlc1N0YXR1cyArIFNtb2tlckN1cnJlbnQgKyBNZWQuU3RhdGluLkxMRCArIE1lZC5hbGwuYW50aXBsYXRlbGV0ICsgR0ZSX01EUkQgKyBCTUkgKyBDQURfaGlzdG9yeSArIFN0cm9rZV9oaXN0b3J5ICsgUGVyaXBoZXJhbC5pbnRlcnYgKyBzdGVub3NlLCBkYXRhID0gVEVNUC5ERikKCiAgCiAgICBwbG90KHN1cnZmaXQoY294cGxvdCksIG1haW4gPSBwYXN0ZTAoIkNveCBwcm9wb3J0aW9uYWwgaGF6YXJkIG9mIFsiLGVwLCJdIHBlciBbIixlcHRpbWUsIl0uIiksCiAgICAgICAgICMgeWxpbSA9IGMoMC4yLCAxKSwgeGxpbSA9IGMoMCwzKSwgY29sID0gYygiIzU5NUE1QyIsICIjREIwMDNGIiwgIiMxMjkwRDkiKSwKICAgICAgICAgeWxpbSA9IGMoMCwgMSksIHhsaW0gPSBjKDAsMyksIGNvbCA9IGMoIiNEQjAwM0YiLCAiIzEyOTBEOSIpLAogICAgICAgICBsdHkgPSBjKDEsMiksIGx3ZCA9IDIsCiAgICAgICAgIHlsYWIgPSAiU3V2aXZhbCBwcm9iYWJpbGl0eSIsIHhsYWIgPSAiRlUgdGltZSBbeWVhcnNdIiwKICAgICAgICAgbWFyay50aW1lID0gRkFMU0UsIGF4ZXMgPSBGQUxTRSwgYnR5ID0gIm4iKQogICAgbGVnZW5kKCJ0b3ByaWdodCIsCiAgICAgICAgICAgYygibG93IiwgImhpZ2giKSwKICAgICAgICAgICB0aXRsZSA9IHBhc3RlMCgiIixUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCIiKSwKICAgICAgICAgICBjb2wgPSBjKCIjREIwMDNGIiwgIiMxMjkwRDkiKSwKICAgICAgICAgICBsdHkgPSBjKDEsMiksIGx3ZCA9IDIsCiAgICAgICAgICAgYnR5ID0gIm4iKQogICAgYXhpcyhzaWRlID0gMSwgYXQgPSBzZXEoMCwgMywgYnkgPSAxKSkKICAgIGF4aXMoc2lkZSA9IDIsIGF0ID0gc2VxKDAsIDEsIGJ5ID0gMC4yKSkKICAgIGRldi5jb3B5MnBkZihmaWxlID0gcGFzdGUwKENPWF9sb2MsIi8iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVG9kYXksIi5BRURCLkNFQS5Db3guIixlcCwiLjJHLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFRvZGF5LCIuQUVEQi5DRUEuQ294LiIsZXAsIi40Ry4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLk1PREVMMi5wZGYiKSwgaGVpZ2h0ID0gMTIsIHdpZHRoID0gMTAsIG9uZWZpbGUgPSBUUlVFKQoKICAgIHNob3coc3VtbWFyeShjb3gpKQoKICAgIGNhdChwYXN0ZTAoIlxuICAgPiB3cml0aW5nIHRoZSBDb3gtcmVncmVzc2lvbiBmYXNoaXp6bGUgdG8gRXhjZWwuLi5cbiIpKQoKICAgIENPWC5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxMiwgbnJvdyA9IDApKQogICAgQ09YLnJlc3VsdHMuVEVNUFsxLF0gPSBDT1guU1RBVChjb3gsICJBRURCLkNFQSIsIGVwLCBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dKQogICAgQ09YLnJlc3VsdHMgPSByYmluZChDT1gucmVzdWx0cywgQ09YLnJlc3VsdHMuVEVNUCkKCiAgfQp9CgpjYXQoIi0gRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhDT1gucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIk91dGNvbWUiLCAiQ3BHIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiQmV0YSIsICJzLmUubS4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJIUiIsICJsb3c5NUNJIiwgInVwOTVDSSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlotdmFsdWUiLCAiUC12YWx1ZSIsICJTYW1wbGVTaXplIiwgIk5fZXZlbnRzIikKCmNhdCgiLSBDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKQ09YLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJEJldGEpCkNPWC5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJHMuZS5tLikKQ09YLnJlc3VsdHMkSFIgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRIUikKQ09YLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJGxvdzk1Q0kpCkNPWC5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJHVwOTVDSSkKQ09YLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkYFotdmFsdWVgKQpDT1gucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRgUC12YWx1ZWApCkNPWC5yZXN1bHRzJFNhbXBsZVNpemUgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRTYW1wbGVTaXplKQpDT1gucmVzdWx0cyROX2V2ZW50cyA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJE5fZXZlbnRzKQoKQUVEQi5DRUEuQ09YLnJlc3VsdHMgPC0gQ09YLnJlc3VsdHMKCiMgU2F2ZSB0aGUgZGF0YQpjYXQoIi0gV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCmhlYWQuc3R5bGUgPC0gY3JlYXRlU3R5bGUodGV4dERlY29yYXRpb24gPSAiQk9MRCIpCndyaXRlLnhsc3goQUVEQi5DRUEuQ09YLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5Db3guMkcuTU9ERUwyLnhsc3giKSwKICAgICAgICAgICBjcmVhdG9yID0gIlNhbmRlciBXLiB2YW4gZGVyIExhYW4iLAogICAgICAgICAgIHNoZWV0TmFtZSA9ICJSZXN1bHRzIiwgaGVhZGVyU3R5bGUgPSBoZWFkLnN0eWxlLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBvdmVyd3JpdGUgPSBUUlVFKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiLSBSZW1vdmluZyBpbnRlcm1lZGlhdGUgZmlsZXMuLi5cbiIpCnJtKFRFTVAuREYsIHByb3RlaW4sIGZpdCwgY294LCBjb3hwbG90LCBDT1gucmVzdWx0cywgQ09YLnJlc3VsdHMuVEVNUCwgaGVhZC5zdHlsZSwgQUVEQi5DRUEuQ09YLnJlc3VsdHMpCgpybShoZWFkLnN0eWxlKQoKYGBgCgoqTU9ERUwgMyoKYGBge3IgQ294LXJlZ3Jlc3Npb24gQW5hbHlzaXM6IE1PREVMIDN9CiMgU2V0IHVwIGEgZGF0YWZyYW1lIHRvIHJlY2VpdmUgcmVzdWx0cwpDT1gucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDEyLCBucm93ID0gMCkpCgojIExvb3Bpbmcgb3ZlciBlYWNoIHByb3RlaW4vZW5kcG9pbnQvdGltZSBjb21iaW5hdGlvbgpmb3IgKGkgaW4gMTpsZW5ndGgodGltZXMpKXsKICBlcHRpbWUgPSB0aW1lc1tpXQogIGVwID0gZW5kcG9pbnRzW2ldCiAgY2F0KHBhc3RlMCgiKiBBbmFseXppbmcgdGhlIGVmZmVjdCBvZiBwbGFxdWUgcHJvdGVpbnMgb24gWyIsZXAsIl0uXG4iKSkKICBjYXQoIiAtIGNyZWF0aW5nIHRlbXBvcmFyeSBTRSBmb3IgdGhpcyB3b3JrLlxuIikKICBURU1QLkRGID0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSkKICBjYXQoIiAtIG1ha2luZyBhICdTdXJ2JyBvYmplY3QgYW5kIGFkZGluZyB0aGlzIHRvIHRlbXBvcmFyeSBkYXRhZnJhbWUuXG4iKQogIFRFTVAuREYkZXZlbnQgPC0gYXMuaW50ZWdlcihURU1QLkRGWyxlcF0pCiAgI2FzLmludGVnZXIoVEVNUC5ERlssZXBdID09ICJFeGNsdWRlZCIpCgogIFRFTVAuREYkeSA8LSBTdXJ2KHRpbWUgPSBURU1QLkRGWyxlcHRpbWVdLCBldmVudCA9IFRFTVAuREYkZXZlbnQpCiAgY2F0KCIgLSBtYWtpbmcgc3RyYXRhIG9mIGVhY2ggb2YgdGhlIHBsYXF1ZSBwcm90ZWlucyBhbmQgc3RhcnQgc3Vydml2YWwgYW5hbHlzaXMuXG4iKQogIAogIGZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSl7CiAgICBjYXQocGFzdGUwKCIgICA+IHByb2Nlc3NpbmcgWyIsVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiXTsgIixwcm90ZWluLCIgb3V0IG9mICIsbGVuZ3RoKFRSQUlUUy5QUk9URUlOLlJBTkspLCIgcHJvdGVpbnMuXG4iKSkKICAgICMgc3BsaXR0aW5nIGludG8gdHdvIGdyb3VwcwogICAgVEVNUC5ERltbIFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0gXV0gPC0gY3V0MihURU1QLkRGWyxUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dXSwgZyA9IDIpCiAgICBjYXQocGFzdGUwKCIgICA+IGNyb3NzIHRhYnVsYXRpb24gb2YgIixUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCItc3RyYXR1bS5cbiIpKQogICAgc2hvdyh0YWJsZShURU1QLkRGW1sgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSBdXSkpCiAgICAKICAgIGNhdChwYXN0ZTAoIlxuICAgPiBmaXR0aW5nIHRoZSBtb2RlbCBmb3IgIixUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCItc3RyYXR1bS5cbiIpKQogICAgZml0IDwtIHN1cnZmaXQoYXMuZm9ybXVsYShwYXN0ZTAoInkgfiAiLCBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dKSksIGRhdGEgPSBURU1QLkRGKQogICAgCiAgICBjYXQocGFzdGUwKCJcbiAgID4gbWFrZSBhIEthcGxhbi1NZWllci1zaGl6emxlLi4uXG4iKSkKICAgICMgbWFrZSBLYXBsYW4tTWVpZXIgY3VydmUgYW5kIHNhdmUgaXQKICAgIHNob3coZ2dzdXJ2cGxvdChmaXQsIGRhdGEgPSBURU1QLkRGLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjREIwMDNGIiwgIiMxMjkwRDkiKSwKICAgICAgICAgICAgICAgICAgICAjIHBhbGV0ZSA9IGMoIkY1OUQxMCIsICIjREIwMDNGIiwgIiM0OUEwMUQiLCAiIzEyOTBEOSIpLAogICAgICAgICAgICAgICAgICAgIGxpbmV0eXBlID0gYygxLDIpLAogICAgICAgICAgICAgICAgICAgICMgbGluZXR5cGUgPSBjKDEsMiwzLDQpLAogICAgICAgICAgICAgICAgICAgICMgY29uZi5pbnQgPSBGQUxTRSwgY29uZi5pbnQuZmlsbCA9ICIjNTk1QTVDIiwgY29uZi5pbnQuYWxwaGEgPSAwLjEsCiAgICAgICAgICAgICAgICAgICAgcHZhbCA9IEZBTFNFLCBwdmFsLm1ldGhvZCA9IEZBTFNFLCBwdmFsLnNpemUgPSA0LAogICAgICAgICAgICAgICAgICAgIHJpc2sudGFibGUgPSBUUlVFLCByaXNrLnRhYmxlLnkudGV4dCA9IEZBTFNFLCB0YWJsZXMueS50ZXh0LmNvbCA9IFRSVUUsIGZvbnRzaXplID0gNCwKICAgICAgICAgICAgICAgICAgICBjZW5zb3IgPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICBsZWdlbmQgPSAicmlnaHQiLAogICAgICAgICAgICAgICAgICAgIGxlZ2VuZC50aXRsZSA9IHBhc3RlMCgiIixUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCIiKSwKICAgICAgICAgICAgICAgICAgICBsZWdlbmQubGFicyA9IGMoImxvdyIsICJoaWdoIiksCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSBwYXN0ZTAoIlJpc2sgb2YgIixlcCwiIiksIHhsYWIgPSAiVGltZSBbeWVhcnNdIiwgZm9udC5tYWluID0gYygxNiwgImJvbGQiLCAiYmxhY2siKSkpCiAgICBkZXYuY29weTJwZGYoZmlsZSA9IHBhc3RlMChDT1hfbG9jLCIvIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRvZGF5LCIuQUVEQi5DRUEuc3Vydml2YWwuIixlcCwiLjJHLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCIucGRmIiksIHdpZHRoID0gMTIsIGhlaWdodCA9IDEwLCBvbmVmaWxlID0gRkFMU0UpCgogICAgY2F0KHBhc3RlMCgiXG4gICA+IHBlcmZvcm0gdGhlIENveC1yZWdyZXNzaW9uIGZhc2hpenpsZSBhbmQgcGxvdCBpdC4uLlxuIikpCiAgICAjIyMgRG8gQ294LXJlZ3Jlc3Npb24gYW5kIHBsb3QgaXQKICAgIAogICAgIyMjIE1PREVMIDMgc2FtZSB0byBtb2RlbCAyLCB3aXRoIGFkZGl0aW9uYWwgYWRqdXN0bWVudHMgZm9yIGNpcmN1bGF0aW5nIENSUCBsZXZlbHMKICAgIGNveCA9IGNveHBoKFN1cnYoVEVNUC5ERlssZXB0aW1lXSwgZXZlbnQpIH4gVEVNUC5ERltbIFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0gXV0rQWdlICsgR2VuZGVyICsgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UgKyBoc0NSUF9wbGFzbWEsIGRhdGEgPSBURU1QLkRGKQogICAgY294cGxvdCA9IGNveHBoKFN1cnYoVEVNUC5ERlssZXB0aW1lXSwgZXZlbnQpIH4gc3RyYXRhKFRFTVAuREZbWyBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dIF1dKStBZ2UgKyBHZW5kZXIgKyBIeXBlcnRlbnNpb24uY29tcG9zaXRlICsgRGlhYmV0ZXNTdGF0dXMgKyBTbW9rZXJDdXJyZW50ICsgIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UgKyBoc0NSUF9wbGFzbWEsIGRhdGEgPSBURU1QLkRGKQoKICAKICAgIHBsb3Qoc3VydmZpdChjb3hwbG90KSwgbWFpbiA9IHBhc3RlMCgiQ294IHByb3BvcnRpb25hbCBoYXphcmQgb2YgWyIsZXAsIl0gcGVyIFsiLGVwdGltZSwiXS4iKSwKICAgICAgICAgIyB5bGltID0gYygwLjIsIDEpLCB4bGltID0gYygwLDMpLCBjb2wgPSBjKCIjNTk1QTVDIiwgIiNEQjAwM0YiLCAiIzEyOTBEOSIpLAogICAgICAgICB5bGltID0gYygwLCAxKSwgeGxpbSA9IGMoMCwzKSwgY29sID0gYygiI0RCMDAzRiIsICIjMTI5MEQ5IiksCiAgICAgICAgIGx0eSA9IGMoMSwyKSwgbHdkID0gMiwKICAgICAgICAgeWxhYiA9ICJTdXZpdmFsIHByb2JhYmlsaXR5IiwgeGxhYiA9ICJGVSB0aW1lIFt5ZWFyc10iLAogICAgICAgICBtYXJrLnRpbWUgPSBGQUxTRSwgYXhlcyA9IEZBTFNFLCBidHkgPSAibiIpCiAgICBsZWdlbmQoInRvcHJpZ2h0IiwKICAgICAgICAgICBjKCJsb3ciLCAiaGlnaCIpLAogICAgICAgICAgIHRpdGxlID0gcGFzdGUwKCIiLFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0sIiIpLAogICAgICAgICAgIGNvbCA9IGMoIiNEQjAwM0YiLCAiIzEyOTBEOSIpLAogICAgICAgICAgIGx0eSA9IGMoMSwyKSwgbHdkID0gMiwKICAgICAgICAgICBidHkgPSAibiIpCiAgICBheGlzKHNpZGUgPSAxLCBhdCA9IHNlcSgwLCAzLCBieSA9IDEpKQogICAgYXhpcyhzaWRlID0gMiwgYXQgPSBzZXEoMCwgMSwgYnkgPSAwLjIpKQoKICAgIGRldi5jb3B5MnBkZihmaWxlID0gcGFzdGUwKENPWF9sb2MsIi8iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVG9kYXksIi5BRURCLkNFQS5Db3guIixlcCwiLjJHLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFRvZGF5LCIuQUVEQi5DRUEuQ294LiIsZXAsIi40Ry4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiLk1PREVMMy5wZGYiKSwgaGVpZ2h0ID0gMTIsIHdpZHRoID0gMTAsIG9uZWZpbGUgPSBUUlVFKQoKICAgIHNob3coc3VtbWFyeShjb3gpKQoKICAgIGNhdChwYXN0ZTAoIlxuICAgPiB3cml0aW5nIHRoZSBDb3gtcmVncmVzc2lvbiBmYXNoaXp6bGUgdG8gRXhjZWwuLi5cbiIpKQoKICAgIENPWC5yZXN1bHRzLlRFTVAgPC0gZGF0YS5mcmFtZShtYXRyaXgoTkEsIG5jb2wgPSAxMiwgbnJvdyA9IDApKQogICAgQ09YLnJlc3VsdHMuVEVNUFsxLF0gPSBDT1guU1RBVChjb3gsICJBRURCLkNFQSIsIGVwLCBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dKQogICAgQ09YLnJlc3VsdHMgPSByYmluZChDT1gucmVzdWx0cywgQ09YLnJlc3VsdHMuVEVNUCkKCiAgfQp9CgpjYXQoIi0gRWRpdCB0aGUgY29sdW1uIG5hbWVzLi4uXG4iKQpjb2xuYW1lcyhDT1gucmVzdWx0cykgPSBjKCJEYXRhc2V0IiwgIk91dGNvbWUiLCAiQ3BHIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiQmV0YSIsICJzLmUubS4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJIUiIsICJsb3c5NUNJIiwgInVwOTVDSSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIlotdmFsdWUiLCAiUC12YWx1ZSIsICJTYW1wbGVTaXplIiwgIk5fZXZlbnRzIikKCmNhdCgiLSBDb3JyZWN0IHRoZSB2YXJpYWJsZSB0eXBlcy4uLlxuIikKQ09YLnJlc3VsdHMkQmV0YSA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJEJldGEpCkNPWC5yZXN1bHRzJHMuZS5tLiA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJHMuZS5tLikKQ09YLnJlc3VsdHMkSFIgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRIUikKQ09YLnJlc3VsdHMkbG93OTVDSSA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJGxvdzk1Q0kpCkNPWC5yZXN1bHRzJHVwOTVDSSA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJHVwOTVDSSkKQ09YLnJlc3VsdHMkYFotdmFsdWVgIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkYFotdmFsdWVgKQpDT1gucmVzdWx0cyRgUC12YWx1ZWAgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRgUC12YWx1ZWApCkNPWC5yZXN1bHRzJFNhbXBsZVNpemUgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRTYW1wbGVTaXplKQpDT1gucmVzdWx0cyROX2V2ZW50cyA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJE5fZXZlbnRzKQoKQUVEQi5DRUEuQ09YLnJlc3VsdHMgPC0gQ09YLnJlc3VsdHMKCiMgU2F2ZSB0aGUgZGF0YQpjYXQoIi0gV3JpdGluZyByZXN1bHRzIHRvIEV4Y2VsLWZpbGUuLi5cbiIpCmhlYWQuc3R5bGUgPC0gY3JlYXRlU3R5bGUodGV4dERlY29yYXRpb24gPSAiQk9MRCIpCndyaXRlLnhsc3goQUVEQi5DRUEuQ09YLnJlc3VsdHMsCiAgICAgICAgICAgZmlsZSA9IHBhc3RlMChPVVRfbG9jLCAiLyIsVG9kYXksIi5BRURCLkNFQS5Db3guMkcuTU9ERUwzLnhsc3giKSwKICAgICAgICAgICBjcmVhdG9yID0gIlNhbmRlciBXLiB2YW4gZGVyIExhYW4iLAogICAgICAgICAgIHNoZWV0TmFtZSA9ICJSZXN1bHRzIiwgaGVhZGVyU3R5bGUgPSBoZWFkLnN0eWxlLAogICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFLCBjb2wubmFtZXMgPSBUUlVFLCBvdmVyd3JpdGUgPSBUUlVFKQoKIyBSZW1vdmluZyBpbnRlcm1lZGlhdGVzCmNhdCgiLSBSZW1vdmluZyBpbnRlcm1lZGlhdGUgZmlsZXMuLi5cbiIpCnJtKFRFTVAuREYsIHByb3RlaW4sIGZpdCwgY294LCBjb3hwbG90LCBDT1gucmVzdWx0cywgQ09YLnJlc3VsdHMuVEVNUCwgaGVhZC5zdHlsZSwgQUVEQi5DRUEuQ09YLnJlc3VsdHMpCgpybShoZWFkLnN0eWxlKQoKYGBgCgoqTU9ERUwgNCoKYGBge3IgQ294LXJlZ3Jlc3Npb24gQW5hbHlzaXM6IE1PREVMIDR9CiMgU2V0IHVwIGEgZGF0YWZyYW1lIHRvIHJlY2VpdmUgcmVzdWx0cwpDT1gucmVzdWx0cyA8LSBkYXRhLmZyYW1lKG1hdHJpeChOQSwgbmNvbCA9IDEyLCBucm93ID0gMCkpCgojIExvb3Bpbmcgb3ZlciBlYWNoIHByb3RlaW4vZW5kcG9pbnQvdGltZSBjb21iaW5hdGlvbgpmb3IgKGkgaW4gMTpsZW5ndGgodGltZXMpKXsKICBlcHRpbWUgPSB0aW1lc1tpXQogIGVwID0gZW5kcG9pbnRzW2ldCiAgY2F0KHBhc3RlMCgiKiBBbmFseXppbmcgdGhlIGVmZmVjdCBvZiBwbGFxdWUgcHJvdGVpbnMgb24gWyIsZXAsIl0uXG4iKSkKICBjYXQoIiAtIGNyZWF0aW5nIHRlbXBvcmFyeSBTRSBmb3IgdGhpcyB3b3JrLlxuIikKICBURU1QLkRGID0gYXMuZGF0YS5mcmFtZShBRURCLkNFQSkKICBjYXQoIiAtIG1ha2luZyBhICdTdXJ2JyBvYmplY3QgYW5kIGFkZGluZyB0aGlzIHRvIHRlbXBvcmFyeSBkYXRhZnJhbWUuXG4iKQogIFRFTVAuREYkZXZlbnQgPC0gYXMuaW50ZWdlcihURU1QLkRGWyxlcF0pCiAgI2FzLmludGVnZXIoVEVNUC5ERlssZXBdID09ICJFeGNsdWRlZCIpCgogIFRFTVAuREYkeSA8LSBTdXJ2KHRpbWUgPSBURU1QLkRGWyxlcHRpbWVdLCBldmVudCA9IFRFTVAuREYkZXZlbnQpCiAgY2F0KCIgLSBtYWtpbmcgc3RyYXRhIG9mIGVhY2ggb2YgdGhlIHBsYXF1ZSBwcm90ZWlucyBhbmQgc3RhcnQgc3Vydml2YWwgYW5hbHlzaXMuXG4iKQogIAogIGZvciAocHJvdGVpbiBpbiAxOmxlbmd0aChUUkFJVFMuUFJPVEVJTi5SQU5LKSl7CiAgICBjYXQocGFzdGUwKCIgICA+IHByb2Nlc3NpbmcgWyIsVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSwiXTsgIixwcm90ZWluLCIgb3V0IG9mICIsbGVuZ3RoKFRSQUlUUy5QUk9URUlOLlJBTkspLCIgcHJvdGVpbnMuXG4iKSkKICAgICMgc3BsaXR0aW5nIGludG8gdHdvIGdyb3VwcwogICAgVEVNUC5ERltbIFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0gXV0gPC0gY3V0MihURU1QLkRGWyxUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dXSwgZyA9IDIpCiAgICBjYXQocGFzdGUwKCIgICA+IGNyb3NzIHRhYnVsYXRpb24gb2YgIixUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCItc3RyYXR1bS5cbiIpKQogICAgc2hvdyh0YWJsZShURU1QLkRGW1sgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSBdXSkpCiAgICAKICAgIGNhdChwYXN0ZTAoIlxuICAgPiBmaXR0aW5nIHRoZSBtb2RlbCBmb3IgIixUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCItc3RyYXR1bS5cbiIpKQogICAgZml0IDwtIHN1cnZmaXQoYXMuZm9ybXVsYShwYXN0ZTAoInkgfiAiLCBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dKSksIGRhdGEgPSBURU1QLkRGKQogICAgCiAgICBjYXQocGFzdGUwKCJcbiAgID4gbWFrZSBhIEthcGxhbi1NZWllci1zaGl6emxlLi4uXG4iKSkKICAgICMgbWFrZSBLYXBsYW4tTWVpZXIgY3VydmUgYW5kIHNhdmUgaXQKICAgIHNob3coZ2dzdXJ2cGxvdChmaXQsIGRhdGEgPSBURU1QLkRGLAogICAgICAgICAgICAgICAgICAgIHBhbGV0dGUgPSBjKCIjREIwMDNGIiwgIiMxMjkwRDkiKSwKICAgICAgICAgICAgICAgICAgICAjIHBhbGV0ZSA9IGMoIkY1OUQxMCIsICIjREIwMDNGIiwgIiM0OUEwMUQiLCAiIzEyOTBEOSIpLAogICAgICAgICAgICAgICAgICAgIGxpbmV0eXBlID0gYygxLDIpLAogICAgICAgICAgICAgICAgICAgICMgbGluZXR5cGUgPSBjKDEsMiwzLDQpLAogICAgICAgICAgICAgICAgICAgICMgY29uZi5pbnQgPSBGQUxTRSwgY29uZi5pbnQuZmlsbCA9ICIjNTk1QTVDIiwgY29uZi5pbnQuYWxwaGEgPSAwLjEsCiAgICAgICAgICAgICAgICAgICAgcHZhbCA9IEZBTFNFLCBwdmFsLm1ldGhvZCA9IEZBTFNFLCBwdmFsLnNpemUgPSA0LAogICAgICAgICAgICAgICAgICAgIHJpc2sudGFibGUgPSBUUlVFLCByaXNrLnRhYmxlLnkudGV4dCA9IEZBTFNFLCB0YWJsZXMueS50ZXh0LmNvbCA9IFRSVUUsIGZvbnRzaXplID0gNCwKICAgICAgICAgICAgICAgICAgICBjZW5zb3IgPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICBsZWdlbmQgPSAicmlnaHQiLAogICAgICAgICAgICAgICAgICAgIGxlZ2VuZC50aXRsZSA9IHBhc3RlMCgiIixUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCIiKSwKICAgICAgICAgICAgICAgICAgICBsZWdlbmQubGFicyA9IGMoImxvdyIsICJoaWdoIiksCiAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSBwYXN0ZTAoIlJpc2sgb2YgIixlcCwiIiksIHhsYWIgPSAiVGltZSBbeWVhcnNdIiwgZm9udC5tYWluID0gYygxNiwgImJvbGQiLCAiYmxhY2siKSkpCiAgICBkZXYuY29weTJwZGYoZmlsZSA9IHBhc3RlMChDT1hfbG9jLCIvIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRvZGF5LCIuQUVEQi5DRUEuc3Vydml2YWwuIixlcCwiLjJHLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCIucGRmIiksIHdpZHRoID0gMTIsIGhlaWdodCA9IDEwLCBvbmVmaWxlID0gRkFMU0UpCgogICAgY2F0KHBhc3RlMCgiXG4gICA+IHBlcmZvcm0gdGhlIENveC1yZWdyZXNzaW9uIGZhc2hpenpsZSBhbmQgcGxvdCBpdC4uLlxuIikpCiAgICAjIyMgRG8gQ294LXJlZ3Jlc3Npb24gYW5kIHBsb3QgaXQKICAgIAogICAgIyMjIE1PREVMIDQgc2FtZSB0byBtb2RlbCAyIHdpdGggYWRkaXRpb25hbCBhZGp1c3RtZW50IGZvciBJTDYgbGV2ZWxzIGluIHRoZSBwbGFxdWUKICAgIGNveCA9IGNveHBoKFN1cnYoVEVNUC5ERlssZXB0aW1lXSwgZXZlbnQpIH4gVEVNUC5ERltbIFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0gXV0rQWdlICsgR2VuZGVyICsgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UgKyBJTDZfcGdfdWdfMjAxNV9yYW5rLCBkYXRhID0gVEVNUC5ERikKICAgIGNveHBsb3QgPSBjb3hwaChTdXJ2KFRFTVAuREZbLGVwdGltZV0sIGV2ZW50KSB+IHN0cmF0YShURU1QLkRGW1sgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSBdXSkrQWdlICsgR2VuZGVyICsgSHlwZXJ0ZW5zaW9uLmNvbXBvc2l0ZSArIERpYWJldGVzU3RhdHVzICsgU21va2VyQ3VycmVudCArIE1lZC5TdGF0aW4uTExEICsgTWVkLmFsbC5hbnRpcGxhdGVsZXQgKyBHRlJfTURSRCArIEJNSSArIENBRF9oaXN0b3J5ICsgU3Ryb2tlX2hpc3RvcnkgKyBQZXJpcGhlcmFsLmludGVydiArIHN0ZW5vc2UgKyBJTDZfcGdfdWdfMjAxNV9yYW5rLCBkYXRhID0gVEVNUC5ERikKICAKICAgIHBsb3Qoc3VydmZpdChjb3hwbG90KSwgbWFpbiA9IHBhc3RlMCgiQ294IHByb3BvcnRpb25hbCBoYXphcmQgb2YgWyIsZXAsIl0gcGVyIFsiLGVwdGltZSwiXS4iKSwKICAgICAgICAgIyB5bGltID0gYygwLjIsIDEpLCB4bGltID0gYygwLDMpLCBjb2wgPSBjKCIjNTk1QTVDIiwgIiNEQjAwM0YiLCAiIzEyOTBEOSIpLAogICAgICAgICB5bGltID0gYygwLCAxKSwgeGxpbSA9IGMoMCwzKSwgY29sID0gYygiI0RCMDAzRiIsICIjMTI5MEQ5IiksCiAgICAgICAgIGx0eSA9IGMoMSwyKSwgbHdkID0gMiwKICAgICAgICAgeWxhYiA9ICJTdXZpdmFsIHByb2JhYmlsaXR5IiwgeGxhYiA9ICJGVSB0aW1lIFt5ZWFyc10iLAogICAgICAgICBtYXJrLnRpbWUgPSBGQUxTRSwgYXhlcyA9IEZBTFNFLCBidHkgPSAibiIpCiAgICBsZWdlbmQoInRvcHJpZ2h0IiwKICAgICAgICAgICBjKCJsb3ciLCAiaGlnaCIpLAogICAgICAgICAgIHRpdGxlID0gcGFzdGUwKCIiLFRSQUlUUy5QUk9URUlOLlJBTktbcHJvdGVpbl0sIiIpLAogICAgICAgICAgIGNvbCA9IGMoIiNEQjAwM0YiLCAiIzEyOTBEOSIpLAogICAgICAgICAgIGx0eSA9IGMoMSwyKSwgbHdkID0gMiwKICAgICAgICAgICBidHkgPSAibiIpCiAgICBheGlzKHNpZGUgPSAxLCBhdCA9IHNlcSgwLCAzLCBieSA9IDEpKQogICAgYXhpcyhzaWRlID0gMiwgYXQgPSBzZXEoMCwgMSwgYnkgPSAwLjIpKQogICAgZGV2LmNvcHkycGRmKGZpbGUgPSBwYXN0ZTAoQ09YX2xvYywiLyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUb2RheSwiLkFFREIuQ0VBLkNveC4iLGVwLCIuMkcuIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVG9kYXksIi5BRURCLkNFQS5Db3guIixlcCwiLjRHLiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUkFJVFMuUFJPVEVJTi5SQU5LW3Byb3RlaW5dLCIuTU9ERUw0LnBkZiIpLCBoZWlnaHQgPSAxMiwgd2lkdGggPSAxMCwgb25lZmlsZSA9IFRSVUUpCiAgICBzaG93KHN1bW1hcnkoY294KSkKCiAgICBjYXQocGFzdGUwKCJcbiAgID4gd3JpdGluZyB0aGUgQ294LXJlZ3Jlc3Npb24gZmFzaGl6emxlIHRvIEV4Y2VsLi4uXG4iKSkKCiAgICBDT1gucmVzdWx0cy5URU1QIDwtIGRhdGEuZnJhbWUobWF0cml4KE5BLCBuY29sID0gMTIsIG5yb3cgPSAwKSkKICAgIENPWC5yZXN1bHRzLlRFTVBbMSxdID0gQ09YLlNUQVQoY294LCAiQUVEQi5DRUEiLCBlcCwgVFJBSVRTLlBST1RFSU4uUkFOS1twcm90ZWluXSkKICAgIENPWC5yZXN1bHRzID0gcmJpbmQoQ09YLnJlc3VsdHMsIENPWC5yZXN1bHRzLlRFTVApCgogIH0KfQoKY2F0KCItIEVkaXQgdGhlIGNvbHVtbiBuYW1lcy4uLlxuIikKY29sbmFtZXMoQ09YLnJlc3VsdHMpID0gYygiRGF0YXNldCIsICJPdXRjb21lIiwgIkNwRyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIkJldGEiLCAicy5lLm0uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiSFIiLCAibG93OTVDSSIsICJ1cDk1Q0kiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJaLXZhbHVlIiwgIlAtdmFsdWUiLCAiU2FtcGxlU2l6ZSIsICJOX2V2ZW50cyIpCgpjYXQoIi0gQ29ycmVjdCB0aGUgdmFyaWFibGUgdHlwZXMuLi5cbiIpCkNPWC5yZXN1bHRzJEJldGEgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRCZXRhKQpDT1gucmVzdWx0cyRzLmUubS4gPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRzLmUubS4pCkNPWC5yZXN1bHRzJEhSIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkSFIpCkNPWC5yZXN1bHRzJGxvdzk1Q0kgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyRsb3c5NUNJKQpDT1gucmVzdWx0cyR1cDk1Q0kgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyR1cDk1Q0kpCkNPWC5yZXN1bHRzJGBaLXZhbHVlYCA8LSBhcy5udW1lcmljKENPWC5yZXN1bHRzJGBaLXZhbHVlYCkKQ09YLnJlc3VsdHMkYFAtdmFsdWVgIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkYFAtdmFsdWVgKQpDT1gucmVzdWx0cyRTYW1wbGVTaXplIDwtIGFzLm51bWVyaWMoQ09YLnJlc3VsdHMkU2FtcGxlU2l6ZSkKQ09YLnJlc3VsdHMkTl9ldmVudHMgPC0gYXMubnVtZXJpYyhDT1gucmVzdWx0cyROX2V2ZW50cykKCkFFREIuQ0VBLkNPWC5yZXN1bHRzIDwtIENPWC5yZXN1bHRzCgojIFNhdmUgdGhlIGRhdGEKY2F0KCItIFdyaXRpbmcgcmVzdWx0cyB0byBFeGNlbC1maWxlLi4uXG4iKQpoZWFkLnN0eWxlIDwtIGNyZWF0ZVN0eWxlKHRleHREZWNvcmF0aW9uID0gIkJPTEQiKQp3cml0ZS54bHN4KEFFREIuQ0VBLkNPWC5yZXN1bHRzLAogICAgICAgICAgIGZpbGUgPSBwYXN0ZTAoT1VUX2xvYywgIi8iLFRvZGF5LCIuQUVEQi5DRUEuQ294LjJHLk1PREVMNC54bHN4IiksCiAgICAgICAgICAgY3JlYXRvciA9ICJTYW5kZXIgVy4gdmFuIGRlciBMYWFuIiwKICAgICAgICAgICBzaGVldE5hbWUgPSAiUmVzdWx0cyIsIGhlYWRlclN0eWxlID0gaGVhZC5zdHlsZSwKICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSwgY29sLm5hbWVzID0gVFJVRSwgb3ZlcndyaXRlID0gVFJVRSkKCiMgUmVtb3ZpbmcgaW50ZXJtZWRpYXRlcwpjYXQoIi0gUmVtb3ZpbmcgaW50ZXJtZWRpYXRlIGZpbGVzLi4uXG4iKQpybShURU1QLkRGLCBwcm90ZWluLCBmaXQsIGNveCwgY294cGxvdCwgQ09YLnJlc3VsdHMsIENPWC5yZXN1bHRzLlRFTVAsIGhlYWQuc3R5bGUsIEFFREIuQ0VBLkNPWC5yZXN1bHRzKQoKcm0oaGVhZC5zdHlsZSkKCmBgYAoKCgoKIyBDb3JyZWxhdGlvbnMKCiMjIEFsbCBiaW9tYXJrZXJzCldlIGNvcnJlbGF0ZWQgc2VydW0gYW5kIHBsYXF1ZSBsZXZlbHMgb2YgdGhlIGJpb21hcmtlcnMuCgpgYGB7ciBDcm9zc1NhbXBsZVR5cGUgQ29ycmVsYXRpb25zfQoKIyBJbnN0YWxsYXRpb24gb2YgZ2djb3JycGxvdCgpCiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KaWYoIXJlcXVpcmUoZGV2dG9vbHMpKSAKICBpbnN0YWxsLnBhY2thZ2VzKCJkZXZ0b29scyIpCmRldnRvb2xzOjppbnN0YWxsX2dpdGh1Yigia2Fzc2FtYmFyYS9nZ2NvcnJwbG90IikKCmxpYnJhcnkoZ2djb3JycGxvdCkKCiMgQ3JlYXRpbmcgbWF0cml4IC0gbmF0dXJhbCBsb2cgdHJhbnNmb3JtZWQKIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpBRURCLkNFQS50ZW1wIDwtIHN1YnNldChBRURCLkNFQSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0ID0gYygiSUw2X0xOIiwgIk1DUDFfTE4iLCAiSUw2X3BnX3VnXzIwMTVfTE4iLCAiTUNQMV9wZ191Z18yMDE1X0xOIiwgIklMNlJfcGdfdWdfMjAxNV9MTiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUkFJVFMuQklOLCBUUkFJVFMuQ09OKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApCgpBRURCLkNFQS50ZW1wJENhbGNpZmljYXRpb25QbGFxdWUgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJENhbGNpZmljYXRpb25QbGFxdWUpCkFFREIuQ0VBLnRlbXAkQ29sbGFnZW5QbGFxdWUgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJENvbGxhZ2VuUGxhcXVlKQpBRURCLkNFQS50ZW1wJEZhdDEwUGVyYyA8LSBhcy5udW1lcmljKEFFREIuQ0VBLnRlbXAkRmF0MTBQZXJjKQpBRURCLkNFQS50ZW1wJElQSCA8LSBhcy5udW1lcmljKEFFREIuQ0VBLnRlbXAkSVBIKQpzdHIoQUVEQi5DRUEudGVtcCkKQUVEQi5DRUEubWF0cml4IDwtIGFzLm1hdHJpeChBRURCLkNFQS50ZW1wKQpybShBRURCLkNFQS50ZW1wKQoKY29ycl9iaW9tYXJrZXJzIDwtIHJvdW5kKGNvcihBRURCLkNFQS5tYXRyaXgsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHVzZSA9ICJwYWlyd2lzZS5jb21wbGV0ZS5vYnMiLCAjdGhlIGNvcnJlbGF0aW9uIG9yIGNvdmFyaWFuY2UgYmV0d2VlbiBlYWNoIHBhaXIgb2YgdmFyaWFibGVzIGlzIGNvbXB1dGVkIHVzaW5nIGFsbCBjb21wbGV0ZSBwYWlycyBvZiBvYnNlcnZhdGlvbnMgb24gdGhvc2UgdmFyaWFibGVzCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbWV0aG9kID0gInNwZWFybWFuIiksIDMpCiMgY29ycl9iaW9tYXJrZXJzCgpjb3JyX2Jpb21hcmtlcnNfcCA8LSBnZ2NvcnJwbG90Ojpjb3JfcG1hdChBRURCLkNFQS5tYXRyaXgsIHVzZSA9ICJwYWlyd2lzZS5jb21wbGV0ZS5vYnMiLCBtZXRob2QgPSAic3BlYXJtYW4iKQoKIyBBZGQgY29ycmVsYXRpb24gY29lZmZpY2llbnRzCiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KIyBhcmd1bWVudCBsYWIgPSBUUlVFCmdnY29ycnBsb3QoY29ycl9iaW9tYXJrZXJzLCAKICAgICAgICAgICBtZXRob2QgPSAic3F1YXJlIiwgCiAgICAgICAgICAgdHlwZSA9ICJsb3dlciIsCiAgICAgICAgICAgdGl0bGUgPSAiQ3Jvc3MgYmlvbWFya2VyIGNvcnJlbGF0aW9ucyIsIAogICAgICAgICAgIHNob3cubGVnZW5kID0gVFJVRSwgbGVnZW5kLnRpdGxlID0gYnF1b3RlKCJTcGVhcm1hbidzIn5pdGFsaWMocmhvKSksCiAgICAgICAgICAgZ2d0aGVtZSA9IGdncGxvdDI6OnRoZW1lX21pbmltYWwsIG91dGxpbmUuY29sb3IgPSAiI0ZGRkZGRiIsCiAgICAgICAgICAgc2hvdy5kaWFnID0gVFJVRSwKICAgICAgICAgICBoYy5vcmRlciA9IEZBTFNFLCAKICAgICAgICAgICBsYWIgPSBGQUxTRSwKICAgICAgICAgICBkaWdpdHMgPSAzLAogICAgICAgICAgICMgcC5tYXQgPSBjb3JyX2Jpb21hcmtlcnNfcCwgc2lnLmxldmVsID0gMC4wNSwKICAgICAgICAgICBjb2xvcnMgPSBjKCIjMTI5MEQ5IiwgIiNGRkZGRkYiLCAiI0U1NTczOCIpKQoKIyBDcmVhdGluZyBtYXRyaXggLSBpbnZlcnNlLXJhbmsgdHJhbnNmb3JtYXRpb24KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpBRURCLkNFQS50ZW1wIDwtIHN1YnNldChBRURCLkNFQSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0ID0gYygiSUw2X3JhbmsiLCAiTUNQMV9yYW5rIiwgIklMNl9wZ191Z18yMDE1X3JhbmsiLCAiTUNQMV9wZ191Z18yMDE1X3JhbmsiLCAiSUw2Ul9wZ191Z18yMDE1X3JhbmsiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSQUlUUy5CSU4sIFRSQUlUUy5DT04uUkFOSykKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKQoKQUVEQi5DRUEudGVtcCRDYWxjaWZpY2F0aW9uUGxhcXVlIDwtIGFzLm51bWVyaWMoQUVEQi5DRUEudGVtcCRDYWxjaWZpY2F0aW9uUGxhcXVlKQpBRURCLkNFQS50ZW1wJENvbGxhZ2VuUGxhcXVlIDwtIGFzLm51bWVyaWMoQUVEQi5DRUEudGVtcCRDb2xsYWdlblBsYXF1ZSkKQUVEQi5DRUEudGVtcCRGYXQxMFBlcmMgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJEZhdDEwUGVyYykKQUVEQi5DRUEudGVtcCRJUEggPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJElQSCkKc3RyKEFFREIuQ0VBLnRlbXApCkFFREIuQ0VBLm1hdHJpeC5SQU5LIDwtIGFzLm1hdHJpeChBRURCLkNFQS50ZW1wKQpybShBRURCLkNFQS50ZW1wKQoKY29ycl9iaW9tYXJrZXJzLnJhbmsgPC0gcm91bmQoY29yKEFFREIuQ0VBLm1hdHJpeC5SQU5LLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICB1c2UgPSAicGFpcndpc2UuY29tcGxldGUub2JzIiwgI3RoZSBjb3JyZWxhdGlvbiBvciBjb3ZhcmlhbmNlIGJldHdlZW4gZWFjaCBwYWlyIG9mIHZhcmlhYmxlcyBpcyBjb21wdXRlZCB1c2luZyBhbGwgY29tcGxldGUgcGFpcnMgb2Ygb2JzZXJ2YXRpb25zIG9uIHRob3NlIHZhcmlhYmxlcwogICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1ldGhvZCA9ICJzcGVhcm1hbiIpLCAzKQojIGNvcnJfYmlvbWFya2Vycy5yYW5rCgpjb3JyX2Jpb21hcmtlcnNfcC5yYW5rIDwtIGdnY29ycnBsb3Q6OmNvcl9wbWF0KEFFREIuQ0VBLm1hdHJpeC5SQU5LLCB1c2UgPSAicGFpcndpc2UuY29tcGxldGUub2JzIiwgbWV0aG9kID0gInNwZWFybWFuIikKCiMgQWRkIGNvcnJlbGF0aW9uIGNvZWZmaWNpZW50cwojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiMgYXJndW1lbnQgbGFiID0gVFJVRQpnZ2NvcnJwbG90KGNvcnJfYmlvbWFya2Vycy5yYW5rLCAKICAgICAgICAgICBtZXRob2QgPSAic3F1YXJlIiwgCiAgICAgICAgICAgdHlwZSA9ICJsb3dlciIsCiAgICAgICAgICAgdGl0bGUgPSAiQ3Jvc3MgYmlvbWFya2VyIGNvcnJlbGF0aW9ucyIsIAogICAgICAgICAgIHNob3cubGVnZW5kID0gVFJVRSwgbGVnZW5kLnRpdGxlID0gYnF1b3RlKCJTcGVhcm1hbidzIn5pdGFsaWMocmhvKSksCiAgICAgICAgICAgZ2d0aGVtZSA9IGdncGxvdDI6OnRoZW1lX21pbmltYWwsIG91dGxpbmUuY29sb3IgPSAiI0ZGRkZGRiIsCiAgICAgICAgICAgc2hvdy5kaWFnID0gVFJVRSwKICAgICAgICAgICBoYy5vcmRlciA9IEZBTFNFLCAKICAgICAgICAgICBsYWIgPSBGQUxTRSwKICAgICAgICAgICBkaWdpdHMgPSAzLAogICAgICAgICAgICMgcC5tYXQgPSBjb3JyX2Jpb21hcmtlcnNfcC5yYW5rLCBzaWcubGV2ZWwgPSAwLjA1LAogICAgICAgICAgIGNvbG9ycyA9IGMoIiMxMjkwRDkiLCAiI0ZGRkZGRiIsICIjRTU1NzM4IikpCgoKIyBmbGF0dGVuQ29yck1hdHJpeAojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiMgY29ybWF0IDogbWF0cml4IG9mIHRoZSBjb3JyZWxhdGlvbiBjb2VmZmljaWVudHMKIyBwbWF0IDogbWF0cml4IG9mIHRoZSBjb3JyZWxhdGlvbiBwLXZhbHVlcwpmbGF0dGVuQ29yck1hdHJpeCA8LSBmdW5jdGlvbihjb3JtYXQsIHBtYXQpIHsKICB1dCA8LSB1cHBlci50cmkoY29ybWF0KQogIGRhdGEuZnJhbWUoCiAgICBiaW9tYXJrZXJfcm93ID0gcm93bmFtZXMoY29ybWF0KVtyb3coY29ybWF0KVt1dF1dLAogICAgYmlvbWFya2VyX2NvbHVtbiA9IHJvd25hbWVzKGNvcm1hdClbY29sKGNvcm1hdClbdXRdXSwKICAgIHNwZWFybWFuX2NvciAgPShjb3JtYXQpW3V0XSwKICAgIHB2YWwgPSBwbWF0W3V0XQogICAgKQp9Cgpjb3JyX2Jpb21hcmtlcnMuZGYgPC0gYXMuZGF0YS50YWJsZShmbGF0dGVuQ29yck1hdHJpeChjb3JyX2Jpb21hcmtlcnMsIGNvcnJfYmlvbWFya2Vyc19wKSkKRFQ6OmRhdGF0YWJsZShjb3JyX2Jpb21hcmtlcnMuZGYpCgpjb3JyX2Jpb21hcmtlcnMucmFuay5kZiA8LSBhcy5kYXRhLnRhYmxlKGZsYXR0ZW5Db3JyTWF0cml4KGNvcnJfYmlvbWFya2Vycy5yYW5rLCBjb3JyX2Jpb21hcmtlcnNfcC5yYW5rKSkKRFQ6OmRhdGF0YWJsZShjb3JyX2Jpb21hcmtlcnMucmFuay5kZikKCiMgY2hhcnQgb2YgYSBjb3JyZWxhdGlvbiBtYXRyaXgKIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQojIEFsdGVybmF0aXZlIHNvbHV0aW9uIGh0dHBzOi8vd3d3LnItZ3JhcGgtZ2FsbGVyeS5jb20vMTk5LWNvcnJlbGF0aW9uLW1hdHJpeC13aXRoLWdnYWxseS5odG1sCmluc3RhbGwucGFja2FnZXMuYXV0bygiUGVyZm9ybWFuY2VBbmFseXRpY3MiKQpjaGFydC5Db3JyZWxhdGlvbi5uZXcgPC0gZnVuY3Rpb24gKFIsIGhpc3RvZ3JhbSA9IFRSVUUsIG1ldGhvZCA9IGMoInBlYXJzb24iLCAia2VuZGFsbCIsIAogICAgInNwZWFybWFuIiksIC4uLikgCnsKICAgIHggPSBjaGVja0RhdGEoUiwgbWV0aG9kID0gIm1hdHJpeCIpCiAgICBpZiAobWlzc2luZyhtZXRob2QpKSAKICAgICAgICBtZXRob2QgPSBtZXRob2RbMV0KICAgIGNvcm1ldGggPC0gbWV0aG9kCiAgICBwYW5lbC5jb3IgPC0gZnVuY3Rpb24oeCwgeSwgZGlnaXRzID0gMiwgcHJlZml4ID0gIiIsIHVzZSA9ICJwYWlyd2lzZS5jb21wbGV0ZS5vYnMiLCAKICAgICAgICBtZXRob2QgPSBjb3JtZXRoLCBjZXguY29yLCAuLi4pIHsKICAgICAgICB1c3IgPC0gcGFyKCJ1c3IiKQogICAgICAgIG9uLmV4aXQocGFyKHVzcikpCiAgICAgICAgcGFyKHVzciA9IGMoMCwgMSwgMCwgMSkpCiAgICAgICAgciA8LSBjb3IoeCwgeSwgdXNlID0gdXNlLCBtZXRob2QgPSBtZXRob2QpCiAgICAgICAgdHh0IDwtIGZvcm1hdChjKHIsIDAuMTIzNDU2Nzg5KSwgZGlnaXRzID0gZGlnaXRzKVsxXQogICAgICAgIHR4dCA8LSBwYXN0ZShwcmVmaXgsIHR4dCwgc2VwID0gIiIpCiAgICAgICAgaWYgKG1pc3NpbmcoY2V4LmNvcikpIAogICAgICAgICAgICBjZXggPC0gMC44L3N0cndpZHRoKHR4dCkKICAgICAgICB0ZXN0IDwtIGNvci50ZXN0KGFzLm51bWVyaWMoeCksIGFzLm51bWVyaWMoeSksIG1ldGhvZCA9IG1ldGhvZCkKICAgICAgICBTaWduaWYgPC0gc3ltbnVtKHRlc3QkcC52YWx1ZSwgY29yciA9IEZBTFNFLCBuYSA9IEZBTFNFLCAKICAgICAgICAgICAgY3V0cG9pbnRzID0gYygwLCAwLjAwMSwgMC4wMSwgMC4wNSwgMC4xLCAxKSwgc3ltYm9scyA9IGMoIioqKiIsIAogICAgICAgICAgICAgICAgIioqIiwgIioiLCAiLiIsICIgIikpCiAgICAgICAgdGV4dCgwLjUsIDAuNSwgdHh0LCBjZXggPSBjZXggKiAoYWJzKHIpICsgMC4zKS8xLjMpCiAgICAgICAgdGV4dCgwLjgsIDAuOCwgU2lnbmlmLCBjZXggPSBjZXgsIGNvbCA9IDIpCiAgICB9CiAgICBmIDwtIGZ1bmN0aW9uKHQpIHsKICAgICAgICBkbm9ybSh0LCBtZWFuID0gbWVhbih4KSwgc2QgPSBzZC54dHMoeCkpCiAgICB9CiAgICBkb3RhcmdzIDwtIGxpc3QoLi4uKQogICAgZG90YXJncyRtZXRob2QgPC0gTlVMTAogICAgcm0obWV0aG9kKQogICAgaGlzdC5wYW5lbCA9IGZ1bmN0aW9uKHgsIC4uLiA9IE5VTEwpIHsKICAgICAgICBwYXIobmV3ID0gVFJVRSkKICAgICAgICBoaXN0KHgsIGNvbCA9ICIjMTI5MEQ5IiwgcHJvYmFiaWxpdHkgPSBUUlVFLCBheGVzID0gRkFMU0UsIAogICAgICAgICMgaGlzdCh4LCBjb2wgPSAibGlnaHQgZ3JheSIsIHByb2JhYmlsaXR5ID0gVFJVRSwgYXhlcyA9IEZBTFNFLCAKICAgICAgICAgICAgbWFpbiA9ICIiLCBicmVha3MgPSAiRkQiKQogICAgICAgIGxpbmVzKGRlbnNpdHkoeCwgbmEucm0gPSBUUlVFKSwgY29sID0gIiNFNTU3MzgiLCBsd2QgPSAxKQogICAgICAgIHJ1Zyh4KQogICAgfQogICAgaWYgKGhpc3RvZ3JhbSkgCiAgICAgICAgcGFpcnMoeCwgZ2FwID0gMCwgbG93ZXIucGFuZWwgPSBwYW5lbC5zbW9vdGgsIHVwcGVyLnBhbmVsID0gcGFuZWwuY29yLCAKICAgICAgICAgICAgZGlhZy5wYW5lbCA9IGhpc3QucGFuZWwsIC4uLikKICAgIGVsc2UgcGFpcnMoeCwgZ2FwID0gMCwgbG93ZXIucGFuZWwgPSBwYW5lbC5zbW9vdGgsIHVwcGVyLnBhbmVsID0gcGFuZWwuY29yLCAuLi4pCn0KCmNoYXJ0LkNvcnJlbGF0aW9uLm5ldyhBRURCLkNFQS5tYXRyaXgsIG1ldGhvZCA9ICJzcGVhcm1hbiIsIGhpc3RvZ3JhbSA9IFRSVUUsIHBjaCA9IDMpCgpjaGFydC5Db3JyZWxhdGlvbi5uZXcoQUVEQi5DRUEubWF0cml4LlJBTkssIG1ldGhvZCA9ICJzcGVhcm1hbiIsIGhpc3RvZ3JhbSA9IFRSVUUsIHBjaCA9IDMpCgoKIyBhbHRlcm5hdGl2ZSBjaGFydCBvZiBhIGNvcnJlbGF0aW9uIG1hdHJpeAojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiMgQWx0ZXJuYXRpdmUgc29sdXRpb24gaHR0cHM6Ly93d3cuci1ncmFwaC1nYWxsZXJ5LmNvbS8xOTktY29ycmVsYXRpb24tbWF0cml4LXdpdGgtZ2dhbGx5Lmh0bWwKaW5zdGFsbC5wYWNrYWdlcy5hdXRvKCJHR2FsbHkiKQoKIyBRdWljayBkaXNwbGF5IG9mIHR3byBjYWJhcGlsaXRpZXMgb2YgR0dhbGx5LCB0byBhc3Nlc3MgdGhlIGRpc3RyaWJ1dGlvbiBhbmQgY29ycmVsYXRpb24gb2YgdmFyaWFibGVzIApsaWJyYXJ5KEdHYWxseSkKIAojIEZyb20gdGhlIGhlbHAgcGFnZToKZ2dwYWlycyhBRURCLkNFQSwgCiAgICAgICAgY29sdW1ucyA9IGMoIklMNl9yYW5rIiwgIk1DUDFfcmFuayIsICJJTDZfcGdfdWdfMjAxNV9yYW5rIiwgIk1DUDFfcGdfdWdfMjAxNV9yYW5rIiwgIklMNlJfcGdfdWdfMjAxNV9yYW5rIiwgVFJBSVRTLkJJTiwgVFJBSVRTLkNPTi5SQU5LKSwgCiAgICAgICAgY29sdW1uTGFiZWxzID0gYygiSUw2IChzZXJ1bSkiLCAiTUNQMSAoc2VydW0pIiwgIklMNiIsICJNQ1AxIiwgIklMNlIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIkNhbGNpZmljYXRpb24iLCAiQ29sbGFnZW4iLCAiRmF0IDEwJSIsICJJUEgiLCAiTWFjcm9waGFnZXMiLCAiU01DIiwgIlZlc3NlbCBkZW5zaXR5IiksCiAgICAgICAgbWV0aG9kID0gYygic3BlYXJtYW4iKSwKICAgICAgICAjIGdncGxvdDI6OmFlcyhjb2xvdXIgPSBHZW5kZXIpLAogICAgICAgIHByb2dyZXNzID0gRkFMU0UpIApgYGAKCiMjIENpcmN1bGF0aW5nIE1DUDEKCkZpbmFsbHksIHdlIGV4cGxvcmVkIGluIGEgc3ViLXNhbXBsZSwgd2hlcmUgY2lyY3VsYXRpbmcgTUNQLTEgbGV2ZWxzIGFyZSBhdmFpbGFibGUsIHRoZSBmb2xsb3dpbmc6CgoxLiBBIGNvcnJlbGF0aW9uIGJldHdlZW4gTUNQLTEgbGV2ZWxzIGluIHRoZSBwbGFxdWUgYW5kIGNpcmN1bGF0aW5nIE1DUC0xIGxldmVscwoyLiBBc3NvY2lhdGlvbnMgb2YgY2lyY3VsYXRpbmcgTUNQLTEgbGV2ZWxzIHdpdGggcGxhcXVlIHZ1bG5lcmFiaWxpdHkgY2hhcmFjdGVyaXN0aWNzCjMuIEFzc29jaWF0aW9ucyBvZiBjaXJjdWxhdGluZyBNQ1AtMSBsZXZlbHMgd2l0aCB0aGUgc3RhdHVzIG9mIHRoZSBwbGFxdWUgaW4gdGVybXMgb2YgcHJlc2VuY2Ugb2Ygc3ltcHRvbXMgKHN5bXB0b21hdGljIHZzLiBhc3ltcHRvbWF0aWMpCjQuIEFzc29jaWF0aW9ucyBvZiBjaXJjdWxhdGluZyBNQ1AtMSBsZXZlbHMgd2l0aCB0aGUgcHJpbWFyeSBjb21wb3NpdGUgZW5kcG9pbnQgb2Ygc2Vjb25kYXJ5IGNhcmRpb3Zhc2N1bGFyIGV2ZW50cy4KCmBgYHtyIE1DUDEgU2VydW0gQ29ycmVsYXRpb25zfQoKIyBJbnN0YWxsYXRpb24gb2YgZ2djb3JycGxvdCgpCiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KaWYoIXJlcXVpcmUoZGV2dG9vbHMpKSAKICBpbnN0YWxsLnBhY2thZ2VzKCJkZXZ0b29scyIpCmRldnRvb2xzOjppbnN0YWxsX2dpdGh1Yigia2Fzc2FtYmFyYS9nZ2NvcnJwbG90IikKCmxpYnJhcnkoZ2djb3JycGxvdCkKCiMgQ3JlYXRpbmcgbWF0cml4IC0gbmF0dXJhbCBsb2cgdHJhbnNmb3JtZWQKIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpBRURCLkNFQS50ZW1wIDwtIHN1YnNldChBRURCLkNFQSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0ID0gYygiTUNQMV9MTiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUkFJVFMuQklOLCBUUkFJVFMuQ09OLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJTeW1wdG9tcy41RyIsICJBc3ltcHRTeW1wdCIsICJFUF9tYWpvciIsICJFUF9jb21wb3NpdGUiKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApCgpBRURCLkNFQS50ZW1wJENhbGNpZmljYXRpb25QbGFxdWUgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJENhbGNpZmljYXRpb25QbGFxdWUpCkFFREIuQ0VBLnRlbXAkQ29sbGFnZW5QbGFxdWUgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJENvbGxhZ2VuUGxhcXVlKQpBRURCLkNFQS50ZW1wJEZhdDEwUGVyYyA8LSBhcy5udW1lcmljKEFFREIuQ0VBLnRlbXAkRmF0MTBQZXJjKQpBRURCLkNFQS50ZW1wJElQSCA8LSBhcy5udW1lcmljKEFFREIuQ0VBLnRlbXAkSVBIKQpBRURCLkNFQS50ZW1wJFN5bXB0b21zLjVHIDwtIGFzLm51bWVyaWMoQUVEQi5DRUEudGVtcCRTeW1wdG9tcy41RykKQUVEQi5DRUEudGVtcCRBc3ltcHRTeW1wdCA8LSBhcy5udW1lcmljKEFFREIuQ0VBLnRlbXAkQXN5bXB0U3ltcHQpCkFFREIuQ0VBLnRlbXAkRVBfbWFqb3IgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJEVQX21ham9yKQpBRURCLkNFQS50ZW1wJEVQX2NvbXBvc2l0ZSA8LSBhcy5udW1lcmljKEFFREIuQ0VBLnRlbXAkRVBfY29tcG9zaXRlKQojIHN0cihBRURCLkNFQS50ZW1wKQpBRURCLkNFQS5tYXRyaXguc2VydW0gPC0gYXMubWF0cml4KEFFREIuQ0VBLnRlbXApCnJtKEFFREIuQ0VBLnRlbXApCgpjb3JyX2Jpb21hcmtlcnNfc2VydW0gPC0gcm91bmQoY29yKEFFREIuQ0VBLm1hdHJpeC5zZXJ1bSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdXNlID0gInBhaXJ3aXNlLmNvbXBsZXRlLm9icyIsICN0aGUgY29ycmVsYXRpb24gb3IgY292YXJpYW5jZSBiZXR3ZWVuIGVhY2ggcGFpciBvZiB2YXJpYWJsZXMgaXMgY29tcHV0ZWQgdXNpbmcgYWxsIGNvbXBsZXRlIHBhaXJzIG9mIG9ic2VydmF0aW9ucyBvbiB0aG9zZSB2YXJpYWJsZXMKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtZXRob2QgPSAic3BlYXJtYW4iKSwgMykKIyBjb3JyX2Jpb21hcmtlcnMKCmNvcnJfYmlvbWFya2Vyc19zZXJ1bV9wIDwtIGdnY29ycnBsb3Q6OmNvcl9wbWF0KEFFREIuQ0VBLm1hdHJpeC5zZXJ1bSwgdXNlID0gInBhaXJ3aXNlLmNvbXBsZXRlLm9icyIsIG1ldGhvZCA9ICJzcGVhcm1hbiIpCgojIEFkZCBjb3JyZWxhdGlvbiBjb2VmZmljaWVudHMKIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQojIGFyZ3VtZW50IGxhYiA9IFRSVUUKZ2djb3JycGxvdChjb3JyX2Jpb21hcmtlcnNfc2VydW0sIAogICAgICAgICAgIG1ldGhvZCA9ICJzcXVhcmUiLCAKICAgICAgICAgICB0eXBlID0gImxvd2VyIiwKICAgICAgICAgICB0aXRsZSA9ICJDcm9zcyBiaW9tYXJrZXIgY29ycmVsYXRpb25zIiwgCiAgICAgICAgICAgc2hvdy5sZWdlbmQgPSBUUlVFLCBsZWdlbmQudGl0bGUgPSBicXVvdGUoIlNwZWFybWFuJ3Mifml0YWxpYyhyaG8pKSwKICAgICAgICAgICBnZ3RoZW1lID0gZ2dwbG90Mjo6dGhlbWVfbWluaW1hbCwgb3V0bGluZS5jb2xvciA9ICIjRkZGRkZGIiwKICAgICAgICAgICBzaG93LmRpYWcgPSBUUlVFLAogICAgICAgICAgIGhjLm9yZGVyID0gRkFMU0UsIAogICAgICAgICAgIGxhYiA9IEZBTFNFLAogICAgICAgICAgIGRpZ2l0cyA9IDMsCiAgICAgICAgICAgIyBwLm1hdCA9IGNvcnJfYmlvbWFya2Vyc19zZXJ1bV9wLCBzaWcubGV2ZWwgPSAwLjA1LAogICAgICAgICAgIGNvbG9ycyA9IGMoIiMxMjkwRDkiLCAiI0ZGRkZGRiIsICIjRTU1NzM4IikpCgojIENyZWF0aW5nIG1hdHJpeCAtIGludmVyc2UtcmFuayB0cmFuc2Zvcm1hdGlvbgojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCkFFREIuQ0VBLnRlbXAgPC0gc3Vic2V0KEFFREIuQ0VBLCAKICAgICAgICAgICAgICAgICAgICAgICAgICBzZWxlY3QgPSBjKCJNQ1AxX3JhbmsiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSQUlUUy5CSU4sIFRSQUlUUy5DT04uUkFOSywgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiU3ltcHRvbXMuNUciLCAiQXN5bXB0U3ltcHQiLCAiRVBfbWFqb3IiLCAiRVBfY29tcG9zaXRlIikKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKQoKQUVEQi5DRUEudGVtcCRDYWxjaWZpY2F0aW9uUGxhcXVlIDwtIGFzLm51bWVyaWMoQUVEQi5DRUEudGVtcCRDYWxjaWZpY2F0aW9uUGxhcXVlKQpBRURCLkNFQS50ZW1wJENvbGxhZ2VuUGxhcXVlIDwtIGFzLm51bWVyaWMoQUVEQi5DRUEudGVtcCRDb2xsYWdlblBsYXF1ZSkKQUVEQi5DRUEudGVtcCRGYXQxMFBlcmMgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJEZhdDEwUGVyYykKQUVEQi5DRUEudGVtcCRJUEggPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJElQSCkKQUVEQi5DRUEudGVtcCRTeW1wdG9tcy41RyA8LSBhcy5udW1lcmljKEFFREIuQ0VBLnRlbXAkU3ltcHRvbXMuNUcpCkFFREIuQ0VBLnRlbXAkQXN5bXB0U3ltcHQgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJEFzeW1wdFN5bXB0KQpBRURCLkNFQS50ZW1wJEVQX21ham9yIDwtIGFzLm51bWVyaWMoQUVEQi5DRUEudGVtcCRFUF9tYWpvcikKQUVEQi5DRUEudGVtcCRFUF9jb21wb3NpdGUgPC0gYXMubnVtZXJpYyhBRURCLkNFQS50ZW1wJEVQX2NvbXBvc2l0ZSkKIyBzdHIoQUVEQi5DRUEudGVtcCkKQUVEQi5DRUEubWF0cml4LnNlcnVtLlJBTksgPC0gYXMubWF0cml4KEFFREIuQ0VBLnRlbXApCnJtKEFFREIuQ0VBLnRlbXApCgpjb3JyX2Jpb21hcmtlcnNfc2VydW0ucmFuayA8LSByb3VuZChjb3IoQUVEQi5DRUEubWF0cml4LnNlcnVtLlJBTkssIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHVzZSA9ICJwYWlyd2lzZS5jb21wbGV0ZS5vYnMiLCAjdGhlIGNvcnJlbGF0aW9uIG9yIGNvdmFyaWFuY2UgYmV0d2VlbiBlYWNoIHBhaXIgb2YgdmFyaWFibGVzIGlzIGNvbXB1dGVkIHVzaW5nIGFsbCBjb21wbGV0ZSBwYWlycyBvZiBvYnNlcnZhdGlvbnMgb24gdGhvc2UgdmFyaWFibGVzCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbWV0aG9kID0gInNwZWFybWFuIiksIDMpCiMgY29ycl9iaW9tYXJrZXJzLnJhbmsKCmNvcnJfYmlvbWFya2Vyc19zZXJ1bV9wLnJhbmsgPC0gZ2djb3JycGxvdDo6Y29yX3BtYXQoQUVEQi5DRUEubWF0cml4LnNlcnVtLlJBTkssIHVzZSA9ICJwYWlyd2lzZS5jb21wbGV0ZS5vYnMiLCBtZXRob2QgPSAic3BlYXJtYW4iKQoKIyBBZGQgY29ycmVsYXRpb24gY29lZmZpY2llbnRzCiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KIyBhcmd1bWVudCBsYWIgPSBUUlVFCmdnY29ycnBsb3QoY29ycl9iaW9tYXJrZXJzX3NlcnVtLnJhbmssIAogICAgICAgICAgIG1ldGhvZCA9ICJzcXVhcmUiLCAKICAgICAgICAgICB0eXBlID0gImxvd2VyIiwKICAgICAgICAgICB0aXRsZSA9ICJDcm9zcyBiaW9tYXJrZXIgY29ycmVsYXRpb25zIiwgCiAgICAgICAgICAgc2hvdy5sZWdlbmQgPSBUUlVFLCBsZWdlbmQudGl0bGUgPSBicXVvdGUoIlNwZWFybWFuJ3Mifml0YWxpYyhyaG8pKSwKICAgICAgICAgICBnZ3RoZW1lID0gZ2dwbG90Mjo6dGhlbWVfbWluaW1hbCwgb3V0bGluZS5jb2xvciA9ICIjRkZGRkZGIiwKICAgICAgICAgICBzaG93LmRpYWcgPSBUUlVFLAogICAgICAgICAgIGhjLm9yZGVyID0gRkFMU0UsIAogICAgICAgICAgIGxhYiA9IEZBTFNFLAogICAgICAgICAgIGRpZ2l0cyA9IDMsCiAgICAgICAgICAgIyBwLm1hdCA9IGNvcnJfYmlvbWFya2Vyc19zZXJ1bV9wLnJhbmssIHNpZy5sZXZlbCA9IDAuMDUsCiAgICAgICAgICAgY29sb3JzID0gYygiIzEyOTBEOSIsICIjRkZGRkZGIiwgIiNFNTU3MzgiKSkKCgojIGZsYXR0ZW5Db3JyTWF0cml4CiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KIyBjb3JtYXQgOiBtYXRyaXggb2YgdGhlIGNvcnJlbGF0aW9uIGNvZWZmaWNpZW50cwojIHBtYXQgOiBtYXRyaXggb2YgdGhlIGNvcnJlbGF0aW9uIHAtdmFsdWVzCmZsYXR0ZW5Db3JyTWF0cml4IDwtIGZ1bmN0aW9uKGNvcm1hdCwgcG1hdCkgewogIHV0IDwtIHVwcGVyLnRyaShjb3JtYXQpCiAgZGF0YS5mcmFtZSgKICAgIGJpb21hcmtlcl9yb3cgPSByb3duYW1lcyhjb3JtYXQpW3Jvdyhjb3JtYXQpW3V0XV0sCiAgICBiaW9tYXJrZXJfY29sdW1uID0gcm93bmFtZXMoY29ybWF0KVtjb2woY29ybWF0KVt1dF1dLAogICAgc3BlYXJtYW5fY29yICA9KGNvcm1hdClbdXRdLAogICAgcHZhbCA9IHBtYXRbdXRdCiAgICApCn0KCmNvcnJfYmlvbWFya2Vyc19zZXJ1bS5kZiA8LSBhcy5kYXRhLnRhYmxlKGZsYXR0ZW5Db3JyTWF0cml4KGNvcnJfYmlvbWFya2Vyc19zZXJ1bSwgY29ycl9iaW9tYXJrZXJzX3NlcnVtX3ApKQpEVDo6ZGF0YXRhYmxlKGNvcnJfYmlvbWFya2Vyc19zZXJ1bS5kZikKCmNvcnJfYmlvbWFya2Vyc19zZXJ1bS5yYW5rLmRmIDwtIGFzLmRhdGEudGFibGUoZmxhdHRlbkNvcnJNYXRyaXgoY29ycl9iaW9tYXJrZXJzX3NlcnVtLnJhbmssIGNvcnJfYmlvbWFya2Vyc19zZXJ1bV9wLnJhbmspKQpEVDo6ZGF0YXRhYmxlKGNvcnJfYmlvbWFya2Vyc19zZXJ1bS5yYW5rLmRmKQoKIyBjaGFydCBvZiBhIGNvcnJlbGF0aW9uIG1hdHJpeAojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiMgQWx0ZXJuYXRpdmUgc29sdXRpb24gaHR0cHM6Ly93d3cuci1ncmFwaC1nYWxsZXJ5LmNvbS8xOTktY29ycmVsYXRpb24tbWF0cml4LXdpdGgtZ2dhbGx5Lmh0bWwKaW5zdGFsbC5wYWNrYWdlcy5hdXRvKCJQZXJmb3JtYW5jZUFuYWx5dGljcyIpCmNoYXJ0LkNvcnJlbGF0aW9uLm5ldyA8LSBmdW5jdGlvbiAoUiwgaGlzdG9ncmFtID0gVFJVRSwgbWV0aG9kID0gYygicGVhcnNvbiIsICJrZW5kYWxsIiwgCiAgICAic3BlYXJtYW4iKSwgLi4uKSAKewogICAgeCA9IGNoZWNrRGF0YShSLCBtZXRob2QgPSAibWF0cml4IikKICAgIGlmIChtaXNzaW5nKG1ldGhvZCkpIAogICAgICAgIG1ldGhvZCA9IG1ldGhvZFsxXQogICAgY29ybWV0aCA8LSBtZXRob2QKICAgIHBhbmVsLmNvciA8LSBmdW5jdGlvbih4LCB5LCBkaWdpdHMgPSAyLCBwcmVmaXggPSAiIiwgdXNlID0gInBhaXJ3aXNlLmNvbXBsZXRlLm9icyIsIAogICAgICAgIG1ldGhvZCA9IGNvcm1ldGgsIGNleC5jb3IsIC4uLikgewogICAgICAgIHVzciA8LSBwYXIoInVzciIpCiAgICAgICAgb24uZXhpdChwYXIodXNyKSkKICAgICAgICBwYXIodXNyID0gYygwLCAxLCAwLCAxKSkKICAgICAgICByIDwtIGNvcih4LCB5LCB1c2UgPSB1c2UsIG1ldGhvZCA9IG1ldGhvZCkKICAgICAgICB0eHQgPC0gZm9ybWF0KGMociwgMC4xMjM0NTY3ODkpLCBkaWdpdHMgPSBkaWdpdHMpWzFdCiAgICAgICAgdHh0IDwtIHBhc3RlKHByZWZpeCwgdHh0LCBzZXAgPSAiIikKICAgICAgICBpZiAobWlzc2luZyhjZXguY29yKSkgCiAgICAgICAgICAgIGNleCA8LSAwLjgvc3Ryd2lkdGgodHh0KQogICAgICAgIHRlc3QgPC0gY29yLnRlc3QoYXMubnVtZXJpYyh4KSwgYXMubnVtZXJpYyh5KSwgbWV0aG9kID0gbWV0aG9kKQogICAgICAgIFNpZ25pZiA8LSBzeW1udW0odGVzdCRwLnZhbHVlLCBjb3JyID0gRkFMU0UsIG5hID0gRkFMU0UsIAogICAgICAgICAgICBjdXRwb2ludHMgPSBjKDAsIDAuMDAxLCAwLjAxLCAwLjA1LCAwLjEsIDEpLCBzeW1ib2xzID0gYygiKioqIiwgCiAgICAgICAgICAgICAgICAiKioiLCAiKiIsICIuIiwgIiAiKSkKICAgICAgICB0ZXh0KDAuNSwgMC41LCB0eHQsIGNleCA9IGNleCAqIChhYnMocikgKyAwLjMpLzEuMykKICAgICAgICB0ZXh0KDAuOCwgMC44LCBTaWduaWYsIGNleCA9IGNleCwgY29sID0gMikKICAgIH0KICAgIGYgPC0gZnVuY3Rpb24odCkgewogICAgICAgIGRub3JtKHQsIG1lYW4gPSBtZWFuKHgpLCBzZCA9IHNkLnh0cyh4KSkKICAgIH0KICAgIGRvdGFyZ3MgPC0gbGlzdCguLi4pCiAgICBkb3RhcmdzJG1ldGhvZCA8LSBOVUxMCiAgICBybShtZXRob2QpCiAgICBoaXN0LnBhbmVsID0gZnVuY3Rpb24oeCwgLi4uID0gTlVMTCkgewogICAgICAgIHBhcihuZXcgPSBUUlVFKQogICAgICAgIGhpc3QoeCwgY29sID0gIiMxMjkwRDkiLCBwcm9iYWJpbGl0eSA9IFRSVUUsIGF4ZXMgPSBGQUxTRSwgCiAgICAgICAgIyBoaXN0KHgsIGNvbCA9ICJsaWdodCBncmF5IiwgcHJvYmFiaWxpdHkgPSBUUlVFLCBheGVzID0gRkFMU0UsIAogICAgICAgICAgICBtYWluID0gIiIsIGJyZWFrcyA9ICJGRCIpCiAgICAgICAgbGluZXMoZGVuc2l0eSh4LCBuYS5ybSA9IFRSVUUpLCBjb2wgPSAiI0U1NTczOCIsIGx3ZCA9IDEpCiAgICAgICAgcnVnKHgpCiAgICB9CiAgICBpZiAoaGlzdG9ncmFtKSAKICAgICAgICBwYWlycyh4LCBnYXAgPSAwLCBsb3dlci5wYW5lbCA9IHBhbmVsLnNtb290aCwgdXBwZXIucGFuZWwgPSBwYW5lbC5jb3IsIAogICAgICAgICAgICBkaWFnLnBhbmVsID0gaGlzdC5wYW5lbCwgLi4uKQogICAgZWxzZSBwYWlycyh4LCBnYXAgPSAwLCBsb3dlci5wYW5lbCA9IHBhbmVsLnNtb290aCwgdXBwZXIucGFuZWwgPSBwYW5lbC5jb3IsIC4uLikKfQoKY2hhcnQuQ29ycmVsYXRpb24ubmV3KEFFREIuQ0VBLm1hdHJpeC5zZXJ1bSwgbWV0aG9kID0gInNwZWFybWFuIiwgaGlzdG9ncmFtID0gVFJVRSwgcGNoID0gMykKCmNoYXJ0LkNvcnJlbGF0aW9uLm5ldyhBRURCLkNFQS5tYXRyaXguc2VydW0uUkFOSywgbWV0aG9kID0gInNwZWFybWFuIiwgaGlzdG9ncmFtID0gVFJVRSwgcGNoID0gMykKCgojIGFsdGVybmF0aXZlIGNoYXJ0IG9mIGEgY29ycmVsYXRpb24gbWF0cml4CiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KIyBBbHRlcm5hdGl2ZSBzb2x1dGlvbiBodHRwczovL3d3dy5yLWdyYXBoLWdhbGxlcnkuY29tLzE5OS1jb3JyZWxhdGlvbi1tYXRyaXgtd2l0aC1nZ2FsbHkuaHRtbAppbnN0YWxsLnBhY2thZ2VzLmF1dG8oIkdHYWxseSIpCgojIFF1aWNrIGRpc3BsYXkgb2YgdHdvIGNhYmFwaWxpdGllcyBvZiBHR2FsbHksIHRvIGFzc2VzcyB0aGUgZGlzdHJpYnV0aW9uIGFuZCBjb3JyZWxhdGlvbiBvZiB2YXJpYWJsZXMgCmxpYnJhcnkoR0dhbGx5KQogCiMgRnJvbSB0aGUgaGVscCBwYWdlOgpnZ3BhaXJzKEFFREIuQ0VBLAogICAgICAgIGNvbHVtbnMgPSBjKCJNQ1AxX3JhbmsiLCBUUkFJVFMuQklOLCBUUkFJVFMuQ09OLlJBTkssICJTeW1wdG9tcy41RyIsICJBc3ltcHRTeW1wdCIsICJFUF9tYWpvciIsICJFUF9jb21wb3NpdGUiKSwgCiAgICAgICAgY29sdW1uTGFiZWxzID0gYygiTUNQMSAoc2VydW0pIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAiQ2FsY2lmaWNhdGlvbiIsICJDb2xsYWdlbiIsICJGYXQgMTAlIiwgIklQSCIsICJNYWNyb3BoYWdlcyIsICJTTUMiLCAiVmVzc2VsIGRlbnNpdHkiLAogICAgICAgICAgICAgICAgICAgICAgICAgIlN5bXB0b21zIiwgIlN5bXB0b21zIChncm91cGVkKSIsICJNQUNFIiwgIkNvbXBvc2l0ZSIpLAogICAgICAgIG1ldGhvZCA9IGMoInNwZWFybWFuIiksCiAgICAgICAgIyBnZ3Bsb3QyOjphZXMoY29sb3VyID0gR2VuZGVyKSwKICAgICAgICBwcm9ncmVzcyA9IEZBTFNFKSAKYGBgCgoKIyBTZXNzaW9uIGluZm9ybWF0aW9uCgotLS0tLS0KCiAgICBWZXJzaW9uOiAgICAgIHYxLjAuNQogICAgTGFzdCB1cGRhdGU6ICAyMDIwLTAzLTA1CiAgICBXcml0dGVuIGJ5OiAgIFNhbmRlciBXLiB2YW4gZGVyIExhYW4gKHMudy52YW5kZXJsYWFuLTJbYXRddW1jdXRyZWNodC5ubCkuCiAgICBEZXNjcmlwdGlvbjogIFNjcmlwdCB0byBzZWxlY3Qgc2FtcGxlcyBmcm9tIHRoZSBBdGhlci1FeHByZXNzIEJpb2JhbmsgU3R1ZHkuCiAgICBNaW5pbXVtIHJlcXVpcmVtZW50czogUiB2ZXJzaW9uIDMuNS4yICgyMDE4LTEyLTIwKSAtLSAnRWdnc2hlbGwgSWdsb28nLCBtYWNPUyBNb2phdmUgKDEwLjE0LjIpLgoKLS0tLS0tCgpgYGB7ciBldmFsID0gVFJVRX0Kc2Vzc2lvbkluZm8oKQpgYGAKCiMgU2F2aW5nIGVudmlyb25tZW50CmBgYHtyIFNhdmluZ30Kc2F2ZS5pbWFnZShwYXN0ZTAoUFJPSkVDVF9sb2MsICIvIixUb2RheSwiLiIsUFJPSkVDVE5BTUUsIi5zYW1wbGVfc2VsZWN0aW9uLlJEYXRhIikpCmBgYAoKLS0tLS0tCjxzdXA+JmNvcHk7IDE5NzktMjAyMCBTYW5kZXIgVy4gdmFuIGRlciBMYWFuIHwgcy53LnZhbmRlcmxhYW4tMlthdF11bWN1dHJlY2h0Lm5sIHwgW3N3dmFuZGVybGFhbi5naXRodWIuaW9dKGh0dHBzOi8vc3d2YW5kZXJsYWFuLmdpdGh1Yi5pbykuPC9zdXA+Ci0tLS0tLQoK